Textbox(controle ActiveX) et cellule et format

patricktoulon

XLDnaute Barbatruc

• 2 Mai 2020

• #2

bonjour
il agirait de réfléchir un peu plus avant de poser une question
le lecteur ne peut deviner
a quel moment du change et quelle condition de intersect voir(autres) doit on opérer

et puis on applique pas un format a un textbox pour lui mettre une valeur ca n'existe pas
on applique un format a la valeur du textbox

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
' sans condition intersect ca donne ca '
    TextBox1.Value = Format(Sheets("confinement").Range("H66").Value, "# ##0.00 ""%")
  
End Sub

 

Vote positif 0 Vote négatif

J

jmfmarques

XLDnaute Accro

• 2 Mai 2020

• #3

Bonjour
Ce n'est pas la meilleure idée de formater ainsi le contenu d'une textbox. Et encore moins si ce contenu doit ensuite être utilisé dans des calculs.
Un simple label avec son caption = "%" à droite de la textbox (ou la cellule à droite si sur feuille) affranchirait de la nécessité éventuelle de tout retraiter "en sens inverse" pour calculer

Quelle est d'ailleurs la nécessité de cette textbox en lieu et place d'une simple cellule (au besoin formatable, en plus) ?

 

Dernière édition: 2 Mai 2020

Vote positif 0 Vote négatif

chaelie2015

XLDnaute Accro

• 2 Mai 2020

• #4

Bonjour patricktoulon,jmfmarques
Merci pour ces remarques. 😵
🙄
merci par avance.
Edit ; je confirme que la solution proposée par patricktoulon est fonctionnelle, Désolé

 

Dernière édition: 2 Mai 2020

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 2 Mai 2020

• #5

ben chez moi si 2013 et 2007

 

Vote positif 0 Vote négatif

chaelie2015

XLDnaute Accro

• 2 Mai 2020

• #6

Re
desolé , j'ai précipité a la mauvaise réponse.encore une fois je suis désolé
souci résolu.
a+ et bon WE

 

Vote positif 0 Vote négatif