XL 2016 VBA - Saisir dans une cellule après avoir activé un UserForm en vbModeless

Hasco

XLDnaute Barbatruc

Repose en paix

• 18 Août 2022

• #2

bonjour,

Euh.....

VB:

Private Sub TextBox1_Change()
    Range("B2") = TextBox1.Value
End Sub

Ne suffit pas ? C'est pas assez compliqué ?

Cordialement

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 18 Août 2022

• #3

Bonjour @Hasco,
Merci pour ta suggestion mais je me rends compte que je n'ai pas assez d'information sur ce que fait l'Add-In en question. Donc pour le moment on va en rester là.

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 18 Août 2022

• #4

L'Add-In ne sait envoyer des données qu'en cellule (active je suppose).
De plus, il ne génère pas de ENTER ou TAB après avoir placé ses données en cellule.
Donc je suis obligé d'envoyer des SendKeys ENTER régulièrement jusqu'à obtenir une valeur en cellule.

Si je reste sur le UserForm, les SendKeys vont s'appliquer à la TextBox.
Il faut donc que ce soit la feuille qui soit réellement active pour que les SendKeys s'appliquent à la cellule active qui aura éventuellement reçu des données de l'Add-In. Et c'est cette opération que je réalise avec un clic souris VBA et que je préfèrerais réaliser avec de l'API sur les Handles.

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 18 Août 2022

• #5

re
ben avec les api tu met ton userform au premier plan tout le temps de son utilisation (setwindowsPos) puis avant tes sendkeys tu fait un sheet.activate et tu lance tes sendkey ou actuve une cellule particuliere en la selectionnant
le sheet sera actif tout en gardant ton userform au premier plan
voila voila

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 18 Août 2022

• #6

Bonjour ici @patricktoulon,
J'aimerais autant que tu me fasses un exemple VBA.
Comme ça faut que je cherche et ça va me fatiguer encore plus après le HTML qui m'a épuisé et toi tu connais ça par cœur.
Merci par avance.

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 18 Août 2022

• #7

re
j'ai du mal a comprendre normalement en vbmodeless il est on top le userform non?

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 18 Août 2022

• #8

sinon trouve les declaration pour ta version d'excel et dans le activate du userform

VB:

'SetWindowPos GetActiveWindow, 1, 0, 0, me.width*(4/3),me.height*(4/3), &H2

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 18 Août 2022

• #9

sinon si tu est amener a avoir plusieurs Forms afficher ou naviguer de fentre en fenetre meme hors application alors avec les api au black pas cher net d'impot pas declaré
dans ton userform

VB:

'**********************************************************************************************
'      fixer le UserForm au premier plan
'patricktoulon
'**********************************************************************************************

'EXEMPLE
Private Sub UserForm_Activate()
    Premier_Plan
UserForm1.Show 0
End Sub

Sub Premier_Plan()
    Dim hwnd&
     hwnd = ExecuteExcel4Macro("CALL(""user32"",""GetActiveWindow"",""JCC"")")
    ExecuteExcel4Macro ("CALL(""user32"",""SetWindowPos"",""JJJJJJJJ""," & hwnd & ", " & -1 & ", " & 0& & ", " & 0& & ", " & 0& & ", " & 0& & ", " & (&H1 Or &H2) & ")")
End Sub

 

Vote positif 0 Vote négatif

Solution

Dudu2

XLDnaute Barbatruc

• 18 Août 2022

• #10

Ok, merci @patricktoulon.
Saurais-tu récupérer le Handle de la fenêtre Excel dans le code du UserForm ?
Application.Hwnd est sûr ?

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 18 Août 2022

• #11

re
tout simplement
application.hwnd

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 18 Août 2022

• #12

oui, ok, merci ! Parfait !

 

Vote positif 0 Vote négatif