problème format de cellule depuis textbox

Bonjour les amis

j'ai un soucis en voulant reporter les valeurs de mes textbox dans mes cellules, elles se reportent tout le temps en format texte
j'ai essayé plusieurs façon mais rien ne fonctionne, mes cellule à la base sont au format nombre et 2 chiffre après la virgule mais je peux pas récupérer mais décimal.
j'ai essayé avec val et cdbl mais sans succès
c'est les textbox 8 et 10 qui sont concernés
merci de votre l'aide

Code:

---

1 2 3 4 5 6

Worksheets("Ndev").Range("G" & derlign + 1 & ":K" & derlign + 1).Value = TextBox7.Value Worksheets("Ndev").Range("L" & derlign + 1).Value = TextBox8.Value Worksheets("Ndev").Range("M" & derlign + 1).Value = ComboBox1.Value Worksheets("Ndev").Range("N" & derlign + 1).Value = TextBox10.Value Range("L" & derlign + 1 & ":N" & derlign + 1).Select Selection.NumberFormat = "0.00"

---

Bonjour.

Il faut mettre le format de cellule avant d'ecrire dans la cellule.

Essaie comme ceci.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

' G-K Worksheets("Ndev").Range("G" & derlign + 1 & ":K" & derlign + 1).Value = TextBox7.Value   'Formater L-N Range("L" & derlign + 1 & ":N" & derlign + 1).NumberFormat = "0.00"   'L Worksheets("Ndev").Range("L" & derlign + 1).FormulaLocal = TextBox8.Value   'M Worksheets("Ndev").Range("M" & derlign + 1).Value = ComboBox1.Value   'N Worksheets("Ndev").Range("N" & derlign + 1).FormulaLocal = TextBox10.Value

---

Boujour et merci de votre réponse mais ce n'est pas mieux maintenant en plus j'ai #VALEUR!

Pièce jointe 248464

et voici un peu plus de mon code si ca peut éclairer un peut plus

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43

Private Sub CommandButton2_Click() Dim derlign As Integer   If Worksheets("Ndev").Range("B4").Value = "0" Then MsgBox "Saisir le taux de TVA", vbOKOnly + vbInformation, "Correction TVA" Exit Sub End If   If TextBox7.Value = "" Or TextBox8.Value = "" Or ComboBox1.Value = "" Or TextBox10.Value = "" Then Rep = MsgBox("Il y a des données manquantes," & vbCrLf & " souhaitez-vous modifier la saisie ?", vbYesNo + vbCritical + vbDefaultButton2, "Correction recommandée") If Rep = vbYes Then TextBox8.SetFocus Exit Sub   Else: Rep = vbNo Worksheets("Ndev").Select derlign = Worksheets("Ndev").Range("P65536").End(xlUp).Row Call Ajout_ligne   Worksheets("Ndev").Range("G" & derlign + 1 & ":K" & derlign + 1).Value = TextBox7.Value Worksheets("Ndev").Range("L" & derlign + 1).Value = TextBox8.Value Worksheets("Ndev").Range("M" & derlign + 1).Value = ComboBox1.Value Worksheets("Ndev").Range("N" & derlign + 1).Value = TextBox10.Value   Worksheets("Ndev").Range("L" & derlign + 1 & ":N" & derlign + 1).Select Selection.NumberFormat = "0.00"   TextBox7.Value = "" TextBox8.Value = "" TextBox10.Value = "" ComboBox1.Value = "" ht = Range("e3").Value ht.Value = Format(ht.Value, "#,##0.00 HT") tva = Range("e3").Value * Range("b4").Value tva.Value = Format(tva.Value, "#,##0.00") ttc = Range("e4").Value ttc.Value = Format(ttc.Value, "#,##0.00 TTC")   TextBox7.SetFocus   End If End If End Sub

---

merci

Ceci n'est pas correct.

Code:

---

1 2	ht = Range("e3").Value ht.Value = Format(ht.Value, "#,##0.00 HT")

---

Tu dois mettre Set devant ht pour le definir comme un objet

Code:

---

1 2	Set ht = Range("e3") ht.Value = Format(ht.Value, "#,##0.00 HT")

---

maintenant avec ou sans ce que vous avez mentionné avant ça me met: utilisation incorrecte de la propriété

Citation:

---

Envoyé par nicoxlsx

c'est les textbox 8 et 10 qui sont concernés

---

