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

Membres actuellement en ligne

Statistiques des forums

Discussions
312 294
Messages
2 086 895
Membres
103 404
dernier inscrit
sultan87