Enregistrement automatique de mon userform

Fermé
flossi Messages postés 1 Date d'inscription lundi 14 octobre 2013 Statut Membre Dernière intervention 7 mai 2014 - Modifié par flossi le 7/05/2014 à 22:45
eriiic Messages postés 24601 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 25 novembre 2024 - 8 mai 2014 à 00:12
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

1 réponse

eriiic Messages postés 24601 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 25 novembre 2024 7 243
8 mai 2014 à 00:12
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 

0