Création d'un userform de recherche
Résolu
kellyp13
Messages postés
24
Statut
Membre
-
kellyp13 Messages postés 24 Statut Membre -
kellyp13 Messages postés 24 Statut Membre -
Bonjour,
J'ai créer un userform de recherche c'est a dire je saisi la référence de la référence de l'article que je recherche dans un textbox et lorsque je clic sur ok qu'il me le surligne en rouge dans mon tableau excel
Mais impossible de trouver comment faire pourriez vous m'aider
Merci d'avance
Kelly
Ps: ci-joint mon fichier ==> https://www.cjoint.com/?3CskQUwNDuG
J'ai créer un userform de recherche c'est a dire je saisi la référence de la référence de l'article que je recherche dans un textbox et lorsque je clic sur ok qu'il me le surligne en rouge dans mon tableau excel
Mais impossible de trouver comment faire pourriez vous m'aider
Merci d'avance
Kelly
Ps: ci-joint mon fichier ==> https://www.cjoint.com/?3CskQUwNDuG
1 réponse
-
Bonjour kelly,
Déjà de retour ? ;-)
Essaye ça :Private Sub CommandButton1_Click() Dim trouve As Range 'on cherche dans la colonne A le contenu du textbox1 Set trouve = Sheets("Donné").Columns(1).Cells.Find(TextBox1.Value) If Not trouve Is Nothing Then 'si on trouve, alors on efface les couleurs colonne A Sheets("Donné").Columns(1).Interior.ColorIndex = xlNone 'on colorie la cellule trouvée trouve.Interior.ColorIndex = 3 Else 'sinon on dit qu'on n'a pas trouvé MsgBox "référence non trouvée" TextBox1 = "" End If End Sub
