Champ de recherche VBA
Résolu/Fermé
samydidi31
Messages postés
10
Date d'inscription
vendredi 10 octobre 2014
Statut
Membre
Dernière intervention
18 mars 2015
-
Modifié par pijaku le 18/03/2015 à 08:36
samydidi31 Messages postés 10 Date d'inscription vendredi 10 octobre 2014 Statut Membre Dernière intervention 18 mars 2015 - 18 mars 2015 à 19:43
samydidi31 Messages postés 10 Date d'inscription vendredi 10 octobre 2014 Statut Membre Dernière intervention 18 mars 2015 - 18 mars 2015 à 19:43
2 réponses
Thorak83
Messages postés
1051
Date d'inscription
jeudi 20 juin 2013
Statut
Membre
Dernière intervention
22 décembre 2017
151
Modifié par Thorak83 le 17/03/2015 à 17:47
Modifié par Thorak83 le 17/03/2015 à 17:47
Bonjour
Essayez donc cela :
Cordialement
Essayez donc cela :
Private Sub test()
Application.ScreenUpdating = False
Range("A2").Select ' on se positionne en A2
ListBox1.Clear
If TextBox21 <> "" Then
Do While ActiveCell.Value <> "" ' tant que la cellule active n'est pas vide on entre dans la boucle
If ActiveCell.Value Like "*" & TextBox21 & "*" Then
ActiveCell.Interior.ColorIndex = 43 ' cellule active en vert
ActiveCell.Offset(0, 3).Interior.ColorIndex = 43 ' cellule active décallé de 3 colonnes en vert
ActiveCell.Offset(0, 4).Interior.ColorIndex = 43 ' cellule active décallé de 4 colonnes en vert
End If
ActiveCell.Offset(1, 0).Select ' on descend d'une ligne
Loop
End If
End Sub
Cordialement
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
15 mars 2023
2 712
18 mars 2015 à 08:44
18 mars 2015 à 08:44
Bonjour,
Essayez ceci :
Essayez ceci :
Option Compare Text
Private Sub TextBox21_Change()
Application.ScreenUpdating = False
Range("A2:A1000").Interior.ColorIndex = 2
ListBox1.Clear
'ListBox multicolonnes :
ListBox1.ColumnCount = 3
If TextBox21 <> "" Then
For ligne = 2 To 1000
If Cells(ligne, 1) Like "*" & TextBox21 & "*" Then
'colore toute la plage de A à E
Range("A" & ligne & ":E" & ligne).Interior.ColorIndex = 43
ListBox1.AddItem Cells(ligne, 1)
'Ajout des données des colonnes D et E
ListBox1.List(ListBox1.ListCount - 1, 1) = Cells(ligne, 4)
ListBox1.List(ListBox1.ListCount - 1, 2) = Cells(ligne, 5)
End If
Next
End If
End Sub
Thorak83
Messages postés
1051
Date d'inscription
jeudi 20 juin 2013
Statut
Membre
Dernière intervention
22 décembre 2017
151
Modifié par Thorak83 le 18/03/2015 à 10:58
Modifié par Thorak83 le 18/03/2015 à 10:58
oups
Option Compare Text
Private Sub TextBox21_Change()
Application.ScreenUpdating = False
Range("A2").Select ' on se positionne en A2
ListBox1.Clear
If TextBox21 <> "" Then
Do While ActiveCell.Value <> "" ' tant que la cellule active n'est pas vide on entre dans la boucle
If ActiveCell.Value Like "*" & TextBox21 & "*" Then
ActiveCell.Interior.ColorIndex = 43 ' cellule active en vert
ActiveCell.Offset(0, 3).Interior.ColorIndex = 43 ' cellule active décallé de 3 colonnes en vert
ActiveCell.Offset(0, 4).Interior.ColorIndex = 43 ' cellule active décallé de 4 colonnes en vert
ListBox1.AddItem ActiveCell.Value
End If
ActiveCell.Offset(1, 0).Select ' on descend d'une ligne
Loop
End If
End Sub
samydidi31
Messages postés
10
Date d'inscription
vendredi 10 octobre 2014
Statut
Membre
Dernière intervention
18 mars 2015
>
Thorak83
Messages postés
1051
Date d'inscription
jeudi 20 juin 2013
Statut
Membre
Dernière intervention
22 décembre 2017
18 mars 2015 à 19:43
18 mars 2015 à 19:43
Super !!! Ça fonctionne nickel. Merci beaucoup

17 mars 2015 à 20:11