XL 2016 VBA, hauteur de lignes

cardi

XLDnaute Junior
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

XLDnaute Occasionnel
Bonjour,

Essaie avec :
VB:
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.
 

Roblochon

XLDnaute Impliqué
Bonjour,


VB:
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+
 

Discussions similaires


Haut Bas