cs_Beginner37
Messages postés35Date d'inscriptionvendredi 26 janvier 2007StatutMembreDernière intervention28 février 2011
-
23 sept. 2007 à 16:40
cs_Beginner37
Messages postés35Date d'inscriptionvendredi 26 janvier 2007StatutMembreDernière intervention28 février 2011
-
24 sept. 2007 à 14:17
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
cs_MPi
Messages postés3877Date d'inscriptionmardi 19 mars 2002StatutMembreDernière intervention17 août 201823 23 sept. 2007 à 17:59
Essaie comme ceci
Private Sub Workbook_Open()
Dim I As Integer
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
cs_Beginner37
Messages postés35Date d'inscriptionvendredi 26 janvier 2007StatutMembreDernière intervention28 février 2011 24 sept. 2007 à 14:17
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 ...).