XL 2016 macro dans cellule

[jo50160]

Bonjour à tous.

Voilà mon problème, dans ma feuille de calcul, j’ai des cellules qui remplacent les boutons, dans cellule C3 « Cellule vide » et la cellule C1 « Tirage nombres » celle-ci fonctionne.

Par contre, la cellule A1 « Effacer » et la cellule C3 « Tirage étoile » Je n’arrive pas à les faire fonctionner, je pense que le problème vient de (Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) et la je sèche.
Si vous avez quelques idées je vous en remercie.

Je vous joint mon tableur

Cordialement.

 

[mapomme]

Bonjour @jo50160 ,

C'est normal. Vous avez deux procédure évènementielles. Dans aucune des deux, vous ne mentionnez ni A1 ni C3.

Il vous faut tester avec des If Then ... elseif ... Then ... dans les procédures évènementielles de votre choix les adresses d'action.

nota : j'ai du mal à comprendre ce que représente votre "Tirage nombres" et à quoi il peut bien servir ?

Exemple pour Worksheet_SelectionChange (à adapter) :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If Target.Address = "$A$3" Then
      Range("C8").End(xlDown).Offset(1, 0).Select
   ElseIf Target.Address = "$A$1" Then
      ' ici les lignes du code associé à A1
   ElseIf Target.Address = "$C$3" Then
      ' ici les lignes du code associé à C3
   End If
End Sub

 

[jo50160]

Merci beaucoup pour votre réponse.
Pour répondre a votre "Nota" le tirage nombres me sert a selectionner des nombres aléatoire entre 1 et 40 dans la colonne (K6:K45). cette solution me sert a joué au EuroDreams. Voilà.

 

[jo50160]

Bonjour Mapomme :
j'ai un petit souci via
« Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = " $ A $ 3" Then
Range ("C8").End (xlDown).Offset (1, 0).Select »
Quand je clique sur la cellule vide, il sélectionne la cellule (« C8 »), quand écrit dans cette cellule
Et je clique sur cellule vide, il me sélectionne toujours la C8.

Merci de bien vouloir m'aider.
cordialement

 

[jo50160]

Rebonjour Mapomme.
Ecuse moi, mais j'ai trouvé la solution
If Target.Address = "$A$3" Then
Range("C6").End(xlDown).Offset(1, 0).Select
Cells(Rows.Count, 3).End(xlUp)(3).Select
J'ai rajouter la ligne du dessus.
Merci encore pour ton aide.