Créer un module de recherche sur excel
cs_henya
Messages postés
1
Date d'inscription
jeudi 5 août 2004
Statut
Membre
Dernière intervention
5 août 2004
-
5 août 2004 à 21:29
dp_favresa Messages postés 132 Date d'inscription vendredi 23 juillet 2004 Statut Membre Dernière intervention 11 mai 2010 - 12 août 2004 à 13:16
dp_favresa Messages postés 132 Date d'inscription vendredi 23 juillet 2004 Statut Membre Dernière intervention 11 mai 2010 - 12 août 2004 à 13:16
A voir également:
- Créer un module de recherche sur excel
- Arctan sur excel - Forum VBA Office (Excel, Word ...)
- Creer une gmao sur excel - Forum Visual Basic 6
- Barre de recherche php ✓ - Forum PHP
- Créer un bulletin scolaire - Forum PHP
- Créer un mot mélé - Forum Java
1 réponse
dp_favresa
Messages postés
132
Date d'inscription
vendredi 23 juillet 2004
Statut
Membre
Dernière intervention
11 mai 2010
12 août 2004 à 13:16
12 août 2004 à 13:16
Bonjour,
Vous pouvez essayer le code ci-dessous, il ouvre une boîte de
dialogue dans laquelle typer la valeur recherchée puis essaye
de la trouver dans la feuille.
Dim MaValeur As String
On Error Resume Next
MaValeur = InputBox(" Typez la valeur recherchée")
Cells.Select
Selection.Find(What:=MaValeur, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate
ActiveCell.Select
Bon(ne) courage, développement, salutation...
(choisissez ce qui vous convient) dp
Vous pouvez essayer le code ci-dessous, il ouvre une boîte de
dialogue dans laquelle typer la valeur recherchée puis essaye
de la trouver dans la feuille.
Dim MaValeur As String
On Error Resume Next
MaValeur = InputBox(" Typez la valeur recherchée")
Cells.Select
Selection.Find(What:=MaValeur, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate
ActiveCell.Select
Bon(ne) courage, développement, salutation...
(choisissez ce qui vous convient) dp
