[VBA] verifier le contenu de plusieurs cellules avant impression

Bonjour,

je souhaite verifier le contenu de plusieurs cellules sur un meme onglet avant d'autoriser une impression du document. j'ai trouvé comment le faire pour une cellule. nota: les cellules à verifier ne sont pas toutes sur la meme ligne ou colonne
la partie concernée de ma macro ressemble pour le moment à ça:

Code:

---

If Range("b11").Value <> "" Then PrintOut copies:=1

---

Merci de votre aide

salut,

si tu n'as pas beaucoup de cellules, il suffit de mettre des "OR" entre tes conditions:lol:

Bonjour Oussbaba au Rhum,

je decouvre la creation de macro, aussi peux tu etre plus explicite?
j'ai 12 cellules à verifier. ou dois je placer la syntaxe "or"?
peux tu ecrire rapidement un exemple?

encore une fois merci de l'aide

bonsoir franckla

essaie le code suivant après avoir modifié les cellules que tu dois contrôler

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub test() Dim ok As Boolean Dim maPlage, c As Range 'exemple avec 16 cellules, adapte selon tes besoins Set maPlage = Range("A1:A3,B11,B13,C4,D3:E7") 'on verifie si les cellules ne sont pas vides 'ok = -1 ==> cellule remplie // ok = 0 ==> cellule vide For Each c In maPlage ok = c.Value <> "" 'si une cellule est vide, on sort de la macro 'boucle If ok = 0 Then End 'Exit For Next c 's'il n'y a pas de cellule vide, on imprime (ok = true) If ok Then ActiveSheet.PrintOut ,,1 End Sub

---

cordialement

Bonjour FRED62500

Super, ça fonctionne.

Merci beaucoup à toi et à tous ceux qui participe à ce forum.

Bonjour, j'ai exactement la même demande et j'ai testé le code mais rien ne fonctionne, je ne sais pas ou il faut l’insérer en faite.
Pourriez vous m'expliquer ou me fournir un fichier avec exemple ?

Merci bien

Bonjour
La code montré par Fred EST expliqué (les commentaires des lignes SONT des explications).:cry:

J'ouvre excel, développeur, VBA, feuil1 et je colle le code : ?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub test() Dim ok As Boolean Dim maPlage, c As Range 'exemple avec 1 cellule, adapte selon tes besoins Set maPlage = Range("A1") 'on verifie si les cellules ne sont pas vides 'ok = -1 ==> cellule remplie // ok = 0 ==> cellule vide For Each c In maPlage ok = c.Value <> "" 'si une cellule est vide, on sort de la macro 'boucle If ok = 0 Then End 'Exit For Next c 's'il n'y a pas de cellule vide, on imprime (ok = true) If ok Then ActiveSheet.PrintOut , , 1 End Sub

---

et donc cela devrait imprimer avec minimum la cellule A1 non vide ?



EDIT : ok au temps pour moi, erreur de ma part, je n'executé pas la macro mais lancé l'impression..., donc là j'ai mis la macro sur un bouton "imprimer", si A1 et vide rien ne se passe, si A1 non vide, il lance l'impression.
Par contre dans le cas de plusieurs cellules, est-il possible au lieu de ne rien dire et de ne pas imprimer, d'indiquer les cellules vides qui doivent être remplie ?

Code:

---

Set maPlage = Range("A1")

---

Code:

---

For Each c In maPlage

---

Hé bé !
Je vais en faire autant (avec le même "logique")
- Je ne prends qu'une seule bûchette dans ma main
- Pour chaque bûchette que je trouve dans ma main ..
Etc ...
Je me sauve ...
-

EDIT : ok au temps pour moi, erreur de ma part, je n'executé pas la macro mais lancé l'impression directement..., donc là j'ai mis la macro sur un bouton "imprimer", si A1 est vide rien ne se passe, si A1 non vide, il lance l'impression.
Par contre dans le cas de plusieurs cellules, est-il possible au lieu de ne rien dire et de ne pas imprimer, d'indiquer les cellules vides qui doivent être remplie ?

Tu as ouvert une discussion sur le même sujet dans la section Excel. Tu y as une réponse aussi élémentaire que l'est ta difficulté. ;)