Bonjour à tous.
Un Userform avec 5 zones de saisie (dans l'ordre du focus) dans une même frame:
- TextBoxDate,
- ComboBoxLiaison,
- TextBoxCaisse,
- TextBoxSaisieC5
- TextBoxSaisiePlomb
Private Sub TextBoxSaisiePlomb_Exit(ByVal Cancel As MSForms.ReturnBoolean)
InsereUneLigne
'recopie les valeurs saisies sur la ligne insérée
ActiveCell = Me.TextBoxDate
ActiveCell.Offset(0, 1) = Me.ComboBoxLiaison
ActiveCell.Offset(0, 2) = Me.TextBoxCaisse
ActiveCell.Offset(0, 3) = Me.TextBoxSaisieC5
ActiveCell.Offset(0, 4) = Me.TextBoxSaisiePlomb
Me.TextBoxSaisieC5 = ""
Me.TextBoxSaisiePlomb = ""
End Sub
Les zones de saisie doivent être renseignées par scan de codes à barres.
Je souhaite qu'à chaque saisie dans le TextBoxSaisiePlomb, les données soient copiérs dans ma feuille (sans utiliser de bouton OK.
Pouvez-vous m'aider ?
D'avance, merci.
Cordialement,
Patric
Un Userform avec 5 zones de saisie (dans l'ordre du focus) dans une même frame:
- TextBoxDate,
- ComboBoxLiaison,
- TextBoxCaisse,
- TextBoxSaisieC5
- TextBoxSaisiePlomb
Private Sub TextBoxSaisiePlomb_Exit(ByVal Cancel As MSForms.ReturnBoolean)
InsereUneLigne
'recopie les valeurs saisies sur la ligne insérée
ActiveCell = Me.TextBoxDate
ActiveCell.Offset(0, 1) = Me.ComboBoxLiaison
ActiveCell.Offset(0, 2) = Me.TextBoxCaisse
ActiveCell.Offset(0, 3) = Me.TextBoxSaisieC5
ActiveCell.Offset(0, 4) = Me.TextBoxSaisiePlomb
Me.TextBoxSaisieC5 = ""
Me.TextBoxSaisiePlomb = ""
End Sub
Les zones de saisie doivent être renseignées par scan de codes à barres.
Je souhaite qu'à chaque saisie dans le TextBoxSaisiePlomb, les données soient copiérs dans ma feuille (sans utiliser de bouton OK.
Pouvez-vous m'aider ?
D'avance, merci.
Cordialement,
Patric
Pièces jointes
Dernière édition: