Discussion :

[Un Internaute]

Bonjour le forum,
La question est dans le titre.
Certains vont la trouver C$N!!!
Merci d'avance et bonne journée à tous
Bien cordialement

[SfJ5Rpw8]

Bonjour,

tu sélectionne les lignes et tu modifie la hauteur avec la souris ..

[Un Internaute]

Bonjour bbil
Oui ça j'ai bien compris!!!
Mais comment faire pour "éviter le défilement" de 87 à la fin
Bien cordialement

[SfJ5Rpw8]

Utilise l'enregistreur de macro et montre nous le code généré..

[Un Internaute]

Voilà pour 4 feuilles:
On peut aussi faire qu'une seule ligne macro en se positionnant sur la feuille

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub HauteurLignes()
    Feuil1.Rows("87:65536").RowHeight = 20
    Feuil2.Rows("87:65536").RowHeight = 20
    Feuil3.Rows("87:65536").RowHeight = 20
    Feuil4.Rows("87:65536").RowHeight = 20
End Sub

Bonne journée à tous
Bien cordialement

[Un Internaute]

Bonjour le forum,
J'ai trouvé cette macro sur Google.
Est-elle adaptable avec les éléments ci-dessus?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub ModifierHauteursLignes()
 Dim Cellule As Range, Plage As Range
 Dim HauteurDébut As Double, HauteurFin As Double
 HauteurDébut = Application.InputBox("Hauteur à modifier ?", "Hauteur précedente", , , , , , 1)
 HauteurFin = Application.InputBox("Hauteur à appliquer ?", "Hauteur désirée", , , , , , 1)
 For Each Cellule In Selection.Resize(, 1)
     If Cellule.RowHeight = HauteurDébut Then
         If Not Plage Is Nothing Then
             Set Plage = Union(Plage, Cellule)
         Else
             Set Plage = Cellule
         End If
     End If
 Next Cellule
 If Not Plage Is Nothing Then Plage.RowHeight = HauteurFin
 End Sub

Merci d'avance
Bonne journée à vous tous
Coedialement

[Un Internaute]

J'ai un peu adapté mais ça bug sur ligne 2 => Sheets(2).Rows("87:65536").Select

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub ModifierHauteursLignes()
  Sheets(1).Rows("87:65536").Select
  Sheets(2).Rows("87:65536").Select
  Sheets(3).Rows("87:65536").Select
  Sheets(4).Rows("87:65536").Select
 Dim Cellule As Range, Plage As Range
 Dim HauteurDébut As Double, HauteurFin As Double
 HauteurDébut = Application.InputBox("Hauteur à modifier ?", "Hauteur précedente", , , , , , 1)
 HauteurFin = Application.InputBox("Hauteur à appliquer ?", "Hauteur désirée", , , , , , 1)
 For Each Cellule In Selection.Resize(, 1)
     If Cellule.RowHeight = HauteurDébut Then
         If Not Plage Is Nothing Then
             Set Plage = Union(Plage, Cellule)
         Else
             Set Plage = Cellule
         End If
     End If
 Next Cellule
 If Not Plage Is Nothing Then Plage.RowHeight = HauteurFin
 End Sub

La première ligne s'exécute bien.
Si quelqu'un veut essayer de trouver où ça bug je suis preneur.
Merci d'avance
Cordialement

[Un Internaute]

Voilà
Bonne fin de soirée à tous

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub ModifierHauteurLigne()
Dim I As Integer
Dim Hauteur As Double
 
  Hauteur = Application.InputBox("Hauteur voulue ?", "Hauteur précedente", , , , , , 1)
  For I = 1 To 4     '4 = 4 feuilles
    With Sheets(I)
      .Visible = True
      '.Select    '
      .Unprotect
      'Hauteur = Application.InputBox("Hauteur voulue ?", "Hauteur précedente", , , , , , 1)
      .Rows("87:65536").RowHeight = Hauteur
      .Rows("87:65536").Hidden = False         ' Démasque les lignes
      '.Rows("87:65536").Hidden = True         ' Masque les lignes
      .Protect
    End With
  Next I
End Sub