Modifier les hauteurs de certaines lignes par macro [Résolu/Fermé]

Signaler
Messages postés
182
Date d'inscription
mercredi 26 janvier 2011
Statut
Membre
Dernière intervention
8 juillet 2020
-
Messages postés
182
Date d'inscription
mercredi 26 janvier 2011
Statut
Membre
Dernière intervention
8 juillet 2020
-
Bonjour à toutes et à tous
Je souhaiterai savoir s'il est possible d'avoir une macro qui me permettrait de changer la hauteur de la ligne 15 et la ligne 32 (en 58), la ligne 16 et la ligne 33 (en 18) dans toutes les feuilles sauf deux (J'ai plusieurs feuilles dans mon classeur) ?
Merci pour vos aides
Cordialement

2 réponses

Messages postés
6876
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
13 août 2020
538
Bonjour,

comme ceci:

Private Sub CommandButton1_Click()
'Déclare la variable objet Worksheet
Dim Ws As Worksheet
 'Boucle sur toutes les feuille de calcul du classeur. Les onglets graphiques ne sont pas pris
'en compte.
'ThisWorkbook correspond à l'objet classeur contenant la macro
For Each Ws In ThisWorkbook.Worksheets
    If Ws.Name = "Feuil3" Or Ws.Name = "Feuil6" Then 'les 2 feuilles exclues a adapter
    Else
    Ws.Select
      Rows("15:15").RowHeight = 58
      Rows("32:32").RowHeight = 58
       Rows("16:16").RowHeight = 18
      Rows("33:33").RowHeight = 18
    End If
Next Ws
End Sub

Messages postés
182
Date d'inscription
mercredi 26 janvier 2011
Statut
Membre
Dernière intervention
8 juillet 2020
3
Bonsoir,
Merci bien Le Pivert
Messages postés
9530
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
14 août 2020
1 878
Bonjour

Const F1 = "Feuil2"
Const F2 = "Feuil5"
Const h1 = 58
Const h2 = 18

Public Sub HauteurLigne()
Dim nuf As Long
For nuf = 1 To Sheets.Count
  If Sheets(nuf).Name <> F1 And Sheets(nuf).Name <> F2 Then
    Sheets(nuf).Rows(15).RowHeight = h1
    Sheets(nuf).Rows(32).RowHeight = h1
    Sheets(nuf).Rows(16).RowHeight = h2
    Sheets(nuf).Rows(33).RowHeight = h2
  End If
Next nuf
End Sub

Cdlmnt
Messages postés
182
Date d'inscription
mercredi 26 janvier 2011
Statut
Membre
Dernière intervention
8 juillet 2020
3
Bonsoir ccm81
Merci bien