XL 2013 Problème impression avec incrémentation d'une cellule (autre qu'un compteur)

Christophe78129

XLDnaute Nouveau
Bonjour,
Voilà une quinzaine de jours que je suis bloqué sur un problème, j'aimerai créer une macro pour imprimer la feuille « Suivi » et « Prise » avec dans la case Suivi!J7 et Prise!C6 la valeur de la case Valeurs!A2 de la feuille « Valeurs », recommencer avec la cellule Valeurs!A3 ainsi de suite, jusqu'à la cellule vide (le nombre de cellule Valeurs pouvant varier).

cellule Valeurs!A2 dans Prise!C6 et Suivi!J7
1
Impression des feuilles
Incrémentation cellule Valeurs
Si cellule est vide alors sortie programme
Sinon retour 1

Si quelqu’un a une solution, j’en serai ravi.

Merci d’avance et bonne journée.
 

Pièces jointes

  • essaiimpression.xlsx
    13.7 KB · Affichages: 7

job75

XLDnaute Barbatruc
Bonjour Christophe78129, bienvenue sur XLD,

Il ne fallait pas attendre 15 jours ! Voici la macro :
VB:
Sub Imprimer()
Dim c1 As Range, c2 As Range, i&
With Sheets("Suivi")
    Set c1 = .[J7]
    .PageSetup.PrintArea = "A3:K13"
    .PageSetup.Zoom = False
    .PageSetup.FitToPagesWide = 1
End With
With Sheets("Prise")
    Set c2 = .[C6]
    .PageSetup.PrintArea = "B2:J20"
    .PageSetup.Zoom = False
    .PageSetup.FitToPagesWide = 1
End With
With Sheets("Valeurs").[A1].CurrentRegion
    For i = 2 To .Rows.Count
        c1 = .Cells(i, 1): c1.Parent.PrintOut 'PrintPreview 'pour tester
        c2 = c1: c2.Parent.PrintOut 'PrintPreview 'pour tester
    Next
End With
End Sub
Bonne journée.
 

sousou

XLDnaute Barbatruc
Bonjour,
voici une piste à préciser dans ton contexte: la mise en page de tes feuilles suivi et prise, et l'impression que j'ai géré avec une prvisualisation pour le test
Sub imprime()
With Sheets("Valeurs")
n = 2
While .Cells(n, 1) <> ""
Call imprimf(.Cells(n, 1))
n = n + 1
Wend
End With
End Sub

Sub imprimf(v)
Sheets("Suivi").Range("j7") = v
Sheets("Prise").Range("c6") = v
Sheets(Array("Suivi", "Prise")).PrintPreview
End Sub
Job a toujours une solution fignolé ;)
 

Christophe78129

XLDnaute Nouveau
Bonjour,
Et merci Job et Sousou pour votre réactivité et vos réponse, j'essaie (avant d'appeler à l'aide) de trouver une solution, il est vrai que j'ai appris à faire de la programmation avec des langages que les jeunes ne peuvent pas connaitre, le Pascal et le Turbo Pascal ....o_O
Je vais pouvoir finir mon classeur, et le tester.
Je vous tiens au courant et encore merci.
Cordialement
 

Christophe78129

XLDnaute Nouveau
Bonsoir,
J'ai testé aujourd'hui et c'est impeccable. Merci encore.
J'ai juste un petit soucis pour finaliser mon projet, c'est une impression juste àprès celle dont j'ai eu la solution.
Après l'impression des feuilles, dans la même macro, je voudrai imprimer une feuille nommée "PPI" des cellules "A1 à M32", au format A3, orientation paysage et avec "ajuster la feuille à une page".
J'ai fait plusieurs tentatives et chaque fois j'ai une erreur 438.
Si quelqu'un peut m'aider...
Cordialement
 

Statistiques des forums

Discussions
311 725
Messages
2 081 940
Membres
101 845
dernier inscrit
annesof