XL 2013 Impression auto par rapport à une liste

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

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...
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 ?
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour