+++ Macro d'impression avec boucle +++

[Axlsquare]

Bonjour à tous,

Je cherche à faire une macro d'impression avec boucle.

J'ai quelques notions sur vba, mais là mes compétences touchent leurs limites!

Merci infiniment pour votre aide!

Alexis

Résumé du pb :

J'ai un onglet excel 2007 avec un template dont les cellules se mettent à jour automatiquement via une formule recherchev lorsque je saisi un code dans la cellule A1.

J'ai 100 pages à imprimer. Actuellement, je copie/colle dans la cellule A1, le premier code, les recherchev s'actualisent, je lance l'impression. Puis, je copie/colle le second code dans la cellule A1 en remplacement du premier, les recherchev s'actualisent, je lance l'impression, etc...

Ci-dessous un fichier excel attaché, résumant mon problème.

Merci!

 

[YANN-56]

Re : +++ Macro d'impression avec boucle +++

Juste pour le clin d'œil! 🙄

Tu as oublié des fleurs dans le titre... (Voire avec les "+")

Cherche aussi à résoudre ta recherche étape par étape.

Ici la fonction d'impression se mélange avec l'écriture sur ta feuille.
On avance moins vite avec un lièvre dans chaque main !!!
Ils ne regardent pas toujours du même coté.... 🙁

Amicalement

Yann

 

[youky(BJ)]

Re : +++ Macro d'impression avec boucle +++

Bonsoir Alexi, Yann,
Un petit exemple non testé . . .
Bruno

Private Sub CommandButton1_Click()
For lig = 2 To [G65000].End(3).Row
[A1] = Cells(lig, 7)
rep = MsgBox("Poursuivre l'impression", vbYesNoCancel + vbExclamation, "IMPRESSION")
     If rep = vbCancel Then
      rep2 = MsgBox("ARRETER LES IMPRESSIONS", vbOKCancel + vbCritical, "ARRET")
       If rep2 = vbOK Then Exit Sub
     Else
       If rep = vbYes Then Feuil1.PrintOut
     End If
End Sub