Discussion :

[re]

Bonjour,
Lorsque j'utilise SendKeys peut importe l'appel de touche (exemple SendKeys "{TAB}") ça me désactive ou réactive la touche numérique du clavier à chaque lancement de la macro et ça ne fait pas la fonction demandée.

Exemple :

Code :

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

1
2
3
4
Private Sub ComboBox1_Change()
Sheets("Formule").Range("A1").Value = ComboBox1.Value
SendKeys "{TAB}"
End Sub

Avez vous une idée

Win 10 64bits / office 2016

Merci

[Marc-L]

Bonjour,

ne pas utiliser les instructions SendKeys du VBA mais celle de Windows :   CreateObject("WScript.Shell").SendKeys   …

___________________________________________________________________________________________________________

     Merci de cliquer sur en bas à droite de chaque message ayant aidé puis sur pour clore cette discussion …

___________________________________________________________________________________________________________

Je suis Paris, Nigeria, New-York, Mogadicio, Barcelone, London, Manchester, Egypte, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[patricktoulon]

bonjour

perso j'aimerais bien savoir a quoi te sert ton sendkeys
ton code

Code :

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

1
2
3
4
Private Sub ComboBox1_Change()
Sheets("Formule").Range("A1").Value = ComboBox1.Value
SendKeys "{TAB}"
End Sub

qu'est ce que ton tab est sensé faire ???????????

[re]

Merci pour vos réponses
CreateObject("WScript.Shell").SendKeys "{TAB}"
Fonctionne mais envoie aussi un active pavé num seul pour chaque lancement

Vu l'interrogation de patricktoulon je ne dois peut être pas utiliser correctement la fonction désirée qui est de :
A partir d'un useform dans lequel il y a des combobox qui va cherché une liste de données, lorsque je choisi une valeur en entier la validation ce fait dans la cellule A1 de la feuille mais si cette valeur a une décimale il faut aller à la useform suivante ou faire un TAB pour qu'elle se valide dans la cellule.

[patricktoulon]

je me doutais bien qu'il y avait une histoire de changement de focus soit de cells soit de control activx dans un usf mais changement de userform la je l'ai pas vu venir celle la

tu veux dire quoi exactement par ceci:

lorsque je choisi une valeur en entier la validation ce fait dans la cellule A1 de la feuille mais si cette valeur a une décimale il faut aller à la useform suivante ou faire un TAB pour qu'elle se valide dans la cellule.

[Marc-L]

Merci pour vos réponses
CreateObject("WScript.Shell").SendKeys "{TAB}"
Fonctionne mais envoie aussi un active pavé num seul pour chaque lancement

Jamais de mon côté et pourtant testé sur une bonne trentaine de PC différents …

[re]

je me doutais bien qu'il y avait une histoire de changement de focus soit de cells soit de control activx dans un usf mais changement de userform la je l'ai pas vu venir celle la

tu veux dire quoi exactement par ceci:

Exemple :
B1= 1
B2 =1,5
Si dans le choix du combobox je choisi 1 le ControlSource et donc la cellule (A1) ou s'écrit la valeur 1 est validée
Si dans le choix du combobox je choisi 1,5 le ControlSource et donc la cellule 'A1) ou s'écrit la valeur 1,5 n'est pas validée, seule solution que j'ai trouvé, faire un TAB ou aller à la combobox suivante !

[Invité]

Bonjour,

Je peux choisir 2?

Si oui ça justifierait largement l'emploi du SendKeys!

Si pas validé comboboxSuivante.focus

[re]

Oui tant qu'il n'y a pas de décimale y a pas de limite

[re]

Merci pour la suggestion, ça fonctionne avec : combobox2.Setfocus j ai erreur avec combobox2.focus seul, c'est normal docteur ? :-)

[patricktoulon]

perso plus tu essaie de t'expliquer plus je suis dans le flou
tu parle de userform2 maintenant tu parle d'autre cellule

je vais laisser décanter tout ca et quand ton but sera un peu plus éclairci je reviendrais

j'ai une très forte conviction qu'il y a confusion sur les objects et leur propriétés de ta part

[re]

Cher Expert Eminent Senior,
Comme tu l'as constaté je ne suis pas un expert :-)
Avec une image c'est mieux ou veux tu un fichier ?

