Ajustement automatique de la ligne

Question

Bonjour,

j'ai fusionné plusieurs colonnes, je souhaitais ajuster la hauteur de ligne en fonction du texte, j'ai trouvé mon bonheur sur le site avec cette macro

Sub test()
Dim X As Double

Application.ScreenUpdating = False
If TypeName(Selection) = "Range" Then
    With Selection
        .MergeCells = False
        .WrapText = False
        .WrapText = True
        .HorizontalAlignment = xlHAlignCenterAcrossSelection
        .WrapText = True
        .EntireRow.AutoFit
        X = .Height
        .MergeCells = True
        .EntireRow.RowHeight = X
        .HorizontalAlignment = xlHAlignLeft
    End With
End If
Application.ScreenUpdating = False
End Sub

Le seul petit problème c'est qu'il faut exécuter la macro en étant dans la cellule concernée, serait il possible que la macro s'exécute sur toutes les cellules ? Ou encore mieux en codant pour définir à l'avance toutes les cellules concernées, par exemple pour moi ca serait : A17+A21+A25

Answer 1

bonjour

Non la macro agrndit la case,

j'ai arrangé la macro de base en ajoutant

Range("A16:H16,A24:H24,A28:H28").Select

c'est tout bon merci à vous☺