Lancer une procedure par selection de cellule

**Kaory** · 19/06/2006, 15h26

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 !

**zebulon2212** · 19/06/2006, 15h57

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

Code :

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

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

**Ania** · 19/06/2006, 16h04

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

**Kaory** · 19/06/2006, 16h31

Avant tout merci pour avoir repondu ^^

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

Code :

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

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 :

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

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

**zebulon2212** · 19/06/2006, 16h38

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 :

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

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

**Kaory** · 19/06/2006, 16h56

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