XL 2019 Lancer des application en cliquant sur les chiffre

Staple1600

XLDnaute Barbatruc

• 15 Octobre 2022

• #2

Bonjour@MOHAMED31 , le fil

@MOHAMED31
Tu veux dire quand tu cliques dans une cellule contenant un chiffre de 1 à 9
Ou directement sur le clavier numérique ?

 

Vote positif 0 Vote négatif

M

MOHAMED31

XLDnaute Nouveau

• 15 Octobre 2022

• #3

je voulais dire dans une cellule je clic sur la touche 1 ou 2 du clavier

Merci

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 15 Octobre 2022

• #4

Re

Un exemple simple
Dans le code de la feuille concernée

VB:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, [C1]) Is Nothing Then
Application.Run "Macro" & Target.Value
End If
End Sub

Dans un module standard

Code:

Sub Macro1()
MsgBox Time
End Sub
Sub Macro2()
MsgBox Application.UserName
End Sub

Lancer macro 1
Ensuite mettre un 1 en C1 puis cliquer sur C1
Lancer macro 2
Effacer le 1 et mettre un 2 puis cliquer C1

NB: test OK sur mon PC

 

Vote positif 0 Vote négatif

Eric C

XLDnaute Barbatruc

• 15 Octobre 2022

• #5

Bonsoir le forum
Bonsoir MOHAMED31, Staple1600

En conservant l'exemple de notre ami Staple1600 (que je salue au passage), je joints un fichier qui doit être au plus près de ce que désire MOHAMED.
Bonne soirée
@+ Eric c

 

Pièces jointes

• Appel macro depuis click sur cellules 1 à 9.xlsm

  18.4 KB · Affichages: 2

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 15 Octobre 2022

• #6

Bonjour à tous

@Eric C

Un petit oubli 😉 😳



@Phil69970

 

Vote positif 0 Vote négatif

Eric C

XLDnaute Barbatruc

• 15 Octobre 2022

• #7

Re le fil
Bonsoir Philippe

Oui, bien vu. Il est vrai que j'étais parti pour 10 cases puis en relisant le post initial, je me suis aperçu que le demandeur parlait de 9 cellules dont j'ai effacé la 10ème cellule et ai oublié de "recadrer" mon Range.
Bonne soirée
Eric

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 15 Octobre 2022

• #8

Bonsoir le fil, @Eric C

@Eric C
En me basant sur l'image du post de @Phil69970 (que je salue au passage)
Petit souci si je saisis du texte en A1:A9 , non ? 😉

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 15 Octobre 2022

• #9

Re

@Staple1600 :

Il suffit de remplacer pour éviter la multi sélection de cellule

Application.Run "Macro" & Target.Value

Cliquez pour agrandir...

par

Application.Run "Macro" & ActiveCell

Cliquez pour agrandir...

et cela devrait faire affaire (on peut se passer du ".Value")

@Phil69970

 

Vote positif 0 Vote négatif

Eric C

XLDnaute Barbatruc

• 15 Octobre 2022

• #10

Re le fil

@Staple1600 : j'ai tenté de comprendre ce que désirait MOHAMED à la lecture du post#1 :

je voudrais lancer des application en cilquant sur les chiffre
par exemple
si je clic sur chiffre 1 macro 1 est lancé
si je clic sur chiffre 2 macro 2 est lancé

Cliquez pour agrandir...

Donc, j'en ai déduit qu'il désirait à l'issue d'un click sur une des cellules contenant un chiffre (1 à 9) lancer une macro qui correspond au chiffre de la cellule. Donc, je ne vois pas pourquoi, il saisirait du texte ? Maintenant, peut être me trompé-je ?
Bonne soirée à toi
Eric

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 15 Octobre 2022

• #11

Re

@Eric C

Donc, je ne vois pas pourquoi, il saisirait du texte ?

Cliquez pour agrandir...

Parce que l'I.C.C ou P.E.B.C.A.K est ainsi fait
Parce que la loi de Murphy
😉

Tout cela pour dire que, on pourrait ajouter un Check
IsNumeric et Len(Target)> 0

 

Vote positif 0 Vote négatif

M

MOHAMED31

XLDnaute Nouveau

• 15 Octobre 2022

• #12

Bonjour
1 er je remercie tous de m avoir répondu , 2 eme peut etre j ai mal exprimé ma demande
je réexplique

quand j ai parlé sur les chiffre c est en tapant sur les touche du clavier et non pas ecrire des chiffre sur la feuille
j espére j étais claire et suite a des recherche sur google je pense qu il faut utiliser la fonction onkey
merci

 

Vote positif 0 Vote négatif

Eric C

XLDnaute Barbatruc

• 15 Octobre 2022

• #13

RE le fil

Oui, il est vrai qu'une mauvaise manipulation de l'utilisateur... J'arrête là car notre ami MOHAMED31 s'est manifesté..... Donc, je considère qu'il n'a pas pris la peine de, correctement, examiner le post #2 et que de ce fait tout est parti en live.... Ah là là ..... 12 posts pour en arriver.... au point de départ.... 👎
@+ Eric c

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 15 Octobre 2022

• #14

Re

@Eric C
Moi la question que je me pose
C'est comment on pourra saisir des chiffres dans une cellule?
Si un code VBA lance des macros quand on appuie sur les chiffres du clavier numérique.

 

Vote positif 0 Vote négatif

Eric C

XLDnaute Barbatruc

• 16 Octobre 2022

• #15

???? Alors là, JM, tu m'embrouilles 🤔 .

 

Vote positif 0 Vote négatif