XL 2016 VBA, hauteur de lignes

[cardi]

Bonjour,

Je souhaite ajuster la hauteur des lignes avec une macro :

Si dans la colonne A la valeur est = 1, alors la hauteur de la ligne sera égale à 15.

Si dans la colonne A la valeur est = 2, alors la hauteur de la ligne sera égale à 30.

Si dans la colonne A la valeur est = 3, alors la hauteur de la ligne sera égale à 45.

Merci d'avance,

Cardi

 

[frangy]

Bonjour,

Essaie avec :

Sub Hauteur_Ligne()
Dim Ligne As Long
    For Ligne = 1 To Range("A" & Rows.Count).End(xlUp).Row
        Select Case CStr(Range("A" & Ligne).Value)
            Case "1": Rows(Ligne).RowHeight = 15
            Case "2": Rows(Ligne).RowHeight = 30
            Case "3": Rows(Ligne).RowHeight = 45
        End Select
    Next Ligne
End Sub

Cordialement.

 

[Hasco]

Bonjour,

Sub test()
Dim c As Range
For Each c In Range("A1:A25").Cells
    Select Case c.Value
        Case 1 To 3: c.RowHeight = 15 * c
    End Select
Next c
End Sub

Mais avec un classeur exemple c'eût été mieux.

A+

 

[cardi]

C'est parfait, merci messieurs !