Microsoft 365 TextBox ajout texte dans cellule : clic sur entrée pour sortir

[Usine à gaz]

Bonjour à toutes et à tous 🙂

Au clic sur la cellule D4 : TextBox1 s'ouvre et je peux saisir un commentaire.
Ce commentaire, au clic sur entrée s'ajoute dans la cellule devant le texte déjà existant.

Ca fonctionne sans souci (grâce à Gérard 🙂)

Ce qui me turlupine :
1 - Si j'ai saisi un texte dans TextBox1, 1 seul clic sur entrée valide et ferme l'UserForm,
2 - Si je n'ai pas saisi de texte, il me faut 2 clic sur entrée pour en sortir.

Sauriez-vous comment sortir avec 1 seul clic sur entrée si je n'ai pas saisi de texte dans TextBox1 ?
C'est pas bien gênant mais quand même lol 🙂

En cas, je joins le fichier test seul le test TextBox1 est concerné.
Un grand merci à tous,
🙂

 

[Usine à gaz]

LOL, j'ai compris lol 🙂
Il faut d'abord un clic sur entrée pour entrer dans TexBox 1
et ensuite re-clic sur entrée pour valider.
C'est possible d'entrer "direct" dans TexBox 1 ?
🙂

 

[Eric C]

Bonjour le forum
Bonjour Lionel


Essaie ceci :

Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then Unload Job75
End Sub

Bonne journée
@+ Eric c

 

[Usine à gaz]

Re-Compris, il suffit d'ajouter un SendKeys (de Gérard 🙂) dans le code d'initialisation :

Private Sub UserForm_Initialize()
CreateObject("wscript.shell").SendKeys "{ENTER}"
'hwnd = FindWindowA("Thunder" & IIf(Application.Version Like "8*", _
'"X", "D") & "Frame", Me.Caption)
'SetWindowLongA hwnd, -16, GetWindowLongA(hwnd, -16) And &HFFF7FFFF
End Sub

Ci joint fichier qui fonctionne comme je le souhaite...
🙂

 

[Usine à gaz]

Bonjour Eric C et merci pour m'avoir répondu 🙂
LOL, j'avais trouvé voire #post ci-dessus...
🙂

 

[job75]

Bonjour Lionel, Eric C,

Pour que la touche <Entrée> ferme toujours l'UserForm il suffit de mettre le focus dans TextBox1 :

Private Sub UserForm_Initialize()
TextBox1.SetFocus
End Sub

A+

 

[Usine à gaz]

Bonjour Gérard 🙂
Merci d'être là et j'espère que tu vas de mieux en mieux 🙂
TextBox1.SetFocus : Je ne connaissais pas 🙂
Merci, c'est nickel aussi et c'est peut-être mieux d'éviter le CreateObject("wscript.shell").SendKeys "{ENTER}"
🙂

 

[Usine à gaz]

Bonjour Eric C 🙂; Bonjour Gérard, Bonjour le Forum 🙂

Je reviens sur ce fil car j'ai un besoin que je n'avais pas prévu 😡
Le code fonctionne nickel bien 🙂
Voici le besoin qui m'est apparu :
Si la colonne E de la ligne active contient "Date", je voudrais que TextBox1 ne s'affiche pas et que "Cells(ActiveCell.Row, 5) soit directement activée"

J'ai fait pas mal de tests "dans toutes les positions" lol. je n'y suis pas arrivé.
Voilà le code que j'ai gardé :

Private Sub UserForm_Initialize()
If Cells(ActiveCell.Row, 5) = 0 Then
Exit Sub
Else
hwnd = FindWindowA("Thunder" & IIf(Application.Version Like "8*", _
X, "D") & "Frame", Me.Caption)
SetWindowLongA hwnd, -16, GetWindowLongA(hwnd, -16) And &HFFF7FFFF
TextBox1.SetFocus
End If
End Sub

Auriez-vous le bon code ?
En cas, je joins le fichier test et je continue mes élucubrations.....
Un grand merci à vous
🙂

 

[Usine à gaz]

LOL : je m'améliore. je pense avoir trouvé :

Private Sub UserForm_Activate()
If Cells(ActiveCell.Row, 5) <> 0 Then
Unload Job75
Exit Sub
End If
End Sub

Voici en pièce jointe le fichier qui semble fonctionner.

Petite question : je vois passer TextBox1 est-ilk possible de "ne pas le voir passer" ? lol 🙂
Merci à tous
🙂

 

[Usine à gaz]

Bon, j'ai trouvé cette fois-ci comme il faut je crois lol 🙂
Il ne faut pas coder dans l'UserForm mais dans la feuille tout simplement.
Voici le bon fichier en pièce jointe
🙂