Peut ton tronquer un label

[Dennnisss]

Bonsoir a tous

Dans mon user J'ai des textbox et des labels et aussi il va chercher des reference dans la feuille de calcul exemple a2 et A1
A2 = 390
A1 = 85

TextBox 2 j'inscrit 183
TextBox 3 J'inscrit 198

Label1 = .Range("A2") - (Val(TextBox2) + Val(TextBox3)) * .Range("A1") / 100

dans ma formule il doit tronquer les decimals et ne pas arrondir au plus grand
Est-ce que cela se peut ou se fait
Alors j'ai besoin de votre aide svp

merci dennnisss😉😉

 

[PMO2]

Re : Peut ton tronquer un label

Bonjour,

Voici un exemple qui devrait solutionner votre problème

1) J'ai créé un UserForm1 avec
2) un Label (Label1)
3) 2 TextBox (TextBox2 et TextBox3)
4) 1 CommandButton1

Code à copier dans le formulaire

Private Sub CommandButton1_Click()
Me.Hide
End Sub

Private Sub UserForm_Initialize()
Dim x As Variant
Dim A$
TextBox2 = 183
TextBox3 = 198
With Sheets("test")
  x = .Range("A2") - (Val(TextBox2) + Val(TextBox3)) * .Range("A1") / 100
End With
If IsNumeric(x) Then
  A$ = CStr(x)
  '--- On prévoit 2 cas pour le séparateur de décimales (POINT ou VIRGULE) ---
  On Error Resume Next
  Label1 = Mid(A$, 1, InStr(1, A$, ".") - 1)
  Label1 = Mid(A$, 1, InStr(1, A$, ",") - 1)
  On Error GoTo 0
End If
End Sub

Cordialement.

PMO
Patrick Morange

 

[Dennnisss]

Re : Peut ton tronquer un label

Salut PMO2

Dans mon probleme il ne faut pas qui y ai des decimals

Si on reprend bien le probleme

a1 = 85
a2 = 390
Textbox 1 = 183
textbox 2 = 198
label 1 devrait indiquer 7

donc la somme des deux textbox = 381
on le soustrait de la cellule a1 il reste 9
par la suite 9 est * par la cellule A1 et divise par 100
la reponse donne 7,65

alors il faudrait qui apparaisse 7 seulement
et non 7,65

alors merci a toi de m'aider a +
dennnisss😉😉

 

[Excel-lent]

Re : Peut ton tronquer un label

Bonsoir Denniss,

Désolé de te contredire, mais le fichier de PMO2 répond bien à ta question, du moins la première!

1er post :

Label1 = .Range("A2") - (Val(TextBox2) + Val(TextBox3)) * .Range("A1") / 100

2nd post :

la somme des deux textbox = 381
on le soustrait de la cellule a1 il reste 9
par la suite 9 est * par la cellule A1 et divise par 100

La formule correspondant à ton 2nd post donne :
Label1 = (Range("A1") - (Val(TextBox2) + Val(TextBox3) )) * Range("A1") / 100

Ce qui tu l'avouera, n'est pas du tout la même chose!!!

Si tu donnes la première formule à PMO2 et attend que le résultat colle à la formule de ton second post évidement ça ira moins bien! 😉

Voici ci-joint le fichier de PMO2, légèrement modifié et mise en page pour mieux illustrer sa réponse. Je n'ai pas du tout toucher au code puisqu'il me semble juste.

A bientôt