Elargissement de colonne si sélection de cellules fusionnées

Allo Forum,

Pour x raisons je dois recourir à des cellules fusionnées (désolé).

Si j'ai trouvé comment élargir la taille de la colonne lorsque l'on sélectionne une cellule non fusionnée et lui redonner sa taille initiale lorsqu'on en sort :

Exemple pour une cellule de la colonne A (la colonne passe de 8 à 20) :

Application.ScreenUpdating = False

Columns("A:A").ColumnWidth = 8

If Not Intersect(Range("A:A"), Target) Is Nothing And Target.Count = 1 Then

Columns(Target.Column).ColumnWidth = 20

End If

ça ne fonctionne plus lorsqu'on sélectionne une fusion verticale de cellules (par exemple cellules A10 à A15 fusionnées). La colonne ne bouge pas

Merci d'avance pour votre aide si ce que j'envisage est possible.

Bonsoir,

Si tu vises ton pied, la balle n'atteindra pas la cible, mais ton pied !

Si tu sélectionnes une cellule fusionnée, Target.Count sera nécessairement supérieur à 1, donc exclue de l'application de ta commande.

Cordialement.

:'))

je l'avais sous les yeux...

Merci !