Simplifier le code _ format label

  • Initiateur de la discussion Initiateur de la discussion Gix
  • Date de début Date de début

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 !

Gix

XLDnaute Occasionnel
Bonjour le Forum,

J'aimerai savoir si l'on peut simplifier le code dans mon USF pour afficher des résultats dans les labels concernés, et en même temps leur attribuer un format par exemple: ('#,##0.00 €')
Je vous joins un fichier pour plus d'explications.
Merci d'avance de me venir en aide.
Gix. [file name=FormatLabel.zip size=21476]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/FormatLabel.zip[/file]
 

Pièces jointes

Re:

Merci ChTi de ta réponse rapide et de ton aide, ça me convient trés bien par contre juste pour info aurait-il une possibilité de simplifier le code style Me.Controls('Label' & x).Value = '' à la place d'écrire label après label.
Merci encore une fois et bon appétit.
Gix.
 
Bonjour le Forum, ChTi160, Gix

Ci joint un code beaucoup plus court mais pas plus court en vitesse de chargement !

Je n'ai pas voulu casser ton userform, j'ai donc juste simplifié le code.

Cependant si je puis me permettre moi je n'aurais pas fait comme cela

J'aurais mis mes valeurs dans une listview. Plus rapide et plus pratique à manipuler par la suite.

Je n'ai pas commenté le code car il est simpel je pense. Il s'agit quede boucle et de compteur.

Si tu ne comprends pas un truc fait signe

@+

Creepy [file name=FormatLabel_20060305123646.zip size=15335]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/FormatLabel_20060305123646.zip[/file]
 

Pièces jointes

Re Creepy,

Oups les messages se sont coisés,c'est nickel ce que tu as fait, je vais étudier tout ça par contre si tu as une meilleure idée je suis preneur car en vitesse de chargement je ne me rends pas bien compte car ma machine possède une grande capacité de mémoire.
Je te remercie de ton aide et bon appétit.
Gix.
 
re
voilà le texte que j'ai mis dans la procèdure
UserForm_Initialize
Private Sub UserForm_Initialize()
ModuleOption.ini
Dim tabtemp As Variant
Dim L As Byte, C As Byte, I As Byte
Dim Ch As String
I = 13
tabtemp = O4.Range('P2:R14').Value
For L = 1 To UBound(tabtemp, 1)
For C = 1 To UBound(tabtemp, 2)
Me.Controls('Label' & I).Caption = Format(tabtemp(L, C), '#,##0.00' & ' €')
I = I + 1
Next
Next

End Sub
bonne fin de Journée
 
RE à vous,

Voici en PJ mon exemple à moi 🙂

Je suis passé par une listview que je trouve bcp plus propre et plus pro.

En plus cela permet de trier les colonnes par ordre croissant ou décroissant et donc de voir rapidement les mois où on a payé par exemple le plus de TVA.

@+

Creepy [file name=FormatLabe_Creepyl.zip size=24088]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/FormatLabe_Creepyl.zip[/file]
 

Pièces jointes

Re Creepy,

Ton idée est Géniale et beaucoup plus pro et plus propre , personnellement m'attaquer à une listview c'est du haut voltage.
Je n'ai pas bien saisie le trie par ordre croissant ou décroissant car chez moi lorsque j'appuie par ex. sur la colonne TVA le plus grand montant n'apparait pas ni en première ligne ni en dernière.
Je m'excuse par avance si je n'ai pas saisie la manip de trie correctement.

Merci de ton projet qui m'a énorment plus et m'interesse.
A+ Gix.
 
Bonjour gix, chti, creepy 🙂


en pièce jointe ton fichier modifié pour le trie numérique.

salut [file name=listviewtrier.zip size=26165]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/listviewtrier.zip[/file]
 

Pièces jointes

- 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

Réponses
16
Affichages
2 K
P
Réponses
9
Affichages
2 K
philest
P
Réponses
2
Affichages
906
Gringo
G
C
Réponses
3
Affichages
1 K
C
I
Réponses
1
Affichages
1 K
P
  • Question Question
Réponses
6
Affichages
4 K
N
  • Question Question
Réponses
3
Affichages
1 K
Amydale
A
Réponses
7
Affichages
1 K
J
  • Question Question
Réponses
6
Affichages
1 K
Retour