Peut ton tronquer un label

Dennnisss · 7 Février 2009

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 · 7 Février 2009

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

Code:

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 · 8 Février 2009

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 · 8 Février 2009

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 :

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

2nd post :

Dennnisss à dit:
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

Peut ton tronquer un label

Dennnisss

XLDnaute Occasionnel

PMO2

XLDnaute Accro

Dennnisss

XLDnaute Occasionnel

Excel-lent

XLDnaute Barbatruc

Pièces jointes

Discussions similaires

Peut ton tronquer un label

Dennnisss

XLDnaute Occasionnel

PMO2

XLDnaute Accro

Dennnisss

XLDnaute Occasionnel

Excel-lent

XLDnaute Barbatruc

Pièces jointes

Discussions similaires

Privacy & Transparency

Privacy & Transparency