VBA recherche
Artiste
-
via55 Messages postés 14512 Date d'inscription Statut Membre Dernière intervention -
via55 Messages postés 14512 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Après un samedi aprem à chercher par moi-même la solution, j'ai besoin d'un coup de main :)
L'idée de la macro que j'essaye de faire c'est qu'en rentrant un mot clé dans un text box, ce même mot clé apparaisse dans une colonne avec plein de cellule qui peuvent ou non comporter ce nom
Exemple; je cherche le mot bonjour et le ce mot bonjour est dans une colonne ligne 5 , ligne 67, ligne 1009 ect...
j'essaye de faire cet exercice mais je coince et je cherche à m'améliorer en VBA
j'ai crée le texte box dans le lequel je peux écrire le mot clé mais il n'apparait dans la colone en vert comme je pensais que devrait
le code bug à Private Sub TextBox1_Change() pour "Compile Error : variable required - can't assigne to this expressions
si vous avez une piste je suis preneur j'aimerai avoir la satisfaction d' y arriver...
voila mon bout de code :
Private Sub TextBox1_Change()
Application.ScreenUpdating = False
Range("A2:A10000").Interior.ColorIndex = 2
If TextBox1 <>
For ligne = 2 To 24
If Cells(ligne, 1) Like "*" & TextBox1 & "*" Then
Cells(ligne, 1).Interior.ColorIndex = 43
End If
Next
End Sub
Merci à vous
Après un samedi aprem à chercher par moi-même la solution, j'ai besoin d'un coup de main :)
L'idée de la macro que j'essaye de faire c'est qu'en rentrant un mot clé dans un text box, ce même mot clé apparaisse dans une colonne avec plein de cellule qui peuvent ou non comporter ce nom
Exemple; je cherche le mot bonjour et le ce mot bonjour est dans une colonne ligne 5 , ligne 67, ligne 1009 ect...
j'essaye de faire cet exercice mais je coince et je cherche à m'améliorer en VBA
j'ai crée le texte box dans le lequel je peux écrire le mot clé mais il n'apparait dans la colone en vert comme je pensais que devrait
le code bug à Private Sub TextBox1_Change() pour "Compile Error : variable required - can't assigne to this expressions
si vous avez une piste je suis preneur j'aimerai avoir la satisfaction d' y arriver...
voila mon bout de code :
Private Sub TextBox1_Change()
Application.ScreenUpdating = False
Range("A2:A10000").Interior.ColorIndex = 2
If TextBox1 <>
For ligne = 2 To 24
If Cells(ligne, 1) Like "*" & TextBox1 & "*" Then
Cells(ligne, 1).Interior.ColorIndex = 43
End If
Next
End Sub
Merci à vous
3 réponses
Bonjour,
Regardes cette solution de Jacques Boisgontier :
https://www.developpez.net/forums/d1945124/logiciels/microsoft-office/excel/recherche-complexe-libelles-non-homogenes/#post10782086
Regardes cette solution de Jacques Boisgontier :
https://www.developpez.net/forums/d1945124/logiciels/microsoft-office/excel/recherche-complexe-libelles-non-homogenes/#post10782086
Bonjour
Ton code comporte des erreurs
If TextBox1 <> appelle une suite et un Then
Tu n'as pas remis le raffraichissement écran à Vrai en fin de macro
Essaie ceci :
Cdlmnt
Via
Ton code comporte des erreurs
If TextBox1 <> appelle une suite et un Then
Tu n'as pas remis le raffraichissement écran à Vrai en fin de macro
Essaie ceci :
Private Sub TextBox1_Change()
Application.ScreenUpdating = False
Range("A2:A10000").Interior.ColorIndex = 2
If TextBox1 <> "" Then
For ligne = 2 To 24
If Cells(ligne, 1) Like "*" & TextBox1 & "*" Then Cells(ligne, 1).Interior.ColorIndex = 43
Next
End If
Application.ScreenUpdating = True
End Sub
Cdlmnt
Via
Merci Via pour ces explications.
Le code ne semble plus bugger, et j'ai donc un peu mieux compris mon bout de code.
Par contre quand j'écris mon mot clé dans le text box il ne le retrouve pas dans ma liste. (j'ai fait un test exprès en mettant un mot que je voyais écris dans la colonne A ).
J'imagine que c'est très dur à distance de m'aiguiller, mais saurais-tu me dire ou regarder pour que je puisse y arriver . Pour le coup je n'ai pas de piste puisque ton code corrigé aurait du dans mon esprit résoudre mon problème.
J'ai juste crée un user forme text box sur lequel j'ai rataché le code. ( et j'ai mis option compare text au tout debut pour si j'ai bien compris que ca marche avec des minuscules/majuscules/partie du mot recherché)
Merci pour ton temps .
Alain
Le code ne semble plus bugger, et j'ai donc un peu mieux compris mon bout de code.
Par contre quand j'écris mon mot clé dans le text box il ne le retrouve pas dans ma liste. (j'ai fait un test exprès en mettant un mot que je voyais écris dans la colonne A ).
J'imagine que c'est très dur à distance de m'aiguiller, mais saurais-tu me dire ou regarder pour que je puisse y arriver . Pour le coup je n'ai pas de piste puisque ton code corrigé aurait du dans mon esprit résoudre mon problème.
J'ai juste crée un user forme text box sur lequel j'ai rataché le code. ( et j'ai mis option compare text au tout debut pour si j'ai bien compris que ca marche avec des minuscules/majuscules/partie du mot recherché)
Merci pour ton temps .
Alain