Bonjour,

Mes textbox contiennent des nombres
Mais quand ils sont copiés dans les cellules de la feuille, il sont au format texte, même en formatant les cellules
J'ai donc ajouté Clng ---> Range("A" & L).Value = CLng(TextBox1)

Et là ça marche, les valeurs sont bien au format nombre.

Mais cela m'a créé un nouveau problème, si la textbox est vide, j'ai un message d'erreur
et je ne sait pas comment faire pour l'éviter

Merci pour votre aide

Je joins le fichier
http://www.cjoint.com/14nv/DKboJTSt0jN.htm

Bonsoir,

Private Sub CommandButton1_Click()
On Error Resume Next
etc.....

doit faire la demande

ou faites un contrôle des textbox au moment du click

gilbert_rgi a écrit :

Bonsoir,

Private Sub CommandButton1_Click()
On Error Resume Next
etc.....

doit faire la demande

ou faites un contrôle des textbox au moment du click

Merci beaucoup !

Ça marche avec on error resume next !

@+

Salut le Forum

Il est préférable de contrôler la saisie que d'utiliser le On Error Resume Next

If IsNumeric(TextBox1.Value) Then Range("A" & L).Value = CLng(TextBox1)

If IsNumeric(TextBox2.Value) Then Range("B" & L).Value = CLng(TextBox2)

Mytå

Mytå a écrit :

Salut le Forum

Il est préférable de contrôler la saisie que d'utiliser le On Error Resume Next

If IsNumeric(TextBox1.Value) Then Range("A" & L).Value = CLng(TextBox1)

If IsNumeric(TextBox2.Value) Then Range("B" & L).Value = CLng(TextBox2)

Mytå

Hello,

ça marche bien aussi, bonne journée !