Convertir une valeur positive depuis Textbox vers une valeur négative dans Excel

Version imprimable

Voir 40 message(s) de cette discussion en une page

Bonjour à tous,

Je travaille sur un outil de pilotage de stock avec entrées et sorties et j'aimerai que la valeur saisie dans le Textbox du Userform soit transformée en valeur négative sous Excel. J'ai utilisé le format "$#,##,0.00" qui fonctionnait jusqu'à hier mais aujourd'hui il renseigne à nouveau des valeurs positive.

Voici le code utilisé:

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
Private Sub comvalide_Click() 'Valider une sortie de matériel
Dim LignTablo
Sheets("Data saisies").Unprotect
 
With Sheets("Data saisies").ListObjects("Data_saisies")
    If .ListRows.Count = 0 Then
        Range("Tableau1[[#Headers],[Nom]]").Offset(1, 0) = 1
        Range("Tableau1[[#Headers],[Nom]]").Offset(1, 0) = ""
    End If
 
    If .ListRows.Count = 1 And .ListRows(1).Range.Cells(1, 1) = "" Then
        Set LignTablo = Sheets("Data saisies").ListObjects("Data_saisies").ListRows(1)
    Else
        Set LignTablo = Range("Data_saisies").ListObject.ListRows.Add(AlwaysInsert:=True)
    End If
End With
 
With LignTablo.Range
    .Cells(1, 1) = CDbl(Me.Textcodearticle.Value)
    .Cells(1, 2) = Textdesignation
    .Cells(1, 3) = Textdate
    .Cells(1, 5) = CDbl(Me.Textquantite.Value)
    Textquantite.Value = Format(Textquantite.Value, "$#,##0,00")
End With
 
Unload sortie
 
Sheets("Data saisies").Protect
sortie.Show
End Sub

Est que quelqu'un a une idée.

Par avance merci!
Zi

04/02/2015, 18h22
Philippe Tulliez
Bonjour,
Le titre de ta discussion "Convertir une valeur positive depuis Textbox vers une valeur positive Excel" est en contradiction avec ta demande me semble t'il

Citation:

j'aimerai que la valeur saisie dans le Textbox du Userform soit transformée en valeur négative sous Excel

Un exemple de transformation d'une valeur positive entrée dans le contrôle nommé TextBox1 en valeur négative dans la cellule B2 avec mise en forme séparateur de milliers et 2 décimales
Code:

1 2 3 4 5 6 7 8 Private Sub CommandButton1_Click() With ThisWorkbook.Worksheets("Feuil1") With .Range("B2") .Value = -Val(Me.TextBox1) .NumberFormat = "#,##0.00" End With End With End Sub
04/02/2015, 18h37
zielite

Effectivement la description faite était un non-sens!

Merci pour l'information. Il y a t-il possibilité de le faire de manière dynamique sans citer "B2"?
04/02/2015, 18h47
SfJ5Rpw8

Citation:

Envoyé par zielite

Effectivement la description faite était un non-sens!
..

Bonsoir,

il faut donc la compléter ....!

comment transfère-tu les données de tes textbox vers excel ?

Je l'ai même modifié!

J'utilise une méthode dynamique qui ajoute une ligne à chaque nouvelle entrée validée dans un tableau défini "Data_saisies" sur la feuille "Data saisies"

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
Private Sub comvalide_Click() 'Valider une sortie de matériel
Dim LignTablo
Sheets("Data saisies").Unprotect
 
With Sheets("Data saisies").ListObjects("Data_saisies")
    If .ListRows.Count = 0 Then
        Range("Tableau1[[#Headers],[Nom]]").Offset(1, 0) = 1
        Range("Tableau1[[#Headers],[Nom]]").Offset(1, 0) = ""
    End If
 
    If .ListRows.Count = 1 And .ListRows(1).Range.Cells(1, 1) = "" Then
        Set LignTablo = Sheets("Data saisies").ListObjects("Data_saisies").ListRows(1)
    Else
        Set LignTablo = Range("Data_saisies").ListObject.ListRows.Add(AlwaysInsert:=True)
    End If
End With
 
With LignTablo.Range
    .Cells(1, 1) = CDbl(Me.Textcodearticle.Value)
    .Cells(1, 2) = Textdesignation
    .Cells(1, 3) = Textdate
    .Cells(1, 5) = CDbl(Me.Textquantite.Value)
    Textquantite.Value = Format(Textquantite.Value, "$#,##0,00")
End With
 
Unload sortie
 
Sheets("Data saisies").Protect
sortie.Show
End Sub

04/02/2015, 19h31
SfJ5Rpw8

Ben,

pourquoi n'applique tu pas la méthode à philippe ? suffit de rajoute le signe moins lors de ton affectation ...
04/02/2015, 19h37
zielite

J'ai essayé, il me garde une valeur positive...
04/02/2015, 19h48
SfJ5Rpw8

montre la ligne de code que tu utilise..

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
Private Sub comvalide_Click() 'Valider une sortie de matériel
Dim LignTablo
Sheets("Data saisies").Unprotect
 
