Microsoft 365 Sélection de plusieurs cellules sur même ligne

[Usine à gaz]

Bonjour à toutes et à tous,

J'ai un autre petit souci que je ne parviens pas à résoudre :

Pour une meilleure visibilité, quand clic en col B = sélection des cellules C à R de la même ligne
Mon souci :
dans le fichier test joint
Les cellules J3 à L15 sont fusionnées
Quand clic sur cel C13 - C14 ou C15 il y a sélection sur 3 lignes
(je suis obligé de garder ces cellules fusionnées)
Est-il possible de sélectionner qu'une ligne (sans prendre en compte les cellules fusionnées)
Mes recherches et tentatives n'ont pas abouti 😡
Auriez-vous la solution ?
Avec mes remerciements,
Je vous souhaite une belle fin de journée,
Amicalement,
lionel,

 

[pierrejean]

Bonjour arthour
Un essai
Il est possible également de sélectionner J13:L15

 

[Usine à gaz]

Bonjour Robert,
Merci d'être là 🙂
C'est nickel ... Un grand merci 🙂
lionel,

 

[pierrejean]

Je transmet à Robert

 

[job75]

Bonjour arthour973, pardon Lionel, bonjour Robert, pardon Pierre 😀

Private Sub Worksheet_SelectionChange(ByVal r As Range)
If Intersect(ActiveCell, Range("B10:B19")) Is Nothing Then Exit Sub
[J13:L15].UnMerge
ActiveCell(1, 2).Resize(, 16).Select
[J13:L15].Merge
End Sub

A+

 

[Usine à gaz]

Je transmet à Robert

LOL, Bonjour pierrejean 🙂

Désolé de mon erreur 🙁
C'est nickel ... Un grand merci pierrejean 🙂
lionel,

 

[Usine à gaz]

Bonjour Gérard,
LOL on se sait plus si on est mâle ou femelle 🙂
Merci Gérard pour ton code nickel comme d'hab 🙂
lionel,

 

[Usine à gaz]

Re-Gérard 🙂
Je suis allé voir qui est ce "Merge" que je n'ai jamais connu parmi mes amis lol
Mais c'est quelqu'un de bien puisque ça fonctionne 🙂
Je viens d'apprendre encore une fois.
Merci gérard,
lionel,

 

[job75]

Il y en a qui ont horreur des cellules fusionnées, moi je m'en suis toujours accommodé.

 

[Usine à gaz]

Re-Gérard,

Effectivement, on en dit tellement de "mal" que je m'en sert le moins possible mais il arrive que je n'ai pas d'autre choix 🙂