Click sur cellule

[Marc]

Bonjour le forum

j'ai remarqué que les boutons de commande prenne beaucoup de place concernant la taille du fichier

Comment transformé ce code pour avoir l'équivalence sue un click sur une cellule par exemple E10

Private Sub CommandButton1_Click()
Pagegarde
End Sub

merci à vous

Marc

 

[MichelXld]

bonjour Marc

cette procedure evenementielle est à placer au niveau de la feuille


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range('E10')) Is Nothing Then Pagegarde
End Sub


bonne soiree
MichelXld

 

[Marc]

Bonjour Michel

J'ai appliqué ton code et à mon grand désespoir il ne se passe rien quand je click en E10 !!! pour info c une cellule fusionnée

Merci bcp

Marc

 

[Marc]

re...

milles excuses celà fonctionne très bien !!!


merci
Marc

 

[MichelXld]

rebonjour Marc

chez moi cela fonctionne avec bien les cellules fusionnées

as tu placé la procedure au niveau de la feuille et non dans un module


bonne soirée
MichelXld

 

[MichelXld]

ok , nos messages se sont croisés


bonne soiree
MichelXld