Plusieurs LAbels dans une boucles [Résolu]

Messages postés
35
Date d'inscription
vendredi 26 janvier 2007
Statut
Membre
Dernière intervention
28 février 2011
- - Dernière réponse : cs_Beginner37
Messages postés
35
Date d'inscription
vendredi 26 janvier 2007
Statut
Membre
Dernière intervention
28 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
Afficher la suite 

3 réponses

Meilleure réponse
Messages postés
15815
Date d'inscription
jeudi 8 août 2002
Statut
Modérateur
Dernière intervention
4 mars 2013
83
3
Merci
Salut,

Si tu fais du VBA, pourquoi tu poste dans le forum VB.NET ????

Je déplace vers le forum approprié !
______________________________________
DarK Sidious

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 219 internautes nous ont dit merci ce mois-ci

Commenter la réponse de cs_DARKSIDIOUS
Messages postés
3877
Date d'inscription
mardi 19 mars 2002
Statut
Membre
Dernière intervention
23 août 2018
15
3
Merci
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

MPi²

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 219 internautes nous ont dit merci ce mois-ci

Commenter la réponse de cs_MPi
Messages postés
35
Date d'inscription
vendredi 26 janvier 2007
Statut
Membre
Dernière intervention
28 février 2011
0
Merci
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 ...).

Cordialement
Commenter la réponse de cs_Beginner37