Discussion :

[Nicolas JACQUIN]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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"

[Docmarti]

Bonjour.

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

Essaie comme ceci.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Nicolas JACQUIN]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Docmarti]

Ceci n'est pas correct.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Nicolas JACQUIN]

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

[Docmarti]

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 ?

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?

[Docmarti]

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 ?

[Nicolas JACQUIN]

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

[Docmarti]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Nicolas JACQUIN]

je vais chercher alors

[Docmarti]

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

Essaie ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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"