Quelle est la valeur de TextBox8.Value ?

Quelle est la valeur de TextBox10.Value ?

Citation:

---

Envoyé par nicoxlsx

maintenant avec ou sans ce que vous avez mentionné avant ça me met: utilisation incorrecte de la propriété

---

Quel est le code de la ligne qui produit ce message d'erreur?

Citation:

---

Envoyé par Docmarti

Quelle est la valeur de TextBox8.Value ?

Quelle est la valeur de TextBox10.Value ?

---

en textbox8 ce sont des quantité et en textbox10 ce sont des prix unitaires et je voudrai que quand se soit retranscrit sur ma feuille ce soit affiché en décimal(soit 2 décimal) mais ca ne veut pas

Citation:

---

Envoyé par Docmarti

Quel est le code de la ligne qui produit ce message d'erreur?

---

bein du coup l'erreur c'est quant j'ai rajouter set devant ht

Citation:

---

Envoyé par nicoxlsx

en textbox8 ce sont des quantité et en textbox10 ce sont des prix unitaires et je voudrai que quand se soit retranscrit sur ma feuille ce soit affiché en décimal(soit 2 décimal) mais ca ne veut pas

---

Donne-moi un exemple de valeur que tu entres dans TextBox8 ?

Donne-moi un exemple de valeur que tu entres dans TextBox10 ?

que je rentre 12.5 ou 12,5 ça se copie à 12,5 au lieu de 12,50
ou 12 ça me met 12 au lieu de 12,00

et dans la t8 ou 10 c'est pareil

et au final sur la feuille ca me met aussi triangle vert dans le coin de cellule parce-que format texte

Le code suivant met un format numerique, pas un format texte:

Code:

---

1 2	Worksheets("Ndev").Range("L" & derlign + 1 & ":N" & derlign + 1).Select Selection.NumberFormat = "0.00"

---

Tu dois avoir quelque part un autre code qui remet le format a Texte.

je vais chercher alors

Non. Je me trompe. Ce n'est pas la cellule mais la valeur dans la cellule qui est au format texte.

Essaie ceci:

Code:

---

1 2 3 4 5 6 7 8 9 10

Worksheets("Ndev").Range("L" & derlign + 1 & ":N" & derlign + 1).Select Selection.NumberFormat = "General"   Worksheets("Ndev").Range("G" & derlign + 1 & ":K" & derlign + 1).Value = TextBox7.Value Worksheets("Ndev").Range("L" & derlign + 1).Value = TextBox8.Value Worksheets("Ndev").Range("M" & derlign + 1).Value = ComboBox1.Value Worksheets("Ndev").Range("N" & derlign + 1).Value = TextBox10.Value   Worksheets("Ndev").Range("L" & derlign + 1 & ":N" & derlign + 1).Select Selection.NumberFormat = "0.00"

---

non c'est toujours pareil, même que je mets 22.50 dans un des textbox il est retranscrit à 22.5

OK.

Remplace .Value par .FormulaLocal

Code:

---

1 2 3 4 5 6 7 8 9 10

Worksheets("Ndev").Range("L" & derlign + 1 & ":N" & derlign + 1).Select Selection.NumberFormat = "General"   Worksheets("Ndev").Range("G" & derlign + 1 & ":K" & derlign + 1).FormulaLocal = TextBox7.Value Worksheets("Ndev").Range("L" & derlign + 1).FormulaLocal = TextBox8.Value Worksheets("Ndev").Range("M" & derlign + 1).FormulaLocal = ComboBox1.Value Worksheets("Ndev").Range("N" & derlign + 1).FormulaLocal = TextBox10.Value   Worksheets("Ndev").Range("L" & derlign + 1 & ":N" & derlign + 1).Select Selection.NumberFormat = "0.00"

---

non plus
Pièce jointe 248498

Quel est le code de la ligne qui cause ce message d'erreur?

Quelle ligne est surlignee ?

toujours pareil en faites, la c'était un problème . et , , le dernier code fonctionne pareil que les autres

même comme ça le format reste le même

Code:

---

1 2 3 4 5 6 7 8 9

Sub format()   Dim derlign As Integer derlign = Worksheets("Ndev").Range("P65536").End(xlUp).Row   Worksheets("Ndev").Range("L" & derlign & ":N" & derlign).Select Selection.NumberFormat = "#.##0.00"   End Sub

---

même sans #.##

Je dois quitter.