Salut,

J'ai essayé plusieurs codes vba mais aucun ne fait ce que je veux.

J'explique :
J'ai 2 cellules nommées "COMP" et "NCOMP".
Ce sont des cellules fusionnées de A à D. J'écrit du texte dedans avec des sauts de lignes.
Je voudrais que les cellules s'ajustent automatiquement et seulement en hauteur lorsque j'ajoute ou j'enlève du texte.

Cela fonctionne dans une cellule non fusionnée mais fusionnée, je sais pas

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
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim cell As Range
    ' Vérifie si la cellule modifiée est COMP ou NCOMP
    If Not Intersect(Target, Range("COMP")) Is Nothing Then
        Set cell = Range("COMP")
        cell.MergeCells = False
        cell.Rows.AutoFit
        cell.MergeCells = True
    ElseIf Not Intersect(Target, Range("NCOMP")) Is Nothing Then
        Set cell = Range("NCOMP")
        cell.MergeCells = False
        cell.Rows.AutoFit
        cell.MergeCells = True
    End If
End Sub
Merci par avance
@+