imprimer un classeur

Le
AGDO
Bonjour et d'avance Merci
J'ai une feuille de 40 lignes les dernières lignes sont suivant les résultat
égale à 0: Que dois je faire pour que systématiquement les lignes égale à 0
n'apparaissent pas sur la page imprimée (gain de place)
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Cyr73
Le #5431041
Bonjour, voici le code de Daniel.C
qui fait ce que tu veut.
Sub filtrer_Prod_Unique()
'
' filtrer_feuil_livraison Macro
'
For Each c In Sheets("ToTo").Range("H8:CH8")
If c.Value = "0" Then
c.ColumnWidth = 0
End If
end sub
Daniel.C
Le #5431031
Bonjour.
Essaie la macro suivante :

Sub Iprimer()
Dim Col As Integer, Ligne As Long
Col = Cells.Find("*", [A1], xlFormulas, , _
xlColumns, xlPrevious).Column
For i = Cells.Find("*", [A1], xlFormulas, , _
xlColumns, xlPrevious).Row To 1 Step -1
If Application.CountIf(Range(Cells(i, 1), Cells(i, Col)), 0) + _
Application.CountIf(Range(Cells(i, 1), Cells(i, Col)), "") < Col
Then
Intersect(ActiveSheet.UsedRange, Range("A1", Cells(i,
Col))).PrintOut
Exit For
End If
Next i
End Sub

Cordialement.
Daniel
"AGDO"
Bonjour et d'avance Merci
J'ai une feuille de 40 lignes les dernières lignes sont suivant les
résultat
égale à 0: Que dois je faire pour que systématiquement les lignes égale à
0
n'apparaissent pas sur la page imprimée (gain de place)


AGDO
Le #5430691

Bonjour, voici le code de Daniel.C
qui fait ce que tu veut.
Sub filtrer_Prod_Unique()
'
' filtrer_feuil_livraison Macro
'
For Each c In Sheets("ToTo").Range("H8:CH8")
If c.Value = "0" Then
c.ColumnWidth = 0
End If
end sub


Voila ce que j'écris dans le module de macro
Sub filter_Prod_Unique()

'
'filtrer_feuil_Pierre par mois Macro
'
For Each c In Sheets("ToTo").Range("C1:T33")
If c.Value = "0" Then
c.ColumnWidth = 0
End If
End Sub
et il ne laccepte pas
pouvez vous m'aider un peu plus
pas assez de connaissence dans Macro
encore Merci

Publicité
Poster une réponse
Anonyme