With Sheets("Data saisies").ListObjects("Data_saisies")
    If .ListRows.Count = 0 Then
        Range("Tableau1[[#Headers],[Nom]]").Offset(1, 0) = 1
        Range("Tableau1[[#Headers],[Nom]]").Offset(1, 0) = ""
    End If
 
    If .ListRows.Count = 1 And .ListRows(1).Range.Cells(1, 1) = "" Then
        Set LignTablo = Sheets("Data saisies").ListObjects("Data_saisies").ListRows(1)
    Else
        Set LignTablo = Range("Data_saisies").ListObject.ListRows.Add(AlwaysInsert:=True)
    End If
End With
 
With LignTablo.Range
    .Cells(1, 1) = CDbl(Me.Textcodearticle.Value)
    .Cells(1, 2) = Textdesignation
    .Cells(1, 3) = Textdate
    .Cells(1, 5) = CDbl(Me.Textquantite.Value)
    Textquantite.Value = Format(Textquantite.Value, "$#,##0,00")
End With
 
Unload sortie
 
Sheets("Data saisies").Protect
sortie.Show
End Sub

04/02/2015, 19h57
SfJ5Rpw8

Une ligne m'aurais suffit ! c'est laquelle ... il est ou le moins ?

Lol désolé,

le code original:
Code:

1 2 .Cells(1, 5) = CDbl(Me.Textquantite.Value) Textquantite.Value = Format(Textquantite.Value, "$#,##0,00")
le test:

Code:

.Cells(1, 5) = -Val(Me.Textquantite)

04/02/2015, 20h31
SfJ5Rpw8

Et donc ce code ne marche pas ??? lorsque tu change ta valeur de quantité celle-ci ne s'affiche pas dans ta cellule ? ou s'affiche en positif ?

Bonsoir,
et comme ça
Code:

1 2 .Cells(1, 5) = -CDbl(Me.Textquantite.Value) Textquantite.Value = Format(Textquantite.Value, "$#,##0,00")
chez moi, ça fonctionne

05/02/2015, 08h41
zielite
Merci poour vos deux réponses,

bbil, si j'utilise le code

Code:

.Cells(1, 5) = -Val(Me.Textquantite)

une valeur positive arrive sur Excel

casefayere, idem pour ta solution.

J'ai essayé de bidouiller la solution de Philippe
Code:

1 2 3 4 5 6 7 8 .Cells(1, 5) = Textquantite.Value With ThisWorkbook.Worksheets("Data saisies") With .Cells(1, 5) .Value = -Val(Me.Textquantite) .NumberFormat = "#,##0.00" End With End With
Mais il faudrait que la ligne

Code:

With .Cells(1, 5)

soit dynamique.
05/02/2015, 08h43
Philippe Tulliez

Bonjour,
Qu'entends-tu par "soit dynamique." ?

En fait chaque entrée dans le userform ajoute une ligne dans le tableau cible.

Si j'utilise l'option .Cells(1,5) la valeur du Textbox va toujours s'incrémenter dans en "E1" alors que je voudrais qu'elle s'incrémente dans la colonne E pour chaque nouvelle ligne créée.

La méthode utilisée pour créer une ligne à chaque saisie est la suivante:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 With Sheets("Data saisies").ListObjects("Data_saisies") If .ListRows.Count = 0 Then Range("Tableau1[[#Headers],[Nom]]").Offset(1, 0) = 1 Range("Tableau1[[#Headers],[Nom]]").Offset(1, 0) = "" End If If .ListRows.Count = 1 And .ListRows(1).Range.Cells(1, 1) = "" Then Set LignTablo = Sheets("Data saisies").ListObjects("Data_saisies").ListRows(1) Else Set LignTablo = Range("Data_saisies").ListObject.ListRows.Add(AlwaysInsert:=True) End If End With

05/02/2015, 08h51
SfJ5Rpw8

bonjour,

Citation:

Envoyé par zielite

....
bbil, si j'utilise le code

Code:

.Cells(1, 5) = -Val(Me.Textquantite)

une valeur positive arrive sur Excel
...

oui mais il y as quoi dans ton textbox ? la même valeur que dans ta cellule ??
05/02/2015, 08h56
zielite

Oui la valeur est la même que celle entrée dans le Textbox
05/02/2015, 10h07
SfJ5Rpw8

Ben alors je comprends pas si la valeur dans la cellule devrait afficher la valeur saisie dans ton textbox précédée d'un moins ... , n'as tu pas changé le format d'affichage de ta cellule ? si tu saisie un nombre négatif dans cette cellule tu vois bien le moins ?
05/02/2015, 10h50
zielite

Le format de ma cellule est standard.

Lorsque je saisi une valeur négative dans le Textbox, j'ai bien une valeur négative sur mon tableau Excel. J'avais réussi au départ avec la méthode Textquantite.Value = Format(Textquantite.Value, "$#,##0,00") où le $ doit normalement transformer la valeur positive en valeur négative mais cela ne fonctionne plus sans raison apparente.

Voir 40 message(s) de cette discussion en une page