XL 2010 Lancer une macro en cliquant sur une cellule fusionné

yusukens · 5 Juillet 2021

Bonjour,

En insérant la code suivant dans la feuille.
Cela lance la macro "MacroZ" lorsqu'on clique dans la cellule B4.

VB:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$B$4" Then MacroZ
End Sub

Mais lorsque B4 est fusionné jusqu'à K4 comment peut-on réécrire le code pour que cela fonctionne ?

en vous remerciant par avance

sylvanu · 5 Juillet 2021

Bonsoir Ausukens,
Voir PJ avec ceci :

VB:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Fin
    If Not Intersect(Target, Range("B4:K4")) Is Nothing Then
         MacroZ
    End If
Fin:
End Sub

yusukens · 5 Juillet 2021

Merci beaucoup Sylvanu, c'est exactement ce qu'il me fallait.
un grand merci !!

XL 2010 Lancer une macro en cliquant sur une cellule fusionné

yusukens

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

Pièces jointes

yusukens

XLDnaute Occasionnel

Discussions similaires