Renvoi de ligne Cellules fusionnées

[jjjerome]

Bonjour le forum,
J'ai récupéré le code (ci-dessous) permettant de 'renvoyer à la ligne' des cellules fusionnées, il marche très bien de 1 caractère à x caractères, mais ne fonctionne pas si on supprime tout les caractères (la réduction de la taille des lignes ne se fait pas) et j'ai quelques fois un message d'erreur...!?
Est ce quelqu'un pourrait m'aider à corriger ça ?

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

 

[porcinet82]

Re : Renvoi de ligne Cellules fusionnées

Salut,

Je ne suis pas certains de bien comprendre le sens de ta question, mais peut etre en enlevant And Target(1).Value <> "" dans la première condition.

@+

 

[jjjerome]

Re : Renvoi de ligne Cellules fusionnées

Tout simplement !!!
Merci !