Exit sub

[Résolu/Fermé]
Signaler
-
 odinateurs! -
Bonjour,


Merci de m'aider a faire cette macro
B1 a B10 contient des noms
si le code nom= InputBox("introduire Nom ") ne trouve dans la liste des noms B1 a B10
msgbox ("pas trouve")
then exit sub
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
nom = InputBox("introduire Nom ")


ligne = Sheets("Feuil1").[B:B].Find(nom, LookIn:=xlValues).Row

Me.nom = Sheets("Feuil1").Cells(ligne, 2)
Me.prenom = Sheets("Feuil1").Cells(ligne, 3)
ville = Sheets("Feuil1").Cells(ligne, 4)

End Sub

2 réponses

Messages postés
15831
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
12 juillet 2021
1 514
Bonjour,

une facon de faire:

    Dim ligne
    
    snom = InputBox("introduire Nom ")
    Set ligne = Sheets("Feuil1").[B:B].Find(snom, LookIn:=xlValues)
    If Not ligne Is Nothing Then
        nom = Sheets("Feuil1").Cells(ligne.Row, 2)
        prenom = Sheets("Feuil1").Cells(ligne.Row, 3)
        ville = Sheets("Feuil1").Cells(ligne.Row, 4)
    End If
Bonjour,

Encore une fois merci beaucoup