lancer macro sur selection cellule

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

Bonjour,

Tu peux utiliser l'évenement Worksheet_SelectionChange

Code:

---

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

---

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. ^^

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:

---

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

---

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

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

Code:

---

1 2 3

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

---

je n'ai pas reelement reussie a utiliser ta derniere commande.
j'ai cherché de mon coté pour bricoler un truc et je suis arrivé à ca:

Code:

---

1 2 3 4 5

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Value >= 0 And Target.Value <> "" Then Target.Value = Target.Value + 1 End If End Sub

---

Tout bête je sais mais je pense que ça peut répondre à ce que j'attend.
Cependant un autre problème apparaît. quand je clique sur une cellule qui correspond à 6 cellules fusionnées il me donne une incompatibilité de type.

Connaîtrais tu une solution à ça?

Bonjour,

Essaye avec

Code:

---

1 2 3 4 5

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Cells(1,1).Value >= 0 And Target.Cells(1,1).Value <> "" Then Target.Cells(1,1).Value = Target.Cells(1,1).Value + 1 End If End Sub

---

j'ai trouvé une solution pour mon dernier probleme en faisant

Code:

---

1 2 3 4 5 6 7

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Cells(Target.Row, Target.Column) >= 0 And Cells(Target.Row, Target.Column) <> "" Then On Error Resume Next Cells(Target.Row, Target.Column) = Cells(Target.Row, Target.Column) + 1 Cells(7, Target.Column).Select End If End Sub

---

Pour améliorer ce code, j'aimerai savoir s'il est possible de desélectionner une cellule, sans en sélectionner une autre?

Merci

Dsl BlueMonkey quand j'ai repondu je n'avais pas vu ton message.
Mais dans le principe on a eu la même idée ^^