L
ly
Guest
Auteur: Eric
Date: 03-07-02 16:23
Bonjour à tous,
J'ai placé dans une feuille un certain nombre de Label. ( Ex: 15 )
J'ai la macro suivante:
Private Sub CommandButton6_Click()
Dim i As Integer
For i = 1 To 15
ActiveSheet.Shapes("Label" & i).Select
Selection.Caption = "ESSAI"
Next i
End Sub
Lorsque je teste, j'ai le message d'erreur d'exécution '438' et
Propriété ou méthode non gérée par cet objet.
Alors que une ligne Label1.Caption = "ESSAI" marche bien
Le nombre de labels à insérer n'est pas fixe, ça peut être 10 ou 50 !
C'est pourquoi je dois passer par une boucle.
Comment faire pour que sur les Labels puissent être remplis ?
Marci d(avance de vos réponses.
Date: 03-07-02 16:23
Bonjour à tous,
J'ai placé dans une feuille un certain nombre de Label. ( Ex: 15 )
J'ai la macro suivante:
Private Sub CommandButton6_Click()
Dim i As Integer
For i = 1 To 15
ActiveSheet.Shapes("Label" & i).Select
Selection.Caption = "ESSAI"
Next i
End Sub
Lorsque je teste, j'ai le message d'erreur d'exécution '438' et
Propriété ou méthode non gérée par cet objet.
Alors que une ligne Label1.Caption = "ESSAI" marche bien
Le nombre de labels à insérer n'est pas fixe, ça peut être 10 ou 50 !
C'est pourquoi je dois passer par une boucle.
Comment faire pour que sur les Labels puissent être remplis ?
Marci d(avance de vos réponses.