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.

[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 !

[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 …

[Invité]

Je voulais dire langage et mon correcteur écrit ce qu'il veut! Pour l'horographe c'est cool, pour la compréhension...

[Invité]

Bonsoir,
Suivant les langue c'est focus ou setfocus, il m'arrive de me mélanger les pinceaux!

Prends celui qui convient!

[re]

Bonsoir
visiblement pour Fr c'est SetFocus
Merci

[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

[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]

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