Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Couleur de ligne VBA

max.g

XLDnaute Nouveau
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
 

Discussions similaires

Réponses
2
Affichages
329
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…