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

**zielite** · 04/02/2015, 18h08

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 :

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
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

**Philippe Tulliez** · 04/02/2015, 18h22

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

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 :

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

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

**zielite** · 04/02/2015, 18h37

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"?

**SfJ5Rpw8** · 04/02/2015, 18h47

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 ?

**zielite** · 04/02/2015, 19h20

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 :

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
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

**SfJ5Rpw8** · 04/02/2015, 19h31

Ben,

pourquoi n'applique tu pas la méthode à philippe ? suffit de rajoute le signe moins lors de ton affectation ...

**casefayere** · 04/02/2015, 23h37

Bonsoir,
et comme ça

Code :

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

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

chez moi, ça fonctionne

**zielite** · 05/02/2015, 08h41

Merci poour vos deux réponses,

bbil, si j'utilise le code

Code :

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

 .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 :

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

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 :

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

With .Cells(1, 5)

soit dynamique.

**Philippe Tulliez** · 05/02/2015, 08h43

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

**zielite** · 05/02/2015, 08h49

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 :

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

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

**SfJ5Rpw8** · 05/02/2015, 08h51

bonjour,

Envoyé par zielite

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

Code :

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

 .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 ??

**zielite** · 05/02/2015, 08h56

Oui la valeur est la même que celle entrée dans le Textbox

**SfJ5Rpw8** · 05/02/2015, 10h07

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 ?

**casefayere** · 05/02/2015, 11h02

et si tu donnes le bon format à la cellule

Code :

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

1
2
3
Cells(1, 5) = -CDbl(Me.Textquantite.Value)
Textquantite.Value = Format(Textquantite.Value, "#,##0,00")
Cells(1, 5).NumberFormat = "#,##0,00"

**zielite** · 05/02/2015, 11h26

J'ai essayé en tapant ceci:

Code :

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

.Cells(1, 5) = -CDbl(Me.Textquantite.Value)

Sans préciser le format ensuite.

Cela fonctionne!!

Merci à tous pour vos conseils.

A+

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

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager