Couleur de ligne VBA

[max.g]

Bonjour,
Je fais une recherche via un textbox dans ma base de données pour que quand je rentre un nom ou autres ( par exemple : je tape "liège" sa me surligne tous les mots comprenant ce mot. Mon problème est que cela me colore seulement une cellule et non la ligne entière.

J'aimerais pouvoir colorier ma ligne entière , voici le code que j'utilise :

Private Sub TextBox1_Change()

Application.ScreenUpdating = False

Range("A1:K629").Interior.ColorIndex = 2
ListBox1.Clear

If TextBox1 <> "" Then
For ligne = 1 To 629
For colonne = 1 To 11
If Cells(ligne, colonne) Like "*" & TextBox1 & "*" Then
Cells(ligne, colonne).Interior.ColorIndex = 43
ListBox1.AddItem Cells(ligne, colonne)
End If
Next

Next
End If

End Sub

 

[pierrejean]

Re : Couleur de ligne VBA

bonjour max

Atester:

Remplacer

Cells(ligne, colonne).Interior.ColorIndex = 43

par

Rows(ligne).Interior.ColorIndex = 43

 

[max.g]

Re : Couleur de ligne VBA

Bonjour ,

Je viens de tester et cela ne m'affiche pas la ligne entière, j'ai remplacer dans le " IF "

 

[pierrejean]

Re : Couleur de ligne VBA

Re

Si ton code colorait la cellule , le mien doit colorer la ligne
Avec un fichier exemple (copie du tien sans données) on y verra plus clair

 

[max.g]

Re : Couleur de ligne VBA

Mon fichier est trop grand pour l'envoyer via le forum ..

Cordialement

 

[pierrejean]

Re : Couleur de ligne VBA

Re

Et tu ne peux pas en réduire une copie pour ne présenter que la partie qui pose problème ???

NB: Si oui je te conseille d’abandonner le Vba