Re Munchkin, le Forum
Arf tu parles de Labels de la barre d'outils "Formulaires" Numéro 1 ci-dessous...
Si tu n'as pas trop avancé dans ton projet, utilise plutôt les ActiveX de la Barre d'Outils "Contrôles" bien plus puissants et pratiques, et le code que je t'ai donné fonctionnera...
Maintenant si tu veux persister avec les Label de la Barre 1... Alors essaie ceci :
Sub TheLabelingFormulaire()
Dim i As Byte
For i = 1 To 9 'attention subordonné à la présence de 9 Labels nommés Label 1, Label 2, etc
ActiveSheet.Shapes("Label " & i).Select
Selection.Characters.Text = "Je suis le Label" & i
Next
End Sub
Etrangement on est semble-t'il obligé de faire un Select, la manip directe :
With ActiveSheet.Shapes("Label " & i)
.Characters.Text = "Je suis la Label" & i
End with
Ne Passe pas...
Attention aussi au nom des Labels ("Label 1", "Label 2" etc) avec un espace (ou bien les renommer par Menu Insertion Nom) et aussi à cette façon un peu aléatoire qu'à Excel de numéroter les Labels.... Shape... (Avec les Label OLEObject ActiveX de la Barre "Contrôles", il n'y a pas ce souci)
Pour le reste, je ne comprends pas ta macro ... Mais je pense que l'erreur vient sourtout de cette confusion entre les deux type de Label...
Bon Appétit
@+Thierry