Discussion :

[jacfld49]

Bonsoir le forum,

j'ai ce code qui m'imprime un tableau de B1 à F104 mais j'ai des données que jusqu'a F20 et cela peut varier, donc ma question est que faut il ajouter pour n'imprimer que jusqu'au lignes remplis
merci
jacky

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub Essai()
 
    Range("B1:F104").Select
    ActiveWorkbook.Worksheets("SNF").Sort.SortFields.Clear
    ActiveSheet.PageSetup.PrintArea = "$B$1:$F$104"
    ActiveWindow.SelectedSheets.PrintOut Copies:=3, Collate:=True, _
        IgnorePrintAreas:=False
    Range("B11").Select
End Sub

[jfontaine]

Bonjour,

Essais comme cela (Remplaces Feuil1 par le bon nom de la feuille ou utilise Me)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub Essai()
 
    Range("B1:F104").Select
    ActiveWorkbook.Worksheets("SNF").Sort.SortFields.Clear
    ActiveSheet.PageSetup.PrintArea = Sheets("Feuil1").UsedRange.Address
    ActiveWindow.SelectedSheets.PrintOut Copies:=3, Collate:=True, _
        IgnorePrintAreas:=False
    Range("B11").Select
End Sub

[jacfld49]

Bonsoir le forum,jFontaine,

j'ai essayé le code et le problème, c'est que j'ai d'autres tableau à coté qui vont de G1 à M104 etc... ( 8 tableau de même format mais pas tous rempli de la même façon, il y en a qui s'arretent à la ligne 20 et d'autres à la 40 et plus )donc quand j'utilise ton code, il me met tous les tableau les uns à coté des autres et ce que je voudrais c'est que l'impression n'imprime que les lignes rempli et cela pour chaque code de chaque tableau
merci
jacky

[jfontaine]

ok, dans ce cas, utilises CurrentRegion

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub Essai()
 
    Range("B1:F104").Select
    ActiveWorkbook.Worksheets("SNF").Sort.SortFields.Clear
    ActiveSheet.PageSetup.PrintArea = Sheets("Feuil1").Range("B1").CurrentRegion.Address
    ActiveWindow.SelectedSheets.PrintOut Copies:=3, Collate:=True, _
        IgnorePrintAreas:=False
    Range("B11").Select
End Sub

[jacfld49]

re,
non cela m'imprime toujours 3 page au lieu d'une
merci
jacky

[jfontaine]

Peut etre en faisant plus simple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Range("B1").CurrentRegion.PrintOut Copies:=1, Collate:=True

[jacfld49]

Bonjour ESVBA,

Les Colonnes B et F sont rempli identiquement en même temps, j'ai essayer d'ajouter une colonne G dans le code et du coup cela m'imprime bien une page mais de la colonne B1 à G104 donc cela ne va pas
merci
jacky

[jacfld49]

Bonjour gFZT82,

Merci beaucoup, cela fonctionne
super
jacky

Re le Forum,

Le code donnée par gFZT82 fonctionne à merveille mais j'ai un autre problème sur un tableau à coté à qui je ne peux pas attribué le même code car mon tableau est de CM1 à CW104 mais le problème est que j'ai des formules dans toutes les colonnes sauf la colonnes CP mais le quand j'utilise le même code, du coup, je n'ai le tableau que de CM1 à CP 20 ce qui est logique mais comment faire pour garder le tableau de CM1 à CW104 en ayant la dernière ligne vide dans la colonne CP
merci
PS: j'ai enlevé résolu pour reprendre ce fil plutot que d'en ouvrir un autre, j'espère que j'ai bien fait
merci
jacky

[gFZT82]

Re,

C’est la même logique.
Tu détermines la dernière ligne renseignée avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Derlig = Ws.Range("CP" & Ws.Rows.Count).End(xlUp).Row

Et tu sélectionnes ta plage avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set MaPlage = Ws.Range("CM1:CW" & Derlig)

Cordialement.

[jacfld49]

Re gFZT82,

merci, je venais de comprendre quand j'ai vu ta réponse et je te remercie beaucoup, j'ai une dernière question , que faut il ajouter pour imprimer 3 fois la même feuille,:
est ce

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Ws.PrintOut Copies:=, Collate:=True

merci
jacky

[BlueMonkey]

Re.

En effet :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Ws.PrintOut Copies:=<nombre de fois qu il faut imprimer la feuille>, Collate:=True