Sujet Précédent Sujet Suivant

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 38136 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 16 avril 2024 - 2 août 2017 à 17:52
Bonjour,

Dans une feuille nommé "Feuil1" il y a un userform avec un textBox sur lequel on rentre une référence.
Sur une autre feuille nommée "Feuille2" il y a tout un tas de référence existante.

Quand l'utilisateur écrit dans le textbox une référence qui n'est pas présente dans la feuille 2, je voudrai qu'un Message d'erreur apparaissent. Ce message permettra à l'utilisateur de se rendre compte que la référence qu'il a voulu rentrer n'existe pas dans la feuille 2.

Avez vous une idée de comment faire?

Cordialement,

4 réponses

Réponse 1 / 4
jordane45 Messages postés 38136 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 16 avril 2024 4 649
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
0
Réponse 2 / 4
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
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. 

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 :ICI

Merci d'y penser dans tes prochains messages.
Jordane45
0
Réponse 3 / 4
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
La feuille où il y a toutes les références s'appelle désormais "nomenclature"
0
Réponse 4 / 4
jordane45 Messages postés 38136 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 16 avril 2024 4 649
2 août 2017 à 17:52
Pour commencer... 
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 ??
0

Discussions similaires

Reporter valeur sur autre feuille avec critere
Otk168 -
via55 -

4 réponses
Formule Excel : "SI" une cellule contient un mot, alors ?
Tonio5933 -
Mike-31 -

9 réponses
Les feuilles Diddl
TiiteBaakaa -
soso -

8 réponses
Feuille de score belote
nulleeninfo -
brucine -

7 réponses
[Excel] Vérifier existence cellules colonne A dans colonne C
chatBoO -
chatBoO -

7 réponses