exit sub Résolu/Fermé

Question

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

Configuration: Windows / Chrome 50.0.2661.94

f894009 · Answer

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

odinateurs! · Answer

Bonjour,

Encore une fois merci beaucoup

Exit sub

2 réponses

Discussions similaires