Création d'un userform de recherche
Résolu
kellyp13
Messages postés
22
Date d'inscription
Statut
Membre
Dernière intervention
-
kellyp13 Messages postés 22 Date d'inscription Statut Membre Dernière intervention -
kellyp13 Messages postés 22 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Création d'un userform de recherche
- Recherche automatique des chaînes ne fonctionne pas - Guide
- Creation de compte google - Guide
- Creation de site web - 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+