Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Affichage boucle

Aucune réponse
Avatar
cxxhl
Bonjour,
voici ma macro actuelle :

Sub Nom()
RechercheNom = InputBox("Quel est votre nom?")
ligne = 7
colonne = 1
Do Until Cells(ligne, colonne).Value = RechercheNom
ligne = ligne + 1
Loop
Cells(ligne, colonne).Select
MsgBox "" & ActiveCell.Offset(0, 6)
End Sub

j'aimerais la modifier de façon à ce que si toute la liste ( de [A7] à [A200] ) a été traversée, et que le nom n’a pas été trouvé, la macro puisse afficher le message « erreur », et sélectionner la première cellule vide, en dessous de la liste de noms soit la cellule [A201].
Or je ne sais pas comment faire
Merci pour votre aide

Réponses