Autres Private Sub Worksheet_SelectionChange(ByVal R As Range) sur cellules fusionnées

[Usine à gaz]

Bonjour à toutes et à tous,

Je précise que je suis sur office 2021.

J'ai une p'tite question à laquelle je n'ai pas trouvé de réponse.
Est-il possible d'utiliser Private Sub Worksheet_SelectionChange(ByVal R As Range) sur cellules fusionnées ?

J'ai un petit fichier test :
cellule "E4" non fusionnée, ça fonctionne,
cellule "G4" fusionnée avec G5, ça ne fonctionne pas.

Merci pour les retours,

 

[Usine à gaz]

Re-Bjr
Je pense avoir trouvé :

Private Sub Worksheet_SelectionChange(ByVal R As Range)
If Not Intersect(R, Range("e4,g4")) Is Nothing Then
    If R.Cells(1, 1) <> "" Then
    'Feuil.Protect , UserInterfaceOnly:=True
    [g1].Select
    R.Copy
    [a1].Select
    End If
End If
End Sub

 

[job75]

Bonjour Lionel,

En G4 R est composé de plusieurs cellules dont remplace If R <> "" Then par If R(1) <> "" Then

Edit : oui If R.Cells(1, 1) <> "" Then va bien aussi, c'est juste plus long.

A+

 

[Usine à gaz]

Bjr Gérard
Merci d'être encore là pour me répondre.
Merci aussi pour cette seconde possibilité