Vérifier existence valeur autre feuille
Fermé
ComprendreExcel64
Messages postés
8
Date d'inscription
mercredi 12 juillet 2017
Statut
Membre
Dernière intervention
2 août 2017
-
2 août 2017 à 15:43
jordane45 Messages postés 38372 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 9 janvier 2025 - 2 août 2017 à 17:52
jordane45 Messages postés 38372 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 9 janvier 2025 - 2 août 2017 à 17:52
A voir également:
- Vérifier existence valeur autre feuille
- Verifier un lien - Guide
- Feuille de pointage excel - Télécharger - Tableur
- Comment supprimer une feuille sur word - Guide
- Verifier compatibilite windows 11 - Guide
- Excel vérifier si une valeur existe dans une colonne ✓ - Forum Excel
4 réponses
jordane45
Messages postés
38372
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
9 janvier 2025
4 722
2 août 2017 à 15:46
2 août 2017 à 15:46
Bonjour,
Oui... il te suffit de faire un FIND
https://forums.commentcamarche.net/forum/affich-37621992-methode-find-dans-vba-recherche-de-donnees-sous-excel
Oui... il te suffit de faire un FIND
https://forums.commentcamarche.net/forum/affich-37621992-methode-find-dans-vba-recherche-de-donnees-sous-excel
ComprendreExcel64
Messages postés
8
Date d'inscription
mercredi 12 juillet 2017
Statut
Membre
Dernière intervention
2 août 2017
Modifié le 2 août 2017 à 17:51
Modifié le 2 août 2017 à 17:51
Merci pour votre réponse.
J'ai pu étudié les codes proposés mais rien ne se passe lorsque je l'insère dans ma macro. Pourtant quand je le lis, il à l'air d'etre bon.
J'ai pu étudié les codes proposés mais rien ne se passe lorsque je l'insère dans ma macro. Pourtant quand je le lis, il à l'air d'etre bon.
Sub Cherche() Dim Trouve As Range, PlageDeRecherche As Range Dim Valeur_Cherchee As String, AdresseTrouvee As String Valeur_Cherchee = Référence.Value Set PlageDeRecherche = Sheets("NOMENCLATURE").Columns(1) Set Trouve = PlageDeRecherche.Cells.Find(what:=Valeur_Cherchee, LookAt:=xlWhole) If Trouve Is Nothing Then AdresseTrouvee = Valeur_Cherchee & " n'est pas présent dans " & PlageDeRecherche.Address Else AdresseTrouvee = Trouve.Address End If MsgBox AdresseTrouvee 'vidage des variables Set PlageDeRecherche = Nothing Set Trouve = Nothing End Sub
EDIT : Ajout des balises de code (la coloration syntaxique).
Explications disponibles ici :ICIMerci d'y penser dans tes prochains messages.Jordane45 |
ComprendreExcel64
Messages postés
8
Date d'inscription
mercredi 12 juillet 2017
Statut
Membre
Dernière intervention
2 août 2017
2 août 2017 à 16:16
2 août 2017 à 16:16
La feuille où il y a toutes les références s'appelle désormais "nomenclature"
jordane45
Messages postés
38372
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
9 janvier 2025
4 722
2 août 2017 à 17:52
2 août 2017 à 17:52
Pour commencer...
.... NE JAMAIS METTRE D'ACCENTS dans le nom des variables !!!
Ensuite... tu as testé le code en mode PAS à PAS pour voir ce que valent les différentes valeurs et voir comment se déroule la macro ??
Valeur_Cherchee = Référence.Value
.... NE JAMAIS METTRE D'ACCENTS dans le nom des variables !!!
Ensuite... tu as testé le code en mode PAS à PAS pour voir ce que valent les différentes valeurs et voir comment se déroule la macro ??