Macro qui s'arrete quand la cellule est vide

[dilank]

Bonjour,

En pièce jointe un fichier exemple.

en JAUNE cadre à imprimer pour ici : 1 , 2 3 4 5 et 6

Donc il me faudrait une macro qui imprime tout.. quand il y a un numero dans la colonne AE et qui s'arrête toute seule quand c'est vide ici après le 6. Mais pour certaines fois cela peut aller jusqu'à 10 ou 100 etc...

Merci de m'aider et pour vos réponses.

 

[st007]

Re : Macro qui s'arrete quand la cellule est vide

Bonsoir,

Sub impression()

ligne = Range("AE1048576").End(xlUp).Row
ActiveSheet.PageSetup.PrintArea = Range("A4", Cells(ligne, 7)).Address
end sub

un autre exemple de ce qu'il faut imprimer, car je ne suis pas sure d'avoir compris .... merci

 

[dilank]

Re : Macro qui s'arrete quand la cellule est vide

bonjour,

humm non ..

alors j'explique ... ^^

la macro doit faire :
dans i4 mettre 1 et imprimer la feuille, 2 puis imprimer, 3 puis imprimer etc.... et s'arrêter après le 6 ici.

Seulement des fois la base de donnée aura plus que 6 lignes. Par exemple 50.. donc imprimer les 50 feuilles et s'arrêter.

 

[dilank]

Re : Macro qui s'arrete quand la cellule est vide

bonjour, en pièce jointe j'ai refais un fichier test mais j'ai une erreur dans la macro ... mais je n'arrive pas à trouver 🙁

 

[dilank]

Re : Macro qui s'arrete quand la cellule est vide

erreur 424 ... je ne vois pas pourquoi...

 

[st007]

Re : Macro qui s'arrete quand la cellule est vide

Bonjour,

commence par enlever les "." points devant tes range

 

[st007]

Re : Macro qui s'arrete quand la cellule est vide

Sub IMPRESSION()
Dim K As Integer
With TEST
  For K = 4 To Range("AE" & Rows.Count).End(xlUp).Row
    If Range("K" & K) = "" Then
      Range("J4") = Range("AE" & K)
     Sheets("TEST").PrintPreview
    End If
  Next K
End With
End sub

mais ........

 

[dilank]

Re : Macro qui s'arrete quand la cellule est vide

par contre elle ne s'arrete pas...

 

[st007]

Re : Macro qui s'arrete quand la cellule est vide

ensuite, pour que ta macro s'arrête, pose la condition de AE non vide, sinon elle t'imprimeras des #NA

If Range("K" & K) = "" And Range("AE" & K) <> "" Then

Donc

Sub IMPRESSION()
Dim K As Integer
With TEST
  For K = 4 To Range("AE" & Rows.Count).End(xlUp).Row
    If Range("K" & K) = "" And Range("AE" & K) <> "" Then
      Range("J4") = Range("AE" & K)
     Sheets("TEST").PrintPreview
    End If
  Next K
End With
End Sub

ou bien ?

 

[dilank]

Re : Macro qui s'arrete quand la cellule est vide

ah yes c'est ce que je voulais... ça fonctionne !!!

merci beaucoup tu me sauves ^^

 

[dilank]

Re : Macro qui s'arrete quand la cellule est vide

je trouve pas comment on "valide" la réponse...

 

[st007]

Re : Macro qui s'arrete quand la cellule est vide

On ne valide pas la réponse proposée, le #10 me semble tout a fait clair...
Après, tu peux toujours éditer ton premier message en ajoutant [résolu] dans le sujet, sauf si tu es curieux d'une proposition ou de l'avis d'un pro du vba.
@+