Exit sub

Résolu

odinateurs! -
odinateurs! - 5 mai 2016 à 11:23

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

A voir également:

B exit avis
B&you - Guide
Clavier essentiel b ne fonctionne pas ✓ - Forum Clavier
B allemand ✓ - Forum Clavier
Code ascii de b - Guide
Voyant c et b imprimante canon - Forum Imprimante

2 réponses

Réponse 1 / 2

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

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

Réponse 2 / 2

odinateurs!

Bonjour,

Encore une fois merci beaucoup

Discussions similaires

Fiabilité B-part ?

Savoir si un site est fiable

comment écrire la lettre B à l'envers?

Bloqué dans le bios après un reset

boutons B et C allumés sur mon imprimante CANON PIXMA TS3350

Votre réponse

Discussions similaires