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 Accro
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+
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas