Macro, si case vide, afficher un message + stopper l'execution.
Résolu/Fermé
Alexver
Messages postés
44
Date d'inscription
lundi 1 juillet 2013
Statut
Membre
Dernière intervention
21 août 2013
-
23 juil. 2013 à 11:21
Alexver Messages postés 44 Date d'inscription lundi 1 juillet 2013 Statut Membre Dernière intervention 21 août 2013 - 23 juil. 2013 à 12:10
Alexver Messages postés 44 Date d'inscription lundi 1 juillet 2013 Statut Membre Dernière intervention 21 août 2013 - 23 juil. 2013 à 12:10
A voir également:
- Vba si cellule vide alors message
- Coeur vide ✓ - Forum Réseaux sociaux
- Diff message ✓ - Forum Mobile
- Formate pour taxer client frigo vide ✓ - Forum Vos droits sur internet
- Si cellule contient texte alors ✓ - Forum Excel
- Excel si cellule contient texte alors 1 ✓ - Forum Excel
4 réponses
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 741
Modifié par pijaku le 23/07/2013 à 11:31
Modifié par pijaku le 23/07/2013 à 11:31
Bonjour,
1- si toutes tes cellules sont contigües, tu peux utiliser la syntaxe : Range("A1:A10").
Dans ton exemple :
Range("D3,D4,D5,D6,D7,D8,D9,D10,D11,D12,D13,D14,D15")
s'écrit avantageusement :
Range("D3:D15")
2- pour ton test :
Il te faut réaliser une boucle sur ce Range.
Tu peux procéder comme ceci, ajoute ce code en début de ta macro :
Cordialement,
Franck P
1- si toutes tes cellules sont contigües, tu peux utiliser la syntaxe : Range("A1:A10").
Dans ton exemple :
Range("D3,D4,D5,D6,D7,D8,D9,D10,D11,D12,D13,D14,D15")
s'écrit avantageusement :
Range("D3:D15")
2- pour ton test :
Il te faut réaliser une boucle sur ce Range.
Tu peux procéder comme ceci, ajoute ce code en début de ta macro :
Dim MaPlage As Range, Cel As Range Set MaPlage = Sheets("ajout_produit_composant").Range("D3:D15") For Each Cel In MaPlage 'pour toutes les cellules de la plage If Cel.Value = "" Then 'si elle est vide alors 'message à l'utilisateur MsgBox "La cellule : " & Cel.Address & " n'est pas remplie." 'sortie de la procédure Exit Sub End If Next
Cordialement,
Franck P