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

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

  • Abaque.xlsm
    566.7 KB · Affichages: 19
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

Arky

XLDnaute Nouveau
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:

Discussions similaires

Statistiques des forums

Discussions
314 773
Messages
2 112 783
Membres
111 660
dernier inscrit
tekbe