Vérifier existence valeur autre feuille

ComprendreExcel64 Messages postés 8 Statut Membre -  
jordane45 Messages postés 30426 Date d'inscription   Statut Modérateur Dernière intervention   -
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

  1. ComprendreExcel64 Messages postés 8 Statut Membre
     
    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
  2. ComprendreExcel64 Messages postés 8 Statut Membre
     
    La feuille où il y a toutes les références s'appelle désormais "nomenclature"
    0
  3. jordane45 Messages postés 30426 Date d'inscription   Statut Modérateur Dernière intervention   4 830
     
    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