Code :

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

1
2
3
4
5
Private Sub ComboBox1_Change()
Sheets("Formule").Range("A1").Value = ComboBox1.Value
CreateObject("WScript.Shell").SendKeys "{TAB}"
ComboBox2.SetFocus
End Sub

Merci

[unparia]

Bonjour

Comme tu l'as constaté je ne suis pas un expert

Et cela se voit (autant que se voit l'absence de réflexion) ...
Déjà :
L'évènement Change d'une combobox survient (comme son nom l'indique très clairement) lorsque le texte de la zone d'édition de la combobox est modifié.
Ce qui veut dire que si tu y frappes "bonjour", cet évènement surviendra ... 7 fois ! ... et aura des incidences sur ta feuille ... 7 fois

Mais le ton que tu emploies à l'égard de patricktoulon, que je salue, fait que je te mets un pouce rouge et te laisse personnellement méditer (cela fait du bien, de méditer un peu...)

[re]

Bonjour
Mais le ton que tu emploies à l'égard de patricktoulon, que je salue, fait que je te mets un pouce rouge et te laisse personnellement méditer (cela fait du bien, de méditer un peu...)

Mais que cela veut dire ?
Je n'ai jamais manqué de respect à patricktoulon, il est venu vers moi pour m'aider et je le remercie pour son aide.Je ne comprends pas que tu puisses m'agresser, il me semble être courtois non ? le ''Cher Expert'' était tout ce qu'il y de plus respectueux avec de l'humour pour le sachant.
Comment dois-je interpreter '' Et cela se voit (autant que se voit l'absence de réflexion)'' ?
Je débute en code VBA je n'en ai aucune honte.

Ceci dit, j'ai toujours eu de bonnes discutions très constructives ici, que me reproches tu exactement ?

Pour en revenir à ta réponse , je ne comprends pas je n'ai aucune répétition, lorsque je choisi un nombre il s'affiche dans la cellule A1 et il y reste tant que je ne choisi pas un autre valeur et l'on passe à la combobox2 si l'on veut

Bien à toi
Ps : c'est bien la 1er fois ....

[unparia]

Essaie la prochaine fois de dire "cher patricktoulon" et tout ira moins mal, hein ...
Et apprends dans la foulée l'art de vivre --->> lorsque, après "cher" (qui est un adjectif qui implique un sentiment), on met en avant une fonction, un grade, un métier, etc ... (qui n'impliquent, eux, aucun sentiment), on "dit" certaines choses qui ne sont pas celles que tu crois.

[re]

Cher unparia
Ce n'est pas comme ça qu'il fallait interpréter, je t'assure que c'était très amical mais à chacun son humour :-)

"Tu dis : Et apprends dans la foulée l'art de vivre '' (tu as du passer une mauvaise journée :-)
Pas tout a fait d'accord avec toi que fais -tu de ''Cher Maître'' par exemple
Bref incident clos !
J'espère que j'arriverai à régler mon petit souci qui est le but de ce post, si quelqu'un à compris m'a demande et si quelqu'un veut bien m'aider
@+

[unparia]

mais à chacun son humour

Ah ? -->> accepte donc le mien

PS : non, je ne dirais jamais "Cher Maître". Je dirais "Maitre" ou (si amitié annexe à la fonction) "Cher Pierre", "Cher Monsieur Dupont", mais en aucun cas "Cher Maître" !
Te viendrait-il à l'idée (avocat ou accusé) de dire "Cher Juge" à un juge ? Non, n'est-ce-pas ? Bien sûr que non !
Mais si toutefois tu le faisais, cela aurait une connotation que je te laisse deviner, hein ...

[re]

Unparia,
je n'ai pas envie de polémiquer, le cher Maître est bien un usage. je ne pensais qu'un petit cher allait créer un incident, dommage, tu sais ce que tu écris avec humour ou pas est quand même agressif, mais tu es pardonné...
Que la paix soit avec toi :-)

Et mon petit souci comment on le traite ?

[unparia]

Et mon petit souci comment on le traite ?

avec soin
Que l'esprit soit avec toi
A demain (peut-être ...)

[patricktoulon]

re
avec soin