Renvoi de ligne Cellules fusionnées

Private Sub Worksheet_Change(ByVal Target As Range)
' Test la cellule ou à été fait la modif
If Target.MergeCells And Target.Column = 3 And Target(1).Value <> "" Then '3=colonne C
With Target.MergeArea
.WrapText = True 'enclenche le renvoi à la ligne automatique (modif fs)
If .Rows.Count = 1 Then
Application.ScreenUpdating = False
If Round(Len(Target.Value) / 35, 0) < 1 Then 'Nbr de caractere par ligne fusionnee
.RowHeight = 30 'Hauteur de ligne standard
Else
.RowHeight = 30 * (Round(Len(Target.Value) / 35, 0)) 'Modifier le dénominateur pour régler le nb de caractères par ligne
End If
End If
End With
End If
End Sub

Cliquez pour agrandir...