L
LAURA15
Guest
Bonjour
J'ai un classeur de 12 onglets un onglets par moi et sur chaque onglet, j'ai vingt 28 plages de 30 lignes séparer par 5 lignes auxquelles je ne veut pas toucher
Le problemes c'est que j'ai besoin de faire certaines operations sur ces plages et les nommer est très fastidieux
par exemple rien que pour une feuille il faut que je fasse ca qu'il fautdrait que je renouvelle pour chaque onglet janvier février etc
Un peu fastidieux je pense qu'il doit y avoir une autre methode
Sub HautZeroSiCvide()
For Each c In Range
('A3:O32,A38:O67,A73:O102,A108:O137,A143:O172,A178:O207,A213:O242,A248:O277,A283:O312,A318:O347,A353:O382,A388:O417,A423:O452,A458:O487,A493:O522,A528:O557,A563:O592,A598:O627,A633:O662,A668:O697,A703:O732,A738:O767,A773:O802,A808:O837,A843:O872,A878:O907,A913:O942,A948:O977')
If Application.CountA(c.EntireRow) = 0 Then Rows(c.Row).RowHeight = 0
Next c
End Sub
Merci
J'ai un classeur de 12 onglets un onglets par moi et sur chaque onglet, j'ai vingt 28 plages de 30 lignes séparer par 5 lignes auxquelles je ne veut pas toucher
Le problemes c'est que j'ai besoin de faire certaines operations sur ces plages et les nommer est très fastidieux
par exemple rien que pour une feuille il faut que je fasse ca qu'il fautdrait que je renouvelle pour chaque onglet janvier février etc
Un peu fastidieux je pense qu'il doit y avoir une autre methode
Sub HautZeroSiCvide()
For Each c In Range
('A3:O32,A38:O67,A73:O102,A108:O137,A143:O172,A178:O207,A213:O242,A248:O277,A283:O312,A318:O347,A353:O382,A388:O417,A423:O452,A458:O487,A493:O522,A528:O557,A563:O592,A598:O627,A633:O662,A668:O697,A703:O732,A738:O767,A773:O802,A808:O837,A843:O872,A878:O907,A913:O942,A948:O977')
If Application.CountA(c.EntireRow) = 0 Then Rows(c.Row).RowHeight = 0
Next c
End Sub
Merci