Bonjour,
j'ai une erreur qui apparait sur ce mini programme en VBA5 ci-dessous et je n'ai pas trouvé la bonne écriture (j'ai essayé des tas de variantes). Quatre Labels se trouvent sur la feuille de calcul "excel" qui je veux initier au démarrage dans Workbook_Open().
dim Boucle as integer
dim etiquette
' Init
Boucle = 1
For Boucle = 1 To 4
etiquette = "Label" & Boucle
Feuil1.etiquette.Font.Bold = False
Feuil1. etiquette.TextAlign = 1
Feuil1.etiquette.ForeColor = &HFF0000
Next Boucle
Pouvez-vous résoudre mon problème ?
Merci pour votre aide
For I = 1 To 4
Sheets("Feuil1").OLEObjects("Label" & I).Object.Caption = "Label" & I
Sheets("Feuil1").OLEObjects("Label" & I).Object.Font.Bold = False
Sheets("Feuil1").OLEObjects("Label" & I).Object.TextAlign = fmTextAlignLeft
Sheets("Feuil1").OLEObjects("Label" & I).Object.ForeColor = &HFF0000
Next
End Sub
J'ai utilisé le programme proposé de MPi et cela fonctionne.
Je peux passer sur un label et le texte change de propriétés (couleur, gras, italic,etc ...).