Modifier la hauteur des lignes non masquées

re... bonsoir,

voila mon cas :

Dans ma feuille j'ai plusieurs lignes qui sont masquées et je souhaiterais savoir comment élargir la hauteur des lignes qui ne sont pas masquées (et donc ne pas toucher aux lignes qui sont masquées).

peut etre avec :

Selection.RowHeight = 36.75 .

....mais je ne sais pas comment le manipuler pour uniquement prendre les lignes non masquées.

merci pour votre aide (encore)

lili

Re

exemple par boucle

Sub test()
Dim Lign%
Application.ScreenUpdating = False
  For Lign = 1 To 34
    If Rows(Lign).EntireRow.Hidden = False Then
       Rows(Lign).RowHeight = 36.75
    End If
  Next Lign
Application.ScreenUpdating = True
End Sub

salut bob

j'ai un message d'erreur suivant :

Incompatibilité de type : erreur d'exécution 13

lili

Re

où est placée la procédure?

La feuille n'est pas verrouillée?

re bonsoir, bob

j'ai placé la procédure dans un userform via un bouton... car en cliquant dessus je voulais avoir un appercu avant impression et qu'en meme temps il m'élargisse les lignes....

Private Sub CommandButton2_Click()

Application.ScreenUpdating = False

Sheet(1).PrintPreview

Application.ScreenUpdating = True

Userform1.Show

Sheet(1).Select

Range("A1").Select

End Sub

lili

Bonjour lili

a tester

Private Sub CommandButton2_Click()
Dim Lign%
Application.ScreenUpdating = False
  For Lign = 1 To 34
    If Sheets(1).Rows(Lign).EntireRow.Hidden = False Then
       Sheets(1).Rows(Lign).RowHeight = 36.75
    End If
  Next Lign
Application.ScreenUpdating = True

UserForm1.Hide
Sheets(1).Select
Sheets(1).Range("A1").Select
Sheets(1).PrintPreview
UserForm1.Show
End Sub