Macro Excel

Question

Bonjour à tous,
Je voudrai mettre une macro en boucle mais ce que j'ai fait ne convient pas :

      If [E16] = "" Then
        MsgBox "Saisir le type de paiement"
        [F16].Select
     End If

Ce qu'il me faut c'est qu'il vérifie que si dans une des cellules de E16 à E25 s'il y a une croix "x", il propose d'afficher une boite de dialogue afin de saisir le type de paiement dans la cellule de droite si celui ci n'est pas déjà saisi.
Je ne sais pas faire les boucles et j'ai donc répété mon code pour chaque cellule de E16 à E25 et de ce fait, il m'affiche autant de fois la même fenêtre. 
Je voudrai qu'elle s'affiche une fois seulement pour rappel.

Merci de bien vouloir m'aider.
Evelyne


Configuration: Windows XP / Internet Explorer 7.0

eriiic · Answer

Bonjour,   

Une possibilité :   
Sub test()  
    Dim c As Range  
    For Each c In Range("E16:E25")  
        If c = "x" Then  
            MsgBox "Saisir le type de paiement"  
            c.Offset(1, 0).Select  
            Exit For  
        End If  
    Next c  
End Sub
remplacer c.Offset(1, 0).Select par c.select si tu préfères sélectionner la cellule du 'x'
eric

Macro Excel

1 réponse

Discussions similaires

Newsletters