Macro Excel

Fermé

Evedll Messages postés 74 Date d'inscription vendredi 6 juillet 2007 Statut Membre Dernière intervention 26 septembre 2023 - 14 avril 2011 à 19:11
eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 - 14 avril 2011 à 19:23

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

A voir également:

Macro Excel
Liste déroulante excel - Guide
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Formule excel - Guide
Macro word - Guide
Si et excel - Guide

1 réponse

Réponse 1 / 1

eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 7 213
Modifié par eriiic le 14/04/2011 à 19:25

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

Discussions similaires

Transformer un chiffre en lettres dans excel sans macro

Discussions similaires

Newsletters