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.
 

Fichiers joints

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
 

job75

XLDnaute Barbatruc
Bonsoir Christophe78129, sousou,

Regardez ma macro : elle ajuste l'impression à une page et pour cela il faut mettre avant le zoom à False.

A+
 

Christophe78129

XLDnaute Nouveau
Bonsoir,

Je ne sais pas si j'ai tout perdu en programmation, où bien la fatigue, mais impossible de créer la macro pour l'impression comme préciser dans mon post d'hier soir.
Cordialement.
 

Christophe78129

XLDnaute Nouveau
Bonjour,
J'ai enfin réussi, je pense que la solution ne doit pas être vraiment fignolé, mais le résultat est comme je le voulais.
Bonne journée.
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas