Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…