Création d'un userform de recherche
Résolu/Fermé
kellyp13
Messages postés
22
Date d'inscription
mardi 17 mars 2015
Statut
Membre
Dernière intervention
18 mars 2015
-
18 mars 2015 à 10:33
kellyp13 Messages postés 22 Date d'inscription mardi 17 mars 2015 Statut Membre Dernière intervention 18 mars 2015 - 18 mars 2015 à 11:57
kellyp13 Messages postés 22 Date d'inscription mardi 17 mars 2015 Statut Membre Dernière intervention 18 mars 2015 - 18 mars 2015 à 11:57
A voir également:
- Création d'un userform de recherche
- Media creation tool - Télécharger - Systèmes d'exploitation
- Recherche musique - Guide
- Recherche par image - Guide
- Creation compte gmail - Guide
- Copiez la ligne indiquant aux moteurs de recherche de ne pas référencer la page. ✓ - Forum Référencement
1 réponse
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 à 10:44
18 mars 2015 à 10:44
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
18 mars 2015 à 10:45
18 mars 2015 à 10:45
18 mars 2015 à 10:52
Si je veux que lorsque je clic sur ok il me ferme le userform je met : Unload ?
18 mars 2015 à 11:03
Et tu mets ce nouveau sujet comme "résolu"!
A+
18 mars 2015 à 11:10