Discussion :

[franckla]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Merci de votre aide

[Oussbaba au rhum]

salut,

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

[franckla]

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

[fred65200]

bonsoir franckla

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[franckla]

Bonjour FRED62500

Super, ça fonctionne.

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

[noobs]

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

[unparia]

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

[noobs]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[unparia]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set maPlage = Range("A1")

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ...
-

[noobs]

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 ?

[unparia]

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é.