Imprimer diverses cellules

[piep14]

Bonsoir a tous,

Je voudrai réussir a faire un trucs tout bête (bien que je n'y arrive pas)

Un tableau excel avec deux onglets
- Valeurs (suite de valeurs que je voudrais imprimer sur un document a chaque fois, une celulle = une impression)
- Maquette (le format de l'impression)

Je vous met en pièce joint le fichier !
Si vous avez pas compris, je peux essayer de mieux expliquer 😀

 

[Cousinhub]

Re : Imprimer diverses cellules

Bonjour, essaie le code suivant :

Sub imprim()
Sheets("Feuil1").Activate
For Each cel In Range("A1:A" & [a65000].End(xlUp).Row)
With Sheets("Feuil2")
.[a1] = cel
.PrintOut , , , True ' Ici, ce n'est que pour l'aperçu(supprime,,,True)
End With
Next cel
End Sub

 

[piep14]

Re : Imprimer diverses cellules

Ca marche bien ton trucs. Je ne peux imprimer maintenant, mais vu l'aperçu, ca me semble tout bon ...

Par contre, peut-il ignorer les cellules vides dans la colonne A et ne prendre que celle avec une valeur ?

Merci beaucoup

 

[piep14]

Re : Imprimer diverses cellules

J'ai fait finalement comme ca :

Sub imprim()
    Sheets("Feuil1").Activate
    For Each cel In Range("A1:A" & [a65000].End(xlUp).Row)
        With Sheets("Feuil2")
            If cel <> "" Then
                .[a1] = cel
                .PrintOut , , , True ' Ici, ce n'est que pour l'aperçu(supprime,,,True)
            End If
        End With
    Next cel
End Sub

Super 😉

Merci