oter decimals sur label

[Dennnisss]

Bonjour a tous

Hier PMO2 et Excelent , mon aider sur ce dossier , soit enlever les decimals sur un label

Pour mieux comprendre je vous ai preparer un user form pour voir les calculs , oui selon la formule de excelent il fait son travail sauf il enleve pas les decimals

dans les deux exemples il devrait donné les reponses suivantes

(premier label1) 28 au lieu de 28,05
(deuxieme label5) 7 au lieu de 7,65

alors merci a vous attend votre reponse avec patience
a+
dennnisss 😉😉

 

[pierrejean]

Re : oter decimals sur label

bonjour Dennnisss

Voir fonction Round

 

[Dennnisss]

Re : oter decimals sur label

Salut Pierre-Jean

Non cela me donne pas la bonne reponse
car il arrondi au plus proche je devrais avoir 7 au lieu de 8
dans la reponse
il faut vraiement tronquer les decimals

salut a toi pierre-jean

dennnisss😉😉

 

[pierrejean]

Re : oter decimals sur label

Re

Remplacer Round par Int

 

[Dennnisss]

Re : oter decimals sur label

Salut pierrejean

Oui c'est ca que je voulais realiser , alors merci a toi de ton aide
maintenant je vais essayer de minimiser mon code avec une boucle
car l'exemple que tu a en bas va se repeter 15 fois alors le code va etre tres volumineux
alors je travaille la dessus aujourd'hui , si tu a du temps de trop et que tu peut aide
j'apprecirais

alors merci encore une fois pierrejean et a la prochaine

dennnisss 😉😉


Private Sub CommandButton1_Click()

With Feuil3

.Range("B10").Value = TextBox1
.Range("C10").Value = Val(TextBox2)
.Range("D10").Value = Val(TextBox3)

.Range("F10").Value = Val(TextBox4)
.Range("G10").Value = Val(TextBox5)
.Range("H10").Value = Val(TextBox6)
.Range("I10").Value = Val(TextBox7)

.Range("K10").Value = Val(TextBox8)
.Range("L10").Value = Val(TextBox9)
.Range("M10").Value = Val(TextBox10)
.Range("N10").Value = Val(TextBox11)

.Range("B11").Value = TextBox12
.Range("C11").Value = Val(TextBox13)
.Range("D11").Value = Val(TextBox14)

.Range("F11").Value = Val(TextBox15)
.Range("G11").Value = Val(TextBox16)
.Range("H11").Value = Val(TextBox17)
.Range("I11").Value = Val(TextBox18)

.Range("K11").Value = Val(TextBox19)
.Range("L11").Value = Val(TextBox20)
.Range("M11").Value = Val(TextBox21)
.Range("N11").Value = Val(TextBox22)

end with
end sub

 

[pierrejean]

Re : oter decimals sur label

Re

A tester:

For n = 1 To 22
 If n < 12 Then
  Feuil3.Cells(10, 1 + n) = Val(Me.Controls("Textbox" & n))
 Else
  Feuil3.Cells(11,  n - 10) = Val(Me.Controls("Textbox" & n))
 End If
Next n

 

[Fo_rum]

Re : oter decimals sur label

Salut,

@pierrejean, salut

si Dennnisss se contente d'être désolé sans essayer de comprendre nos messages ...😡

https://www.excel-downloads.com/threads/checkbox-a-inverse.113574/

 

[Dennnisss]

Re : oter decimals sur label

Salut Jeanpierre et forum

J,essaie de comprendre ton code moi j'ai changer la boucle a
For n = 1 to 165
le if me dit si il est plus bas que 12 alors fait le test
12 ce chiffre se trouve ou par rapport a la feuille

salut dennnisss 😉😉


Code:
For n = 1 To 22
If n < 12 Then
Feuil3.Cells(10, 1 + n) = Val(Me.Controls("Textbox" & n))
Else
Feuil3.Cells(11, n - 1) = Val(Me.Controls("Textbox" & n))
End If
Next n

 

[pierrejean]

Re : oter decimals sur label

Re

je crains que notre ami Fo_rum n'ait raison et que tu ne fasses pas enormemement d'effort pour :
exposer clairement et completement ton problème
chercher a comprendre ce que l'on te propose
La boucle que je t'ai proposé est de 1 a 22 parceque les Textbox vont de Textbox1 a Textbox22
Lorsque l'on arrive a TextBox12 on passe de la ligne 10 a la ligne 11 d'ou le cell(11,..) et l'on revient a la colonne B d'ou le Cells(11,n-10)
Note que j'avais fait une erreur en notant n-1 ,erreur dont tu ne parles pas ce qui semble indiquer que tu n'as pas testé
En principe , avant de modifier (pourquoi 165 ?) il convient de tester , essayer de comprendre et eventuellement demander des explications

 

[Dennnisss]

Re : oter decimals sur label

Salut pierrejean

Oui j'ai tester ton code et effectivement il me donne une erreur , il supprimer des donnees sur les lignes et aussi ,il ne tiens pas compte , des espaces reserver au labels
oui j'ai tester ton code et je travaille presentement dessus et je me suis appercue que le chiffre(12) que je cherchais etait le nombre de textbox

maintenant je cherche pourquoi il efface les donnees ,
non je n'abandonne pas et ces faux pour de ce qui est de ne pas tester vos codes

alors desole ou mille excuses mais depuis le temps que je communique sur le forum je cherche beaucoup a comprendre votre raisonnement des codes que vous m'envoyer
Moi j'ai changer 22 par 155 car c'est le nombre de textbox que mon userform possede

a+
je retourner sur mon code et cherche toujours l'erreur

dennnisss 😉😉