XL 2013 Impression auto par rapport à une liste

candido57

XLDnaute Occasionnel
Bonjour,

J'ai une liste avec des noms de 1 à 9 dans la feuille "Donnée A2:A10". Dans la feuille "Base", en B4, je souhaiterais que cette cellule passe de 1,2,3 et ainsi de suite et que la fiche s'imprimée jusqu'à la fin de la liste , c'est à dire 9.
N°1 impression, N°2 impression et ainsi de suite ... Jusqu'à 9 (Ma liste sera plus longue).
Actuellement , je change le numéro en B4 et j'imprime avec le bouton imprimante page par page.
Merci d'avance
 

Pièces jointes

  • Formulaire .xlsm
    53 KB · Affichages: 3
Solution
Exact, il manque un "+1" à cause de la ligne des titres.
Dans la PJ j'ai remplacé le Print par un msgbox. Quand ça marchera il suffira d'inverser les commentaires;
Par contre je vais bien jusqu'à la dernière feuille, la 9.
VB:
Sub Imprimante_Click()
    Dim Ligne%, DL%
    Application.ScreenUpdating = False
    DL = Sheets("Donnée").Cells(Cells.Rows.Count, "A").End(xlUp).Row
    If [B4] = "" Then NumB4 = 1 Else NumB4 = [B4]
    For Ligne = NumB4 + 1 To DL
        [B4] = Sheets("Donnée").Cells(Ligne, "A")
        Calculate
        'ActiveSheet.PrintOut
        MsgBox "Impression feuille : " & [B4]
    Next Ligne
End Sub

NB:
XLD est un site d'échange mais aussi une vaste base de données, alors soyez compréhensif quand on vous demande...

candido57

XLDnaute Occasionnel
J'essaie de comprendre ce que tu me dis , mais comme je suis nul en macro, je plane une peu.
En tout les cas, ça fonctionne très bien à partir de 1 et ça m'imprime toute la liste correctement jusqu'à 147.
Peux tu m'aider s'il te plait ?
Bonjour,

Je n'y arrive pas , je ne sais pas comment aller chercher le numéro de la liste au lieu qu'il prenne la ligne.
Si tu peux m'aider ou m'aiguiller ?
 

Discussions similaires

Statistiques des forums

Discussions
314 508
Messages
2 110 327
Membres
110 737
dernier inscrit
bigDaron