XL 2019 Renseigner une valeur a des labels et les mettre dans une boucle

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Arky

XLDnaute Nouveau
Bonjour à tous,

Voila je suis bloquée sur ma macro. J'ai parcouru de nombreux forum et je n'ai pu trouver ma réponse, alors je me tourne vers vous.
J'ai inséré sur ma feuille environ 200 labels. La valeur de ces labels est calculé via une macro mais je ne parviens pas à associer ces valeurs à mes labels.
Qui plus est je souhaiterais les mettre dans une boucle pour faciliter l’écriture.
Merci d'avance de votre aide.

Arky.
 

Pièces jointes

Solution
Finalement j'ai trouvée, il fallait juste que je demande de l'aide pour que mon cerveau se reveille ^^
Pour ceux qui serait intéresser; voila le code necessaire :

VB:
Private Sub Worksheet_Activate()

Dim d As Integer

  Application.ScreenUpdating = False

  For d = 1 To 9
    With ActiveSheet.OLEObjects("Label" & d)
      .Object.Caption = d
    End With
  Next
Finalement j'ai trouvée, il fallait juste que je demande de l'aide pour que mon cerveau se reveille ^^
Pour ceux qui serait intéresser; voila le code necessaire :

VB:
Private Sub Worksheet_Activate()

Dim d As Integer

  Application.ScreenUpdating = False

  For d = 1 To 9
    With ActiveSheet.OLEObjects("Label" & d)
      .Object.Caption = d
    End With
  Next
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour