problème de compatibilite vba 2003 et 2010

je suis a la recherche d'un filtre de données exel car j'en avais un qui me donne toute satisfaction mais depuis que nous sommes passe a exel 2010 j'ai perdu toutes mes fonctions de filtrage, vous avez compris que je suis une bille au niveau informatique
A priori la listview n'existe plus sur vba 2010 ou 2013
mon problème c'est mon truc etait pour moi parfait car j'avais 4 ComboBox de filtrage (ex 1 type de machine,son modele et la partie incrimine+ le numero le tous venais gentiment ce mettre dans listview et je clicker dessus avec un lien j'allais directement sur le fichier en question. en plus il y avais une recherche par mot
si quelqu'un a une idee ? ci-dessous les code vba 2003 de mon application

Code:


Option Explicit
Option Compare Text 'la casse n'est pas prise en compte
Dim L& 'mémorisation

Private Sub ComboBox1_Change()
Dim d1 As Object, d2 As Object, d3 As Object
Dim w As Worksheet, derlig&, t1, t2, t3, cb$, i&, s$
ComboBox2.RowSource = "": ComboBox3.RowSource = "": ComboBox4.RowSource = ""
Union([Type], [Thème], [Numéro]).ClearContents
If Application.CountIf([Machine], ComboBox1) = 0 Then _
  ComboBox1 = "": If TextBox1 = "" Then ComboBox1.DropDown: GoTo 1
Set d1 = CreateObject("Scripting.Dictionary")
Set d2 = CreateObject("Scripting.Dictionary")
Set d3 = CreateObject("Scripting.Dictionary")
Set w = Sheets("SOMMAIRE COMMUN")
w.AutoFilterMode = False
derlig = w.Cells.Find("*", w.[A1], xlFormulas, , xlByRows, xlPrevious).Row
t1 = Application.Transpose(w.Range("C3:C" & derlig))
t2 = Application.Transpose(w.Range("D3:D" & derlig))
t3 = Application.Transpose(w.Range("E3:E" & derlig))
cb = ComboBox1
For i = 1 To UBound(t1)
  s = Trim(w.Cells(i + 2, "H"))
  If IIf(cb = "(vide)", s = "", cb = "" Or cb = s Or s = "commun") Then
    If t1(i) <> "" And Not d1.exists(t1(i)) Then d1.Add t1(i), t1(i)
    If t2(i) <> "" And Not d2.exists(t2(i)) Then d2.Add t2(i), t2(i)
    If t3(i) <> "" And Not d3.exists(t3(i)) Then d3.Add t3(i), t3(i)
  End If
Next
'---RowSources---
If d1.Count Then
  [Type].Resize(d1.Count) = Application.Transpose(d1.items)
  [Type].Sort [Type], xlAscending, Header:=xlNo
  ComboBox2.RowSource = "Type"
End If
If d2.Count Then
  [Thème].Resize(d2.Count) = Application.Transpose(d2.items)
  [Thème].Sort [Thème], xlAscending, Header:=xlNo
  ComboBox3.RowSource = "Thème"
End If
If d3.Count Then
  [Numéro].Resize(d3.Count) = Application.Transpose(d3.items)
  [Numéro].Resize(, 2).Sort [Numéro].Offset(, 1), xlAscending, [Numéro], , xlDescending, Header:=xlNo
  ComboBox4.RowSource = "Numéro"
End If
'--------
1 RECHERCHE
End Sub

Private Sub ComboBox2_Change() 'Type
RECHERCHE
End Sub

Private Sub ComboBox3_Change() 'Thème
RECHERCHE
End Sub

Private Sub ComboBox4_Change() 'Numéro
RECHERCHE
End Sub

Private Sub CommandButton1_Click() 'RAZ
ComboBox1 = "": ComboBox2 = "": ComboBox3 = "": ComboBox4 = "": TextBox1 = "": ComboBox1.SetFocus
End Sub

Private Sub Label5_Click() 'Mots clés
TextBox1.SetFocus
TextBox1.SelStart = 0
TextBox1.SelLength = Len(TextBox1)
RECHERCHE
End Sub

Private Sub Label6_Click()
TextBox1.SetFocus
TextBox1.SelStart = 0
RECHERCHE
End Sub

Private Sub Label8_Click() 'lien hypertexte
On Error Resume Next
Sheets("SOMMAIRE COMMUN").Cells(L, "N").Hyperlinks(1).Follow True
End Sub

Private Sub ListView1_Click()
Label8 = ""
L = ListView1.SelectedItem
On Error Resume Next
Label8 = Sheets("SOMMAIRE COMMUN").Cells(L, "N").Hyperlinks(1).Parent
End Sub

Private Sub TextBox1_Change()
If TextBox1 = "" Then RECHERCHE
End Sub

Private Sub UserForm_Initialize()
Union([Type], [Thème], [Numéro]).ClearContents
With ListView1.ColumnHeaders
  .Add , , "L", 0 'n° de ligne dans la feuille de calcul
  .Add , , "MACHINES", 70
  .Add , , "TYPES", 40
  .Add , , "THEMES", 80, 2 'centrée
  .Add , , "Intitulé", 450
End With
End Sub

Sub RECHERCHE()
Dim w As Worksheet, derlig&, cb$, i&, motclé As Boolean, s$, h As Object
With ListView1
  .ListItems.Clear


Bonjour ? Merci ? Svp ?

Sinon, il faudrait s'adresser à quelqu’un qui sait programmer en vba pour qu'il t'adapte ton programme... ici, on peut te dire comment "traduire" l’effet d'une des fonctions de ton programmes en algorithme avec SZ. Mais comme personne (à ma connaissance...) ne maîtrise ce langage, on ne peut pas faire grand chose pour toi

je suis bien conscient de la chose 
je suis dans les tuto sz mais un coup de pouce ne sera pas de refus je pense
merci

re,

Le problème c'est que c'est un forum dédié à SoftwareZator et, d'une manière générale, aux logiciels de Etienne Baudoux.
Sz permet de réaliser des soft sans coder et donc la plupart des membres utilisant SZ ne savent pas/peu coder en VB.NET (à ne pas prendre mal).
Comme je le vois, le VBA est assez différent.
Et puis .... c'est un peut oublié ça non le VBA ?

Le code que tu as mis, je ne le comprend pas trop..... C'est à mis chemin entre VB et VBS.

Ce que tu souhaite, c'est de refaire ce soft sous SZ en utilisant les actions Excel ?
Si tu as le fichier compilé (exe) là on pourra avoir un fonctionnement et donc plus "facilement"
refaire ça sous SZ mais sinon ..... ail
Je n'ai, excepté pour faire des tableaux, pas beaucoup touché à Excel ....

La réponse pour ton filtre se trouve sûrement (au prix de pas mal de temps de recherche) sur le WEB; Google est ton amis

Cordialement,
Le réparateur de PC

je vous remercie car n'étant un spécialiste de la chose je pensais me faire rembarrer façon grand V mais je vois que l'univers de l'informatique n'est pas aussi méchant que cela.
bref je visionne les tutos de sz je comprend pas tous mais bon, j arrive au moins a ouvrir une feuille exels par sz c'est le début et puis si je n'y arrive pas et ben au moins j'aurai essayer

Re,

ce serait vraiment bête de notre part de te remballer parce-que tu ne sais pas faire telle ou telle chose Ne t'inquiète pas tous les membres sur le forum sont là pour aider les nouveaux, bienvenue dans la belle communauté SoftwareZator . (j'crois que je j'vais publicitaire moi plus tard en fait xDD)

Cordialement,
Softwarezatorman

bonsoir, (j'ai manque a mes devoir désole)
 je pense vu mes connaissances que je vais avoir besoin d'un peu ou beaucoup d'aide mais bon je suis tétu alors tous peut arriver
et puis je n'ai pas le choix car mon patron ne veut pas investir pour le faire faire
Désole pour mes débuts sur le forum 
bonne soirée à tous

Bonjour ,

Tout d'abord , bienvenue sur le forum !

Ensuite , si tu as besoin d'aide , ce forum est fait pour ça . Même beaucoup d'aide , il y a pleins de tutoriels pour tout sa et tu peut bien évidemment , après recherches , créer un nouveau sujet !

Pour tes début sur le forum , j'ai été pareil que toi ! Tu va t'y faire , ne t’inquiète pas !

Cordialement ,

Jeremy60800

Comby a écrit:bonsoir, (j'ai manque a mes devoir désole)
 je pense vu mes connaissances que je vais avoir besoin d'un peu ou beaucoup d'aide mais bon je suis tétu alors tous peut arriver
et puis je n'ai pas le choix car mon patron ne veut pas investir pour le faire faire
Désole pour mes débuts sur le forum 
bonne soirée à tous

Bonjour,

pas de problème  , on te comprend parfaitement (il faut juste ne pas oublier la politesse et une explication détaillée... là s'est notre devoirs de modo de te le signaler  )
et puis on ne peut pas décider à place de ton patron... 

sinon, petit essai d'interface avec SZ :



Est ce que c'est grosso modo ce que tu cherche à faire ou pas ?

bonsoir,
cela ressemble un peu a mes fonctions que j'avais sur exels2003
j'aurai bien voulu mettre une copie d'écran mais je ne dois pas avoir tous compris pour l'intégrer sur le forum
cordialement COMBY

re,

Dès la création d'un compte sur ce fofo, un compte sur un hébergeur d'image se crée automatiquement.
Dans la zone texte, il y a une petit barre d'outils et regarde bien, il y a une petite image avec une disquette. Clique dessus et suis les étapes pour envoyer cette image sur ton compte.
Sur la dernière étape, utilise le lien du bas (lien direct vers l'image)
A côte, il y a une autre fonction pour insérer l'image dans ton message, colle le lien précédent.

Cordialement,
Le réparateur de PC

re,

pour mettre une capture d'écran dans ton message, tu héberge ton image :



tu récupère le lien qui t'est donné, et tu met l'adresse de ton image comme ceci :

Code:

[img]ton_lien[/img]

par exemple, pour l'image que tu voit ci dessus, j'ai mit :

[img]http://i39.servimg.com/u/f39/16/51/03/49/2014-016.jpg[/img]



[EDIT]en fait, j'ai illustré ce qu'a dit lereparateurdepc

cordialement.
Polien

re,

Merci

Cordialement,
Le réparateur de PC

re,

c'est le hasard
de rien

re-bonsoir tous le monde
Comme je suis un peu dur de la feuille voici le lien car je ne sais pas combien d'image sont partis où et comment bref j'ai mis le lien ce sera plus rapide pour tous le monde (surtout moi)

Cordialement COMBY

bonsoir 
maintenant j'ai compris mais mon compte n'était pas valider donc forcement 
bref l'image c'est mis mais pas vraiment ou je voulais
cordialement a tous

re,

après tu peut centrer ton image avec les balises (dans l'éditeur non graphique )

Code:

[center][/center]

sinon vu l'interface, c'est tout a fait faisable avec SZ, le seul problème sera pour la recherche: ce n'est pas adaptable facilement en vb.net...

bonsoir
vous voulez me casser le moral
moi qui vient regarder une bonne dizaine de tuto
cordialement COMBY

ne vous inquiétez pas: c'est faisable, seulement s'était beaucoup plus simple avec vba (je ne sais pas si les actions excels de sz permettent de rechercher...)