Microsoft 365 TextBox1 validation uniquement avec la touche "Entrée"

cathodique

XLDnaute Barbatruc

• 14 Mars 2021

• #2

Bonjour,

Ai-je bien compris ta demande? Une proposition à tester.
Agrandi ton userform ---> ajouter une textbox ---> Redimensionne ton userform comme à l'initial (La textbox ajoutée ne devrait pas être visible) ---> ajoute à la fin de ta procédure un setfocus (textbox2.setfocus).

Tu peux utiliser la touche Entrée ou Tab.

Bon dimanche.

edit: je crois que cette ligne de code Application.EnableEvents = False ne fonctionne pas dans userform.

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 14 Mars 2021

• #3

Bonjour cathodique,
Merci pour ta réponse 🙂
Je vais regarder,
lionel,

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 14 Mars 2021

• #4

Bonjour Lionel,

Il faut utiliser l'évènement KeyDown et définir la propriété Multiline à False

VB:

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  MsgBox KeyCode
End Sub

@+

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 14 Mars 2021

• #5

Bonjour Bruno,
Merci pour ton code 🙂
Je n'arrive pas à m'en servir car ce n'est pas un msg dont j'ai besoin mais de valider la saisie de mon nouveau commentaire,
Je continue mes recherches,

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 14 Mars 2021

• #6

Lionel,
Le Msgbox est pour l'exemple 😉
Je pensais que depuis le temps tu allais savoir mettre le code qu'il faut pour le reste, non !?

 

Vote positif 0 Vote négatif

cathodique

XLDnaute Barbatruc

• 14 Mars 2021

• #7

Apparemment, ça te prends des plombes pour faire un essai.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 14 Mars 2021

• #8

Bonjour le fil

Il y a recherche¸ et il y a recherches on the wild world web à dit:

Mes recherches et tentatives n'ont pas abouti.

Cliquez pour agrandir...

😉
J'ai cherché pendant 7 minutes et 27 secondes
(C'est ce qu'indique mon micro-ondes)
Un userform et deux textBox

VB:

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = vbKeyReturn Then
[A1] = TextBox1
Me.Hide
End If
End Sub
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Cancel = True
End Sub
Private Sub UserForm_Initialize()
TextBox2.Visible = False
End Sub

 

Vote positif 0 Vote négatif

Solution

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 14 Mars 2021

• #9

Re-Bonjour,
@cathodique : c'est bon ça marche 🙂
@BrunoM45 : c'est bon aussi maintenant 🙂
@Staple1600 : Merci pour ton code super ça marche aussi super bien 🙂
Bon dimanche à tous,
Vraiment merci à vous 🙂
lionel,

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 14 Mars 2021

• #10

Bonjour Lionel, le fil,

Perso j'utiliserais le double-clic pour valider la saisie, voyez le fichier joint avec le code de l'UserForm :

VB:

Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Cancel = True
If TextBox1 <> "" Then ActiveCell(1, 2) = Format(Date, "dd.mm.yy : ") & Replace(TextBox1, vbLf, " - ") & vbLf & ActiveCell(1, 2)
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
ActiveCell(1, 2).Select 'pour quitter la colonne I
End Sub

A+

 

Pièces jointes

• ajoutInfo_test_Forum(1).xlsm

  21.7 KB · Affichages: 6

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 14 Mars 2021

• #11

Bonjour Gérard,
Merci d'être là aussi 🙂
Je teste et je reviens,
lionel,

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 14 Mars 2021

• #12

Re Gérard,

C'est également super bien le double clic dans le message.
Merci à toi 🙂
Bon dimanche,
lionel

 

Vote positif 0 Vote négatif