Affecter une cellule active à une macro

[mike75018]

Bonjour,
Je souhaite affecter une macro à une cellule en la sélectionnant.
Pour cela, j'utilise la procédure Worksheet_SelectionChange(ByVal Target As Range).

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target = Cells(5, 1) Then Call Procédure
End Sub

Tout fonctionne sauf que si je sélectionne une cellule fusionnée, j'ai le message d'erreur "erreur d'exécution 13 : incompatibilité de type"
Comment contourner ce problème ?
Mike

 

[mike75018]

Re : Affecter une cellule active à une macro

Ok, j'ai trouvé.
J'ai oublié .address derrière Target et Cells !

 

[Pierrot93]

Re : Affecter une cellule active à une macro

Bonjour Mike,

si cellules fusionnées, essaye peut être ainsi :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Cells(5, 1)) Is Nothing Then taprocedure
End Sub

bonne journée
@+

 

[ERIC62153]

Re : Affecter une cellule active à une macro

bonjour
une petite question sur le meme sujet
sur une cellule h7 j'ai une validation de données
je voudrais que des que cette valeur change elle applique la macro 45
mais je ne sais pas si ca va marché avec une validation de donnée
eric

 

[Pierrot93]

Re : Affecter une cellule active à une macro

Re, Bonjour Eric

@Eric
Perso, vois pas trop le rapport avec le sujet, le mieux est d'ouvrir ton propre fil de discussion....

bon après midi
@+

 

[Robert]

Re : Affecter une cellule active à une macro

Bonjour le fil, bonjour le forum,

Il y a quand même un tout petit rapport Pierrot... Mais c'est la macro événementielle Change au lieu de SelectionChange qu'il te faudait utiliser. Et, ça marche avec une validation de données...