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
A voir également:
- Création d'un userform de recherche
- Creation de site web - Guide
- Recherche automatique des chaînes ne fonctionne pas - Guide
- Creation de compte google - Guide
- Creation compte gmail - Guide
- Media creation tool - Télécharger - Systèmes d'exploitation
1 réponse
Bonjour kelly,
Déjà de retour ? ;-)
Essaye ça :
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
Si je veux que lorsque je clic sur ok il me ferme le userform je met : Unload ?
Et tu mets ce nouveau sujet comme "résolu"!
A+