Bonjour,
je sais pas si c'est exactement ce que tu veux mais voila une piste :
un conseil appuie sur F8 (ca déclenche le code ligne par ligne) et pose ta
souris sans cliquer sur cellule pour bien comprendre ce que cela fait
Sub x()
texte =
InputBox("Merci d'indiquer le texte recherché :", "texte recherché") ' permet à l'utilisateur de rentrer ce que tu cherches
If texte <> "" Then 'si tu n'as rien rentré, la macro s'arrête
i = 2 ' commence à la 2ème ligne
Do While Cells(i, 1) <> "" 'la boucle tourne jusqu'à ce que tu n'ais rien dans une cellule de la colonne A
nbtexte = Len(texte) 'nbtexte = nbre de caractères du texte recheché
cellule = Cells(i, 1) 'cellule est égale à la valeur contenue dans ta cellule
Do While Len(cellule) > 0
If UCase(Left(cellule, nbtexte)) = UCase(texte) Then
'mets ici ce que ca doit faire lorsque tu as trouvé ton texte
cellule = "a"
End If
cellule = Right(cellule, Len(cellule) - 1)
Loop
i = i + 1
Loop
End If
End Sub
Comment as tu fait ce fitre dynamique c'est exactement ce que je voulais!!!
En vba, clic-droit sur le nom de l'onglet de la feuille et 'visualiser le code...'
eric