Ajuster le format de cellule en nombre décimal en VBA [Fermé]

Signaler
Messages postés
38
Date d'inscription
lundi 24 mars 2014
Statut
Membre
Dernière intervention
26 avril 2014
-
Messages postés
15363
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
12 octobre 2020
-
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

4 réponses

Messages postés
15363
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
12 octobre 2020
1 375
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
Messages postés
38
Date d'inscription
lundi 24 mars 2014
Statut
Membre
Dernière intervention
26 avril 2014

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é.
Messages postés
38
Date d'inscription
lundi 24 mars 2014
Statut
Membre
Dernière intervention
26 avril 2014

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
Messages postés
15363
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
12 octobre 2020
1 375
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