Ajuster le format de cellule en nombre décimal en VBA

dalibma Messages postés 38 Date d'inscription   Statut Membre Dernière intervention   -  
f894009 Messages postés 17414 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

https://www.cjoint.com/?DDjk6cihue3

ceci mon fichier sur lequel vous trouvez les description, tel que:
*/ rendre le format en nombre décimal avec 2 chiffres après le virgule
*/ code pour remplir des zone text

merci pour l'aide
A voir également:

4 réponses

f894009 Messages postés 17414 Date d'inscription   Statut Membre Dernière intervention   1 715
 
Bonjour,

https://forums.commentcamarche.net/forum/affich-29990557-remplir-des-cellules-a-partir-des-textbox-extraire-des-donnee#p30014314

je vous ai mis un fichier, l'avez-vous regarde

Celui-ci est complet: https://www.cjoint.com/?DDjmoUWlE5R

Si vous n'etes plus interesse, il faut le dire
0
dalibma Messages postés 38 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour,

avant tous je tiens à vous remercie pour votre propositions , elle est fiable , amis le pb j'étais limité par un cahier de charge de mon hiérarchie qui exige une seule fenêtre qui comporte toutes les fonctionnalité.
0
dalibma Messages postés 38 Date d'inscription   Statut Membre Dernière intervention  
 
Bjr;

pouvez vous m'aider SVP de résoudre mon pb:

https://www.cjoint.com/?DDjk6cihue3

ceci mon fichier sur lequel vous trouvez les description, tel que:
*/ rendre le format en nombre décimal avec 2 chiffres après le virgule
*/ code pour remplir des zone text

merci pour l'aide
0
f894009 Messages postés 17414 Date d'inscription   Statut Membre Dernière intervention   1 715
 
Re,

D'accord, mais sur le principe que vous avez adopte une reference est toujours sur la meme ligne des trois onglets n'est vrai que si vous creez systematiquement un enregistrement pour une reference sur les trois onglets

pour le format affichage temps ajustage:

                          If NomF = "TCN" Then
Label68.Caption = Format(.Cells(L, "AC").Value, "0.00")
ElseIf NomF = "FCN" Then
Label70.Caption = Format(.Cells(L, "AC").Value, "0.00")
End If
0