Recherche Macro

[Nico19]

Bonjour,

Je souhaiterais réaliser une recherche a l aide de macro.
- Selectionner le paramétre de recherche: nom des colones
- Visionner la ou les lignes trouvées dans une autre page ou fenetre
- Reinitialiser à l aide d un bouton
- Posséder une fenetre simple et agreable a utiliser

 

[Cousinhub]

Re : Recherche Macro

Re-,
bien sur, désolé
Remplace la ligne concernant le code de filtre automatique par ceci :

Range("A1:A" & [IV1].End(xlToLeft).Column).AutoFilter Field:=ComboBox1.ListIndex + 1, Criteria1:=ComboBox2.Value

 

[Nico19]

Re : Recherche Macro

Tout simplement magique!!!!
Tu es pas obligé de répondre car je t ai deja assez embete mais sais tu comment on change le nom du bouton command....
Oui un détail qui m a echapé lol
Sinon j apprecie beaucoup ton aide!!!!!
Un grand merci tu as mon respect le plus sincere

 

[Cousinhub]

Re : Recherche Macro

Re-,
euh, le nom du bouton command?
Mettre un autre intitulé dans le cercle?
Clic droit dessus, puis clic gauche à l'intérieur, tu peux changer le nom, la couleur, la taille....
C'est ça?

 

[Nico19]

Re : Recherche Macro

en fait celui qui apparait dans la fenetre apres avoir cliqué sur recherche

 

[Cousinhub]

Re : Recherche Macro

OK,
tu vas dans l'éditeur, tu cliques droit sur l'userform/Propriétés

5ème ligne, dans Caption, tu entres ce que tu veux
ajoutes des espaces pour centrer, et regarde si c'est bon, sinon back to ajoutes....

 

[Nico19]

Re : Recherche Macro

Merci pour tout j en ai beaucoup appris en une journée !!!
Bonne continuation, c super sympa de m avoir aidé!!!

 

[Nico19]

Re : Recherche Macro

Petite question sup
Serait il possible de faire apparaitre une petite fenetre style : Saisir les données Quand tu ne rentre rien dans les deux cases et que tu valide avec le bouton. Actuellement ca me renvoi a la macro avce une erreur

Merci par avance

 

[Cousinhub]

Re : Recherche Macro

Bonjour Nico,

rajoutes ces quelques lignes à cet endroit :

[COLOR="Red"]Private Sub CommandButton1_Click()[/COLOR]
If ComboBox1.Value = "" Then
MsgBox "Veuillez remplir tous les champs"
ComboBox1.SetFocus: Exit Sub
ElseIf ComboBox2.Value = "" Then
MsgBox "Veuillez remplir tous les champs"
ComboBox2.SetFocus: Exit Sub
End If

 

[Nico19]

Re : Recherche Macro

Encore merci...