format textbox pour afficher contenu cellule

[altinea]

Bonjour le forum,
j'ai parcouru le forum, le net , et j'ai trouvé un nombre impressionnant de formules pour formater une textbox à un format numérique, date ou autre.
Ce qui m'intéresse est de formater au format numérique avec 2 décimales.
Malgré les divers essai je n'arrive touours pas à formater les textbox qui m'affichent soit sans décimales, avec deu ou voir 10.
J''avoue que la je sèche.
Voila donc, sur un usf, j'ai positionné plusieurs textbox qui rrécupèrent les infos dans des cellules dont le résultat change en fonction des données qui modifient le tableau
sur le tableau mon format est bien correct, par contre dès qu'il s'affiche dans mes textbox, c'est l'anarchie.
Pourriez vous me conseiller
merci

 

[Papou-net]

Re : format textbox pour afficher contenu cellule

Bonsoir altinea,

Peut-être qu'avec une version allégée de ton fichier ?

Je pense que tu as déjà lu la charte dans laquelle tu as dû lire ce conseil.

Cordialement.

 

[Dranreb]

Re : format textbox pour afficher contenu cellule

Bonjour.

Sub test()
Dim D As Double
D = 1000 / 7
MsgBox Format(D, "0.00")
End Sub

affiche "142,86". Où est le problème pour affecter ça à un textbox ?
Ah, c'était peut être le point, qui signifie: le séparateur décimal en vigueur dans le pays.
Cordialement.

 

[altinea]

Re : format textbox pour afficher contenu cellule

bonsoir le forum, papounet, dranreb, effectivement j'ai lu la charte, voici un bout de fichier
par contre je n'ia pas mis le formatage pour vous laisser la possibilité d'essayer vos idées merci encore

 

[job75]

Re : format textbox pour afficher contenu cellule

Bonsoir altinea, Papou-net, Dranreb,

Essayez ceci :

Private Sub UserForm_Initialize()
Dim a, i As Byte
a = Array("BD31", "BD15", "BD33", "BE5", "BE6", "BE7", "BE8", "BE9", "BE10", "BE11", _
  "BE12", "BE18", "BE19", "BE20", "BE21", "BE22", "BE23", "BE24", "BE25")
For i = 1 To 19
  Controls("TextBox" & i) = Format(Sheets("Statistiques").Range(a(i - 1)), "0.00")
Next
End Sub

A+

 

[altinea]

Re : format textbox pour afficher contenu cellule

le forum, job75, quand j'utilise ton code les textbox sont vides

 

[job75]

Re : format textbox pour afficher contenu cellule

le forum, job75, quand j'utilise ton code les textbox sont vides

😕😕 Voir fichier.

A+

 

[Papou-net]

Re : format textbox pour afficher contenu cellule

Bonsoir altinea, Dranreb, job75,

@ altinea :

Pour faire correspondre automatiquement le format des TextBox avec celui des cellules correspondantes, voici une adaptation du (très bon) code de notre ami job75 :

Private Sub UserForm_Initialize()
Dim a, i As Byte
a = Array("", "BD31", "BD15", "BD33", "BE5", "BE6", "BE7", "BE8", "BE9", "BE10", "BE11", _
  "BE12", "BE18", "BE19", "BE20", "BE21", "BE22", "BE23", "BE24", "BE25")
For i = 1 To 19
  Controls("TextBox" & i) = Format(Sheets("Statistiques").Range(a(i)), _
  Sheets("Statistiques").Range(a(i)).NumberFormat)
Next
End Sub

Tu peux vérifier en modifiant à ta guise les formats dans la feuille de calcul puis en ouvrant le formulaire.

Espérant avoir été utile.

Cordialement.

 

[job75]

Re : format textbox pour afficher contenu cellule

Re,

Pour faire correspondre les formats, le plus simple est d'utiliser la propriété Text :

Private Sub UserForm_Initialize()
 Dim a, i As Byte
 a = Array("BD31", "BD15", "BD33", "BE5", "BE6", "BE7", "BE8", "BE9", "BE10", "BE11", _
   "BE12", "BE18", "BE19", "BE20", "BE21", "BE22", "BE23", "BE24", "BE25")
 For i = 1 To 19
   Controls("TextBox" & i) = Sheets("Statistiques").Range(a(i - 1)).Text
 Next
 End Sub

Fichier (2).

A+

 

[Papou-net]

Re : format textbox pour afficher contenu cellule

Pour faire correspondre les formats, le plus simple est d'utiliser la propriété Text

RE job75,

C'est effectivement si simple que je n'y aurais pas pensé.

Merci pour cette astuce.

Cordialement.

 

[job75]

Re : format textbox pour afficher contenu cellule

Bonjour le fil, le forum,

Pour éviter d'écrire les adresses de chaque cellule on peut les grouper :

Private Sub UserForm_Initialize()
Dim a, i As Byte, cel As Range, n As Byte
a = Array("BD31", "BD15", "BD33", "BE5:BE12", "BE18:BE25")
For i = 0 To 4
  For Each cel In Sheets("Statistiques").Range(a(i))
    n = n + 1
    Controls("TextBox" & n) = Format(cel, "0.00")
    'Controls("TextBox" & n) = cel.Text
  Next
Next
End Sub

Fichier (3).

A+

 

[altinea]

Re : format textbox pour afficher contenu cellule

Bonsoir le forum, Dranreb, Papou-Net, Job75, merci pour votre aide effectivement c'est nickel, j'ai galéré pendant je sais pas combien de temps et sur les divers forum, je n'avais aps trouvé cette solution, merci encore d'avoir consacré du temps à ma demande bonne soirée