Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Arrondir valeur dans textbox

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
M

maninwhite

XLDnaute Occasionnel
Bonjour à toutes et à tous.

Je sais que la question a déjà été posée mais je n'ai pas trouvé mon bonheur sur le forum.

J'ai un textbox qui récupère la valeur d'une cellule graçe au code ci dessous

Code: 
Private Sub ComboBox_semaine2_Change()

    If ComboBox_semaine2.ListIndex = -1 Then Exit Sub
    TextBox_resultats2.Value = Sheets("Usine").Range("B" & ComboBox_semaine2.ListIndex + 2).Value & " %"

End Sub

La cellule est en format/nombre/2 chiffres après virgule

J'aimerai que la valeur de la textbox soit arrondi à 2 chiffres après la virgule car elle m'affiche la valeur en entier et non pas l'arrondi que j'ai dans la cellule.

J'ai essayé round et pleins d'autres choses mais cela ne marche pas

Merci
 
Trier par date Trier par votes
Re : Arrondir valeur dans textbox

Salut maniwhite, le Forum

peut être comme cela

Code: 
[COLOR=BLUE]Private Sub[/COLOR] ComboBox_semaine2_Change()

    [COLOR=BLUE]If[/COLOR] ComboBox_semaine2.ListIndex = -1 [COLOR=BLUE]Then Exit Sub[/COLOR]
    TextBox_resultats2.Value = Format(Sheets("Usine").Range("B" & ComboBox_semaine2.ListIndex + 2).Value, "# ###.00") & " %"

[COLOR=BLUE]End Sub[/COLOR]
Bonne Journée
 
Vote positif 0 Vote négatif
Re : Arrondir valeur dans textbox

Re maninwhite, le fil

Essaye ça éventuellement

Code: 
[COLOR=BLUE]Private Sub[/COLOR] ComboBox_semaine2_Change()
    [COLOR=BLUE]If[/COLOR] ComboBox_semaine2.ListIndex = -1 [COLOR=BLUE]Then Exit Sub[/COLOR]
    TextBox_resultats2.Value = Round(Sheets("Usine").Range("B" & ComboBox_semaine2.ListIndex + 2).Value, 2) & " %"
[COLOR=BLUE]End Sub[/COLOR]
Sinon essaye de mettre un fichier avec l'USF en condensé

Bonne Journée
 
Vote positif 0 Vote négatif
Re : Arrondir valeur dans textbox

Nickel, ça marche...

Une idée pour ce code ci?

Code: 
Private Sub CommandButton_resultats_Click()

    Dim I As Integer
    Dim Semaine As Integer

    I = 2

    Semaine = ComboBox_semaine.Value
    Service = ComboBox_service.Value

    Sheets(Service).Activate

    Range("A1").Select
    Cells.Find(What:="% réalisation BOS", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
               xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
             , SearchFormat:=False).Activate

    testligne = ActiveCell.Row
    TestCol = ActiveCell.Column

    While Cells(I, 1).Value <> ""

        comparaison_sem = Cells(I, 1).Value

        If comparaison_sem = Semaine Then

            pourcentagebos = Cells(I, TestCol).Value
            TextBox_resultats.Value = pourcentagebos & " %"

        End If

        I = I + 1

    Wend

End Sub

Merci
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

C
  • Question Question
Microsoft 365 Encadrement de valeur de textbox par deux nombres decimal
Réponses
5
Affichages
187
Claudiuss
C
N
  • Résolu(e)
Microsoft 365 Modification impossible d'une TextBox
2 3 4
Réponses
56
Affichages
2 K
NONO14
N
  • Résolu(e)
XL 2016 problème au niveau d'un contrôle dans VBA
Réponses
2
Affichages
489
chinel
K
  • Résolu(e)
XL 2016 Affichage TextBox
Réponses
6
Affichages
625
KRUG WOO
K
A
  • Question Question
XL 2019 Copie d'une valeur dans la cellule à côté d'une valeur trouvé
Réponses
1
Affichages
450
sylvanu
M
  • Résolu(e)
Microsoft 365 Trouver une valeur dans une colonne
Réponses
7
Affichages
237
mikeduff
M
  • Question Question
XL 2021 Verifier les doublons dans feuille avant validation
Réponses
11
Affichages
329
cathodique
N
  • Résolu(e)
Microsoft 365 Récupération données ListBox dans TextBox
2 3
Réponses
35
Affichages
1 K
NONO14
N
E
  • Question Question
XL 2013 besoin d'aide
Réponses
7
Affichages
494
eldinal
E
  • Résolu(e)
XL 2016 Erreur dans code VBA
4 5 6
Réponses
76
Affichages
3 K
patricktoulon
N
  • Résolu(e)
Microsoft 365 Recherche dans un tableau structuré à partir d'une TextBox
Réponses
11
Affichages
743
NONO14
N
I
  • Résolu(e)
Microsoft 365 Copier-coller dans une plage avec des cellules masquées
Réponses
6
Affichages
554
sylvanu
A
  • Résolu(e)
XL 2013 Calcule de produit dans un textbox
Réponses
6
Affichages
505
Appo1985
A
A
  • Résolu(e)
XL 2013 Calcule de produit dans un textbox
Réponses
3
Affichages
456
job75
F
  • Question Question
Microsoft 365 Valeur dans TextBox compris entre
Réponses
10
Affichages
472
Francky79
F
S
  • Question Question
XL 2013 enregistrer une feuille excel converti en pdf dans un répertoire selon la valeur d'une cellule
Réponses
5
Affichages
528
Phil69970
L
  • Résolu(e)
Microsoft 365 Figer nombre décimales
Réponses
2
Affichages
575
Lambert03
L
J
  • Question Question
Microsoft 365 macro qui ouvre des fichiers excel de type "analyze in excel" généré par power bi et met à jour un filtre "mois" sur plusieurs tcd
Réponses
0
Affichages
562
JJ69
J
E
  • Résolu(e)
XL 2019 inserer une valeur textbox dans la dernière cellule vide horizontalement
Réponses
7
Affichages
772
escudo
E
  • Question Question
XL 2021 Comment supprimer des noms du gestionnaire de noms dans un classeur
Réponses
7
Affichages
756
jeff1494
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…