enregistrement automatique de mon userform

Question

Bonjour,

Je suis une novice en programmation donc je ne comprends pas grand chose. Mon problème est qu'actuellement je suis obligée pour chaque montant que je veux saisir dans mon userform de cliquer sur un bouton pour faire apparaître l'userform, saisir mon montant,  valider et recommencer pour saisir le montant suivant. Je trouve cela long et fastidieux. J'aimerai que lorsque j'ouvre mon userform saisir un montant valider avec la touche entrée de mon clavier et continuer ma saisie tout cela sans sortir de mon userform.
Merci d'avance
le code actuellement est celui-ci
Private Sub CommandButton1_Click()
'sélectionne la première ligne vide feuille "bdd" et remplit les cellules 1 à 3, 6 et 9
With Sheets("Liqueur")
lign = .Range("A65536").End(xlUp).Offset(1, 0).Row

.Cells(lign, 1) = TextBox1
Unload Userform1
End With

End Sub

eriiic · Answer

Bonjour,

Ajoute un bouton 'Quitter' et essaie avec ça :
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
   With Sheets("Liqueur")
      lign = .Range("A65536").End(xlUp).Offset(1, 0).Row
      .Cells(lign, 1) = cbdl(TextBox1)
   End With 
End Sub

Enregistrement automatique de mon userform

1 réponse

Votre réponse

Discussions similaires

Newsletters