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

Arky · 21 Avril 2021

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.

Arky · 21 Avril 2021

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

Arky · 21 Avril 2021

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

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

Arky

XLDnaute Nouveau

Pièces jointes

Arky

Arky

XLDnaute Nouveau

Discussions similaires