Bonjour,
J'ai besoin d'un petit coup de pouce pour modifier un bout de code VBA trouvé sur les Cours VBA du site.
Sachez que je suis toujours novice en programmation VBA, c'est pour cela que pour le moment je copie seulement des morceaux de code et essaie de les modifier, des fois ça passe, pas ici ...
Voici le code en question :
Option Compare Text
Private Sub TextBox1_Change()
Application.ScreenUpdating = False
Range("A2:A24").Interior.ColorIndex = 0
ListBox1.Clear
If TextBox1 <> "" Then
For ligne = 2 To 24
If Cells(ligne, 1) Like "*" & TextBox1 & "*" Then
Cells(ligne, 1).Interior.ColorIndex = 40
ListBox1.AddItem Cells(ligne, 1)
End If
Next
End If
End Sub
Ce code effectue la recherche sur une plage de cellule donnée selon une colonne.
J'essaye d'effectuer la même chose mais selon une ligne (ligne 1).
voici ce que j'ai écris :
Option Compare Text
Private Sub TextBox1_Change()
Application.ScreenUpdating = False
Range("M1:ZZ1").Interior.ColorIndex = 0
ListBox1.Clear
If TextBox1 <> "" Then
For colonne = M To Z
If Cells(1, colonne) Like "*" & TextBox1 & "*" Then
Cells(1, colonne).Interior.ColorIndex = 40
ListBox1.AddItem Cells(1, colonne)
End If
Next
End If
End Sub
Il Y a quelque chose qui m'échappe.
Pouvez-vous m'aider?
Merci par avance !