Saut de 30 lignes

[LAURA15]

Bonjour

J'aurais besoin de faire des saut de lignes de 30 lignes

De la ligne 3 a 900
Voici ce que j'ai commencé a faire
bien sur je peux continuer a faire des plages comme cela juste qu' a 900, mais je me dis qu'il y a certainement une autre facon de l'exprimer
Merci

Sub HautZeroligneSiCvide()

For Each c In Range('A3:F30,A33:A57,A63:A87,A93:A117,A123:A147,A153:A177,A183:A207')
If Application.CountA(c.EntireRow) = 0 Then Rows(c.Row).RowHeight = 0
Next c

End Sub
Sub RetablirligneSiCvide()
For Each c In Range('A3:F30,A33:A57,A63:A87,A93:A117,A123:A147,A153:A177,A183:A207')
If Application.CountA(c.EntireRow) = 0 Then Rows(c.Row).RowHeight = 12.75
Next c

End Sub

 

[Hellboy]

Bonjour LAURA15

Selon le code que tu présente, pour la même soit si les lignes ne contiennent aucune données, soit que tu cache ces lignes ou que tu les met visible.

Pourrais-tu expliquer dans quel contexte tu désire appliquer ce saut de trente ligne s.v.p. ? Ce que tu veux faire semble simple, mais sans contexte, c'est plus difficile a savoir !

a+

 

[LAURA15]

He bien en fait cette macro me sert a masquer (avec hauteur 0) les lignes vierges pour l'impression et ensuite de pouvoir les remettre a 12.75 de hauteur
Ceci des lignes 1 a 3 et sur 900 lignes et pour les 12 onglets (janvier, fevrier etc )
Donc avec ma méthode actuelle c fastidieux je vais devoir enumerer le plages a traiter de 1 a 900 et cela sur 12 onglets bon c'ets faisable mais si il y a une autre methode

merci

 

[Hellboy]

re

J'y vois plus clair merci!

Je te propose le code suivant:

Public Sub HideOrNotToHide()
With ThisWorkbook
        .Sheets(Array('Janvier', 'Février', 'Mars', 'Avril')).Select
        .Sheets('Janvier').Cells(3, 1).Resize(ActiveSheet.Cells(65536, 1).End(xlUp).Row).SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = False
End With
End Sub

Tu n'as qu'a mettre false ds le cas contraire. Si tu es en mesure de le faire, je te dirais de passer en paramètre a cette procédure la valeur vrai ou faux comme variable.

a+