Format nombre
m
Bonjour,
Je voudrai 'forcer' la saisie en nombre dans la txtbox
J'ai bien réussi pour la date (txtfdate). En effet les chiffres que je saisie dans mon userform se situe sur la gauche dans les cellules. Comment faire pour rectifier
Merci
Ci-dessous la partie de code concerné
'******************
' procedure permettant
' d'ajouter un nouvel enregistrement
' dans la base de données
'************************
Private Sub BtnAjout_Click()
Sheets("Source").Activate
Range("A1").Select
Selection.End(xlDown).Select ' on se positionne sur la derniere ligne non vide
Selection.Offset(1, 0).Select ' on se décale d'une ligne vers le bas
ActiveCell = CDate(TxtDate.Value)
ActiveCell.Offset(0, 1).Value = CboBoissons
ActiveCell.Offset(0, 2).Value = TxtDébutFrigo
ActiveCell.Offset(0, 3).Value = TxtFinFrigo
ActiveCell.Offset(0, 4).Value = TxtSortieCave
End Sub Bonjour,
ActiveCell.Offset(0, 1).Value = cbdl(CboBoissons)Eventuellement remplacer le séparateur décimal s'il peut être mal saisi.
eric
m
J'ai essayé ce code :
Private Sub BtnAjout_Click()
Sheets("Source").Activate
Range("A1").Select
Selection.End(xlDown).Select ' on se positionne sur la derniere ligne non vide
Selection.Offset(1, 0).Select ' on se décale d'une ligne vers le bas
ActiveCell = CDate(TxtDate.Value)
ActiveCell.Offset(0, 1).Value = CboBoissons
ActiveCell.Offset(0, 2).Value = cbd1(TxtDébutFrigo)
ActiveCell.Offset(0, 3).Value = cbd1(TxtFinFrigo)
ActiveCell.Offset(0, 4).Value = cbd1(TxtSortieCave)
End Sub Mais cela ne fonctionne pas
Bonsoir,
C'est CDbl et pas cbdl.
Cdlt.
Ca veut dire Convertir en Double (en décimal double)