Menu

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

Messages postés
154
Date d'inscription
mercredi 26 janvier 2011
Statut
Membre
Dernière intervention
24 décembre 2018
- - Dernière réponse : delta70
Messages postés
154
Date d'inscription
mercredi 26 janvier 2011
Statut
Membre
Dernière intervention
24 décembre 2018
- 22 mai 2015 à 00:03
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
Afficher la suite 

2 réponses

Messages postés
6138
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
18 juillet 2019
373
0
Merci
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

delta70
Messages postés
154
Date d'inscription
mercredi 26 janvier 2011
Statut
Membre
Dernière intervention
24 décembre 2018
-
Bonsoir,
Merci bien Le Pivert
Messages postés
9025
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
20 juillet 2019
1599
0
Merci
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
delta70
Messages postés
154
Date d'inscription
mercredi 26 janvier 2011
Statut
Membre
Dernière intervention
24 décembre 2018
-
Bonsoir ccm81
Merci bien