Plusieurs LAbels dans une boucles [Résolu]

Signaler
Messages postés
35
Date d'inscription
vendredi 26 janvier 2007
Statut
Membre
Dernière intervention
28 février 2011
-
Messages postés
35
Date d'inscription
vendredi 26 janvier 2007
Statut
Membre
Dernière intervention
28 février 2011
-
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

3 réponses

Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Modérateur
Dernière intervention
4 mars 2013
99
Salut,

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

Je déplace vers le forum approprié !
______________________________________
DarK Sidious
Messages postés
3877
Date d'inscription
mardi 19 mars 2002
Statut
Membre
Dernière intervention
23 août 2018
18
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²
Messages postés
35
Date d'inscription
vendredi 26 janvier 2007
Statut
Membre
Dernière intervention
28 février 2011

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