Discussion :

[redstoff]

Bonjour

Comme le titre l'indique, je cherche a lancer une macro lorsque qu'une cellule est sélectionnée.

Dans quel but?
En gros, j'ai une cellule avec un nombre dedans et quand je clique dessus, elle met la valeur +1

Pour se faire, je compte uiliser la fonction application.caller mais reste a savoir s'il est possible de faire la premiere etape.

Merci pour votre aide

[jfontaine]

Bonjour,

Tu peux utiliser l'évenement Worksheet_SelectionChange

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    'Ajoute 1 à la valeur de la cellule
    Target.Value = Target.Value + 1
End Sub

[redstoff]

Je te remercie tout d'abord pour ta réponse

Mais malheureusement avec cette méthode les cliques deviennent ingérable.

en gros j'aimerai affecter une macro a une cellule de la même façon que je peux affecter une macro a un contrôle. ^^

[jfontaine]

Ce code était un exemple. Pour que ca fonctionne que sur une seule cellule, il faut tester quelle cellule a été sélectionné.

par exemple si on faire ce traitement uniquement sur B5

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    'Ajoute 1 à la valeur de la cellule
    if Target.Address = "$B$5" then Target.Value = Target.Value + 1
End Sub

[redstoff]

le probleme c'est que c'est sur plusieurs cellules mais pas toutes

et j'en ai trop pour les faire un par un ^^

donc voila que je voulais passer par un application.caller ou un truc dans le genre et je crée les cellule que je souhaite avec la macro affecté dessus

[jfontaine]

Dans ce cas, tu peux utiliser l'évenement ci dessous. Même principe sauf qu'en plus tu test la feuille

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
 
End Sub