imprimer avec titre le bon nombre de lignes saisies

[erwanhavre]

Bonjour je finalise un petit programe mais là je sèche ...
le sujet concerne l'onglet etiquettes
je voudrai metre en place un bouton qui puisse automatique imprimer les lignes ou il y à une info dans l'exemple ci-joint ce que j'attend c'est 31 feuilles, j'ai essayer une manip la derniere fois mais je crois que le fais d'imprimer les titre dans la mise en page me fausse l'action est ce que quelqu'un peu m'aider ??
Merci
erwan

 

[Lolote83]

Re : imprimer avec titre le bon nombre de lignes saisies

Salut erwanhavre
Voir ici si j'ai bien compris ta demande
Cordialement
Lolote83

 

[erwanhavre]

Re : imprimer avec titre le bon nombre de lignes saisies

c'est exactement ce que je cherchai grand merci
j'ai juste retiré le +1 qui m'imprimai le titre seul
je vais maintenant pourvoir passer à l'imprimante affectée pour l'édition des etiquettes

 

[erwanhavre]

Re : imprimer avec titre le bon nombre de lignes saisies

derniere petite question voici le code modifié
Sub Imprime()
xNbPage = [F1]
Sheets("Etiquettes").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=xNbPage, Copies:=1, Collate:=True


puis mon code pour changer d'imprimante imprimer et repasser sur l'imprimante d'origine

Application.ActivePrinter = "XXXX-ITM-ZM600 sur Ne02:"
ExecuteExcel4Macro _
"PRINT(1,,,1,,,,,,,,2,""XXXX-ITM-ZM600 sur Ne02:"",,TRUE,,FALSE)"
Application.ActivePrinter = "XXXX-ITM-1536 sur Ne03:"
Range("E8").Select

à quel moment dois-je informer le changement d'imprimante etc ??
merci encore

 

[Lolote83]

Re : imprimer avec titre le bon nombre de lignes saisies

Salut,
Peut être comme ça, sinon il faudra trouver autre chose
@+ Lolote83

 

[erwanhavre]

Re : imprimer avec titre le bon nombre de lignes saisies

Salut,
Peut être comme ça, sinon il faudra trouver autre chose
@+ Lolote83

j'ai un soucis je me casse la tete depuis hier pour trouver une explication mais je ne comprend pas

Sub Bouton1_Clic()
Sheets(2).Range("A2:C" & Sheets(2).Range("A65535").End(xlUp).Row + 1).ClearContents
For i = 2 To Range("A65535").End(xlUp).Row
For j = 1 To Cells(i, 3).Valuederligne = Sheets(2).Range("A65535").End(xlUp).Row + 1
Sheets(2).Cells(derligne, 1) = Cells(i, 1)
Sheets(2).Cells(derligne, 2) = Cells(i, 2)
Next j
Next i
MsgBox ("transfert vers la feuille 'Etiquettes' terminé avec succès")
End Sub




il bloque sur la ligne en jaune
je ne pense pas avoir modifié quelque chose das la mise en page
qu'est ce j'ai fais ???

 

[erwanhavre]

Re : imprimer avec titre le bon nombre de lignes saisies

For j = 1 To Cells(i, 3).Value

c'est cette ligne qui bloque

 

[Lolote83]

Re : imprimer avec titre le bon nombre de lignes saisies

Salut,
je te renvoi le fichier,pour moi ça marche.
Tiens moi au courant
@+ Lolote83

 

[erwanhavre]

Re : imprimer avec titre le bon nombre de lignes saisies

Ci joint le fichier avec lequel je travail

 

[Lolote83]

Re : imprimer avec titre le bon nombre de lignes saisies

Salut, ton code marche bien.
Il faut bien vérifié que tes lignes soient bien vierges de toutes données.
Dans ta première ligne de code tu inscrits :

For i = 2 To Range("A65535").End(xlUp).Row

Cette ligne doit normalement te donner la dernière ligne non vide de la colonne A.
Ici, sans toucher à la feuille, il te trouve 50.
Sélectionne les lignes 3 à 50 et suppr. Tu devais certainement avoir une cellule avec un espace.
Cordialement
Lolote83

 

[erwanhavre]

Re : imprimer avec titre le bon nombre de lignes saisies

Je pense avoir trouvé mon soucis pour incrementer ce tableau je fais un copier coller "valeurs" des collones d'un autre tableau
pas de soucis pour les collones A et B mais la copie de la collone C avec les nombre de colis foire la macro par contre quand je selectionne uniquement les celulles non-vides de la collone C et colle ses valeurs plus de soucis est ce normal ?
Merci

 

[Lolote83]

Re : imprimer avec titre le bon nombre de lignes saisies

Re salut,
désolé mais je ne comprends pas tout ce que tu dis.
Fichier, + d'explications
@+ Lolote

 

[erwanhavre]

Re : imprimer avec titre le bon nombre de lignes saisies

Ah désolé c'est clair dans ma tête mais c'est vrai qu'à expliquer c'est moins évident.
concretement quand on reprend la derniere piece jointe : je colle les valeur d'un autre tableau dans la colonne C (nb d'étiquette) essai de ton coté quand tu copie une colonne entiere et la colle dans la colonne C la macro se bloque non ?