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