Champs de recherche VBA colonne surligné ou pas
Bonjour a tous,
grace a une vidéo "champs de recherche VBA" et plusieurs poste sur les forums j'ai pu obtenir un code VBA permettant de faire une recherche et de surligner la ligne en question, j'ai volontairement élargis les colonnes surligné car je compte mettre plusieurs tableau a la suite mais avec des formats différents, mais je n' arrive pas a faire en sorte que uniquement les colonnes avec du contenu soient surligné et pas celle qui sont vide
(je suis novice en VBA )
je vous m'est le code ci dessous
Option Compare Text
Private Sub ListBox1_Db1Click (ByVal Cancel As MSForms.ReturnBoolean)
Dim L_index As Long
L_index = ListBox1.ListIndex
Cells (Tablo (L_index), 1).Activate
End Sub
Private Sub TextBox1_Change ()
Application.ScreenUpdating =False
Erase Tablo()
Range("A2:G" & Range("A" & Rows.Count).End (x1Up) Row). Interior. ColorIndex = 37
ListBoxl.Clear
Cpt = 0
If TextBox1 <>""Then
For ligne= 2 To Range ("A" & Rows.Count) End (x1Up).Row
IF Cells (ligne, 1) Like "*" TextBoxl &"*" Then
Range (Cells (ligne, 1), Cells (ligne, 10)).Interior.ColorIndex =6
ListBox1.Additem Cells (ligne, 1)
ReDim Preserve Tablo (Cpt + 1)
Tablo (Cpt) = ligne
Cpt=Cpt + 1
End If
Next
End If
End SubBonjour
Quel est le problème?
Pas de sujet?
Le message n'a pas été éditer je ne sais pas pourquoi mais je l'ai remis 😁
Ton code c'est bien mais joindre ton fichier anonymisé serait mieux
pour y voir plus clair
Je comprend bien mais malheureusement je suis dans l impossibilité de le partager
Je joint une photo espérant que ça puisse permettre d'être plus parlant
