Bonjour les amis!
Aujourd'hui je viens vers vous pour vous soumettre un petit problème de code. Je m'esplique: J'ai un grand tableau, dont l'impression est conditionnée par le contenu des cellules d'une des colonnes-seules les cellules pleines sont imprimées. Je voudrais intégrer une seconde colonne à ces critères dans la macro, et n'y parviens pas...(habitué des scripts en AS2 ou 3 et C, j'ai tenté tout ce que je connaissais, mais le résultat s'avère insatisfaisant!J'ai tout essayé: pomper du code dans les discussions, And, Or...Rien de rien!).
Voici donc mon code:
Sub imprimerPlageCellules()
Dim n As Integer
Application.ScreenUpdating = False
For n = 4 To 495
If Cells(n, 6) = 0 Then
Rows(n).Hidden = True
End If
Next n
Sheets("feuil1").Range("A4:L495").PrintOut
For n = 4 To 495
Rows(n).Hidden = False
Next n
Application.ScreenUpdating = True
End Sub
Tout bête, non? Eh ben je coince! saint PJ, si tu passes par là, je te paie une bouteille!
Aujourd'hui je viens vers vous pour vous soumettre un petit problème de code. Je m'esplique: J'ai un grand tableau, dont l'impression est conditionnée par le contenu des cellules d'une des colonnes-seules les cellules pleines sont imprimées. Je voudrais intégrer une seconde colonne à ces critères dans la macro, et n'y parviens pas...(habitué des scripts en AS2 ou 3 et C, j'ai tenté tout ce que je connaissais, mais le résultat s'avère insatisfaisant!J'ai tout essayé: pomper du code dans les discussions, And, Or...Rien de rien!).
Voici donc mon code:
Sub imprimerPlageCellules()
Dim n As Integer
Application.ScreenUpdating = False
For n = 4 To 495
If Cells(n, 6) = 0 Then
Rows(n).Hidden = True
End If
Next n
Sheets("feuil1").Range("A4:L495").PrintOut
For n = 4 To 495
Rows(n).Hidden = False
Next n
Application.ScreenUpdating = True
End Sub
Tout bête, non? Eh ben je coince! saint PJ, si tu passes par là, je te paie une bouteille!
