Lancer une procedure par selection de cellule

Bonjour a tous !

Alors mon probleme est tout simple. J'aimerai savoir quel est precisement le code a taper pour faire de sorte que lorsque je selectionne une cellule au hasard de ma feuille excel, et ben une procedure se lance automatiquement.

J'ai fait quelques recherches et il semblerait que la procedure a utiliser est
Worksheet_Activate()

Le probleme c'est que j'en suis pas si sure et de plus je ne vois pas vraiment la syntaxe a utiliser.

J'espere avoir ete comprehensible et vous remercie d'avance pour votre aide ! ;)

Par simple click je ne connait pas la syntaxe mais pour un dble click voila la syntaxe que j'ai utilisé :

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean) Dim Plage As Range 'Si la cellule ciblé est dans la plage précisé If Target.Row = 15 And Target.Column < 61 And Target.Column > 1 And Range("BJ7").Locked = False Then Call fonction(Target)'Appel de la fonction que tu veux End If Cancel = True End Sub

---

ce code doit etre placé sur la feuille qui detecte ta selection de cellule

Apres un rapide coup d'oeil dans l'aide de VBA

tu ne peux apparemment pas lancer de procedure directement avec un clique par contre tu peux le faire avec un bouton placé sur ta feuille, ou avant un click droit ou comme l'a dit zebulon2212 avant un double click

Bon courage et bonne continuation :D

Avant tout merci pour avoir repondu ^^

Sinon voila mon code :
- d'une part, la procedure que je veux lancer

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub marquerPlageActive()   Dim a As Long If ActiveCell.Row >= 2 And ActiveCell.Row <= 11 And ActiveCell.Column >= 2 And ActiveCell.Column <= 21 Then If VerifierVoisin() Then 'Verifie si la cellule n'a pas de cellule voisine de meme couleur. ActiveCell.Value = "" MsgBox "La plage n'est composee que d'une cellule." Else Enlever 'Enleve toutes les marques du coup precedent Travail ActiveCell.Row, ActiveCell.Column, ActiveCell.Interior.Color 'Marque toutes les cellules voisines de meme couleur. End If Else MsgBox "La cellule doit se trouver dans la plage coloree !" End If   End Sub

---

Puis ce que j'ai place pour l'appel de cet procedure par double clic comme conseille :

Code:

---

1 2 3 4 5 6

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target = "" Then marquerPlageActive Target 'Appel de la fonction que tu veux End If Cancel = True End Sub

---

En fait ce que j'essaie de faire, c'est une version VBA du jeu Same que l'on peut trouver ici et ce morceau de code me permettra de selectionner un cellule quelconque du plateau, d'evaluer le nombre de point que le coup rapportera sans pour autant jouer le coup. Il est alors possible de selectionner une autre cellule afin de comparer le nombre de points... j'espere etre suffisament claire :P

a quoi ca te sert d'envoyer Target en argument si tu ne le recupere pas ds ta fonction ?
target est l'adresse de ta cellule, le recuperer peut t'eviter une partie de ton code qui verifie l'emplacement de ta cellule celectionné

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub marquerPlageActive(Target as Range)   Dim a As Long If Target.Row >= 2 And Target.Row <= 11 And Target.Column >= 2 And Target.Column <= 21 Then If VerifierVoisin() Then 'Verifie si la cellule n'a pas de cellule voisine de meme couleur. ActiveCell.Value = "" MsgBox "La plage n'est composee que d'une cellule." Else Enlever 'Enleve toutes les marques du coup precedent Travail ActiveCell.Row, ActiveCell.Column, ActiveCell.Interior.Color 'Marque toutes les cellules voisines de meme couleur. End If Else MsgBox "La cellule doit se trouver dans la plage coloree !" End If   End Sub

---

de la meme maniere envoyer a ta fonction travail 2 variable pour avoir la ligne puis la colonne n'est pas tres habile, il vaudrait mieu en voyer un seul objet de type Range

Merci, ca y est ! Ca marche parfaitement apres ces corrections !

Mais bon je vais preciser un shtit quelquechose qui pourrait servir aux debutants (vu que c'est un petit peu ma position ^^')

Ne pas confondre Feuille et Module erf... *va se cacher sous les regards desesperes des moderateurs*

Encore merci et a tres bientot :D

N'oublie pas de marquer ce sujet comme résolu sinon le regard des moderateur va vraimment etre desepéré;)

'A y est, c'est fait ! ;)

*salue ses superieurs et se remet au travail...*

Vivement la fin des exams -_-
Bon Courage a tous ceux qui en passent !!!