Macro Excel

Evedll Messages postés 79 Statut Membre -  
eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   -
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

1 réponse

  1.
    eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   7 281
     
    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
    0

Discussions similaires

Transformer un chiffre en lettres dans excel sans macro
vincentphilippos -
tontong -

6 réponses