erreur de compilation lors d'une recherche VBA

[camadian]

Bonjour le forum,

j'ai une erreur de compilation au moment de ma recherche sur le .range
mon but est que en fonction des critères sélectionner j'affiche le résultat de la colonne A1
A+
Camadian

 

[camadian]

Re : erreur de compilation lors d'une recherche VBA

De quel type est la variable X

A+
camadian

 

[camadian]

Re : erreur de compilation lors d'une recherche VBA

Mon soucis est :
je sélectionne un critère dans ma listboxtype
en fonction du critère sélectionné je recherche dans la feuill1 en l'occurrence sur la colonne B:B le texte et j'affiche l'info de la colonne A:A
exemple: si je sélectionne le critère ASME ma recherche doit m'afficher B, E, F et G
si je sélectionne le critère Codap la recherche doit m'afficher C

Merci pour tout

A+
Camadian

 

[tototiti2008]

Re : erreur de compilation lors d'une recherche VBA

Re,

Donc le but est de rechercher dans la colonne B l'ensemble des choix qui contiennent le texte des cases cochées dans la 1ère listbox ?

 

[camadian]

Re : erreur de compilation lors d'une recherche VBA

bonjour tototiti2008,
oui c'est tout a fait ca
mais ce que je ne sais pas c'est si les retours chariots ne sont pas bloquant
Merci
A+
Camadian

 

[tototiti2008]

Re : erreur de compilation lors d'une recherche VBA

Bonjour,

un essai pour avancer un peu

Private Sub CommandButton1_Click()
Dim i As Integer, j As Integer
    ListBox2.Clear
    With Worksheets("Feuil1")
        For i = 0 To (ListBoxType.ListCount - 1)
        If ListBoxType.Selected(i) = True Then
            For j = 1 To .Range("B65536").End(xlUp).Row
                If .Range("B" & j).Value Like "*" & ListBoxType.List(i) & "*" Then
                    ListBox2.AddItem Replace(Replace(.Range("B" & j).Value, Chr(10), " - "), Chr(13), "")
                End If
            Next j
        End If
        Next i
    End With
 
End Sub

 

[camadian]

Re : erreur de compilation lors d'une recherche VBA

bonjour tototiti2008,

chapeau bas
c'est que que je cherchai depuis un petit moment il me reste plus qu'a l intégrer dans mon projet
merci mille fois
Grâce au dévouement de tous les barbatrucs, occasionnels, impliqués, .... je serai dans la panade
encore merci

A+
Camadian

 

[tototiti2008]

Re : erreur de compilation lors d'une recherche VBA

Re,

content que ça te plaise, à mon avis il y aurait éventuellement encore des soucis sur la gestion des doublons dans ListBox2, mais bon 😉

 

[camadian]

Re : erreur de compilation lors d'une recherche VBA

bonjour tototiti2008
Je pense que je ne suis pas au bout de mes peines
Mais grâce au forum j'ai réussi plus au moins à réaliser mon projet
Je joint mon projet adapté si tu as le temps de le regarder de de me dire ce que tu en penses. les critiques sont les bien venues.
le but:
creer un nouveau projet
créer l'arborescence sur le disque
faire des fichiers pdf et les mettre dans cette arborescence.
faire une recherche sur les projets avec affichage des pdf
archiver le projet sur un autre disque avec DES MOTS CLEFS
Rechercher les projets par mots clefs (d'où ce post)

A+
Camadian