Formulaire pour rechercher une valeur
Résolu/Fermé
andy2092
Messages postés
78
Date d'inscription
dimanche 13 mai 2018
Statut
Membre
Dernière intervention
7 février 2024
-
5 avril 2019 à 14:27
andy2092 Messages postés 78 Date d'inscription dimanche 13 mai 2018 Statut Membre Dernière intervention 7 février 2024 - 5 avril 2019 à 15:22
andy2092 Messages postés 78 Date d'inscription dimanche 13 mai 2018 Statut Membre Dernière intervention 7 février 2024 - 5 avril 2019 à 15:22
A voir également:
- Formulaire pour rechercher une valeur
- Rechercher ou entrer l'adresse - Guide
- Rechercher une adresse - Guide
- Rechercher une chanson - Guide
- Formulaire de réclamation facebook - Guide
- Rechercher et remplacer word - Guide
4 réponses
via55
Messages postés
14495
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
7 novembre 2024
2 734
5 avril 2019 à 14:43
5 avril 2019 à 14:43
Bonjour andy
On t'aidera avec plaisir si tu fournis un exemple de ton fichier en le postant sur mon-partage.fr, tu fais alors créer un lien que tu copies et reviens coller ici
Cdlmnt
Via
On t'aidera avec plaisir si tu fournis un exemple de ton fichier en le postant sur mon-partage.fr, tu fais alors créer un lien que tu copies et reviens coller ici
Cdlmnt
Via
andy2092
Messages postés
78
Date d'inscription
dimanche 13 mai 2018
Statut
Membre
Dernière intervention
7 février 2024
5 avril 2019 à 15:02
5 avril 2019 à 15:02
via55
Messages postés
14495
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
7 novembre 2024
2 734
5 avril 2019 à 15:06
5 avril 2019 à 15:06
Pourquoi veux tu remplacer par une macro ce qu'Excel te permet de faire par Rechercher (raccourci Ctrl+F) ?
andy2092
Messages postés
78
Date d'inscription
dimanche 13 mai 2018
Statut
Membre
Dernière intervention
7 février 2024
5 avril 2019 à 15:08
5 avril 2019 à 15:08
Je souhaiterai faire une recherche dans une plage spécifique (Ex : A1:A800).
via55
Messages postés
14495
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
7 novembre 2024
2 734
5 avril 2019 à 15:14
5 avril 2019 à 15:14
Code à associer au bouton de l'UF :
Private Sub CommandButton1_Click() On Error GoTo erreur If TextBox1.Value <> "" Then ligne = Range("A1:A800").Find(TextBox1.Value, , , xlWhole, xlByColumns, xlPrevious).Row Range("A" & ligne).Select Exit Sub End If erreur: MsgBox "Ce code n'existe pas" End Sub
andy2092
Messages postés
78
Date d'inscription
dimanche 13 mai 2018
Statut
Membre
Dernière intervention
7 février 2024
5 avril 2019 à 15:22
5 avril 2019 à 15:22
Ça fonctionne parfaitement !!! Merci beaucoup :)