Discussion :

[eliot.raymond]

Bonjour a toutes et tous, Forum Bonjour

Je cherche comment coder pour écrire plusieurs titres dans un Label.

Vu l'heure je vous souhaite un bon App et un bon Dimanche

Merci pour aide et votre temps

Cdlt Ray

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
'*** Les tirets représente des espaces entre chaque chiffres où mots
 
Label45.Caption = "---1---------2---------3---------4--------5"  jusqu'a 12
Label46.Caption = "---Janv------Févr------Mars------Avr------Mai" jusqu'a Déc

[Daniel.C]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Label45.Caption = "   1"
Label46.Caption = "   Janv"
For i = 2 To 12
    Label45.Caption = Label45.Caption & "         " & i
    Label46.Caption = Label46.Caption & "      " & Application.Proper(Format(DateSerial(2013, i, 1), "mmm"))
Next i

[eliot.raymond]

Salut Daniel

Merci pour ta réponse et pour le code.

J'essai d'améliorer et surtout cela me permets de virer des Labels

Rien que pour faire afficher les N° et les noms de mois, j'avais mis rien
que 24 labels.

Donc soit 22 labels de moins dans mon USF et autres, du coup mon programme marche bien maintenant et ca ne plante plus du tout.


Bref ça fonctionne mais je n'arrive pas a aligner comme ci-dessous et svp voir photo ci-jointe

---1          2
---Janv       Févr

Merci a toi

Cdlt Ray

[Daniel.C]

C'est la galère des polices à pas variable. Tu peux utiliser une police à pas fixe comme Courier New (celle de l'éditeur VBA), sinon, ajouter ou ôter des espaces pour faire le réglage.

[eliot.raymond]

Re salut Daniel


Bon j'ai suivi tes conseils j'ai mème essayer d'autres police mais impossible d'aligner correctement

Il y a toujours autant d'espaces entre l'affichage Ex:

entre Janv et Févr
entre Févr et Mars etc etc

Donc j'ai beau décaler les espaces mais ca colle jamais pil poil

Bonne fin d'après midi déja

Ray

[eliot.raymond]

Salut Daniel

Pas réussi a faire mieux

Tant pis c'est pas grave

Bonne après midi

Cdlt Ray