Transformer 1 saisie dans textbox en nombre lors de la copie

[Bernard-Louis]

Bonjour le forum,

J'ai un textbox ou l'on saisit l'année, ou l'on peut la selectionner par liste déroulante avec ce code :

Private Sub cmdValider_Click()
'Ces lignes obligent a inscrire des données dans les cellules,
'sinon affichage d'un message d'alerte.
    If Me.Annee.Text = "" Then
        MsgBox "Vous devez entrer une année."
        Me.Annee.SetFocus
        Exit Sub
    End If

Le probleme qui se pose : est que le code suivant me recopie les saisies des differents textbox, au format text (ce qui est normal)

'Copie des valeurs du formulaire vers l'onglet "Source"
Sheets("Source").Range("A65536").End(xlUp).Offset(1, 0).Value = Annee

Ma question est : que faut il ajouter pour que la copie sur la feuille source se fasse au format nombre ?
Avec mes remerciements.
Cordialement

 

[Pierrot93]

Re : Transformer 1 saisie dans textbox en nombre lors de la copie

Bonjour Bernard-Louis

essaye peut être comme ceci :

Sheets("Source").Range("A65536").End(xlUp).Offset(1, 0).Value = CInt(Annee)

bon après midi
@+

 

[Bernard-Louis]

Re : Transformer 1 saisie dans textbox en nombre lors de la copie

Bonjour Pierrot93,

Je te remercie pour ton aide avec "Cint" qui donne ce que je souhaite, et cela m'a permis de trouver le "Ccur" pour les nombres avec décimales par l'aide F1 (pour une autre textbox).
Merci encore et bon Après-midi.
Cordialement