XL 2016 Impression feuille avec changement de numéro

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 !

cbreny

XLDnaute Nouveau
Bonjour,

Pour la balisage d'une réserve, j'aurais besoin d'imprimer une feuille excel avec des numéros d'emplacements qui changent.
L'année dernière je l'ai fais manuellement mais j'essaye d'automatiser la chose.
Pour l'instant j'ai créé une feuille de balisage (feuille 1 = modèle) et ma base de données avec les numéros d'emplacements ( 2 colonnes: sol et 1 er étage)

Je me suis renseigné j'ai vu des exemples de codes mais je ne comprends pas comment l'adapter pour moi.
Si quelqu'un a une solution je suis preneur.
Je vous mets le fichier en pièce jointe.
 

Pièces jointes

Bonjour,

Pour la balisage d'une réserve, j'aurais besoin d'imprimer une feuille excel avec des numéros d'emplacements qui changent.
L'année dernière je l'ai fais manuellement mais j'essaye d'automatiser la chose.
Pour l'instant j'ai créé une feuille de balisage (feuille 1 = modèle) et ma base de données avec les numéros d'emplacements ( 2 colonnes: sol et 1 er étage)

Je me suis renseigné j'ai vu des exemples de codes mais je ne comprends pas comment l'adapter pour moi.
Si quelqu'un a une solution je suis preneur.
Je vous mets le fichier en pièce jointe.
Bonjour,
Un classeur .Xlsx ne peut contenir de macro
Ce code devrait faire
VB:
Sub imprimer()
    Dim C As Range
    With Feuil2
        For Each C In .Range("a2:a" & .Cells(.Rows.Count, 1).End(xlUp).Row)
            Feuil1.[c4] = C: Feuil1.[i4] = C.Offset(, 1)
            Feuil1.PrintPreview    ' supprimer apres test
            'Feuil1.PrintOut ' activer apres test
        Next
    End With
End Sub
**Pj.Modifié
 

Pièces jointes

Dernière édition:
Parfait, je vous remercie ça fonctionne parfaitement.
Merci encore pour le gain de temps.
Petit bémol, l'impression ne s'arrête pas à la fin des numéro.
Auriez-vous une petite modification à ajouter ?
 
Dernière édition:
Parfait, je vous remercie ça fonctionne parfaitement.
Merci encore pour le gain de temps.
Petit bémol, l'impression ne s'arrête pas à la fin des numéro.
Auriez-vous une petite modification à ajouter ?
RE..
En effet, désolé 🥲 corrigé en #2
Il faut évidemment qu'on ne clique pas plusieurs fois sur le bouton.
Pour pallier à cette éventualité une version qui n'imprime pas plusieurs fois
 

Pièces jointes

Dernière édition:
- 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
Retour