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

Problème d'incrémentation d'objet en boucle

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion fhoest
  • Date de début Date de début

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 !

S'inscrire

fhoest

XLDnaute Accro
Bonjour a tous,
pourriez vous m'aidez svp MERCI

Dim x As string (ou autres)
x = blablabla
Label1.Caption = x
Label2.Caption = x
Label3.Caption = x
' ce que je voudrais trouver c'est le moyen d'incrementer l'objet label
'par le biais de son index label"1= variable" puis label"2=variable incrémenter dans une boucle etc...
' au lieu d'écrire 80 label si j'en ai besoins de 80

Merci beaucoup d'avance.
bonne nuit.
😀
 
Trier par date Trier par votes
Re : Problème d'incrémentation d'objet en boucle

Bonsoir, slt Kjin 🙂

Sans réponse de l'ami Fhoest, je propose les deux versions, sur la feuille et dans un Usf.

Pour la feuille, merci à Roger !

Tu m'en voudras pas Kjin...

Bonne nuit, Hulk.
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Problème d'incrémentation d'objet en boucle

Bonsoir à tous,

Bon avant d'aller me coucher, tu ne m'en voudras pas Hulk 🙂

Code: 
Private Sub CommandButton1_Click()
Dim x, i As Byte
On Error Resume Next 'sécurité
x = Array("x1", "x2", "x3", "etc")
For i = 1 To 80
  'Me.OLEObjects("Label" & i).Object.Caption = x(i - 1) 'dans une feuille de calcul
   Me.Controls("Label" & i).Caption = x(i - 1) 'dans un UserForm
Next
End Sub

Edit : on peut omettre les .Caption (propriété par défaut)

Bonne nuit et A+
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Problème d'incrémentation d'objet en boucle

Bonjour,
je vous remerci tous ,Kjin , Hulk et Job75
pour votre devouement et vos solutions
en fait je n'ai pas mis d'exemple car l'heure du marchand de sable été présente.
c'est pour moi utilisé dans un petit jeu de calcul pour les enfants et j'ai a peu près 90 label, donc ça fait un sacré bon de code bien complexe a écrire surtout que selon les solution possible (addtion,multiplication,et soustraction)cela multiplie par 3 la gestion d'affichage de tous ces labels
voivi mon petit exemple sur une base calcul addition simple (maintenant existe la meme chose avec soustraction et multiplication en cours de fabrication:
merci encore et bon amusement.
ps mot de passe projet vba = jeu

A bientot.
 
Vote positif 0 Vote négatif
Re : Problème d'incrémentation d'objet en boucle

Ps j'oubli merci "roger" mais au fait hulk je suis content de toi ca fait deux fois que me sauve la mise "t'es une vrai base de donné d'exemple"
merci encore et bon amusement .
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

J
  • Question Question
Lier Combo Box avec OptionButton
Réponses
0
Affichages
917
Johann Wintzenrieth
J
M
  • Question Question
Problème UserForm effacer valeur avant ecriture et en annulant.
Réponses
0
Affichages
957
MIMI28CG
M
M
[REF] Wiki Page 8 de MichelXld
Réponses
0
Affichages
39 K
MichelXld
M
M
[REF] Wiki 2 de MichelXld (Ce qui touche aux UserForm)
Réponses
0
Affichages
117 K
MichelXld
M
M
[REF] Wiki 6 de MichelXld (Doublons, Tris, Filtres, Variables, Fichiers fermés, Acces
Réponses
0
Affichages
69 K
MichelXld
M
I
  • Question Question
Plusieur ligne en meme temps dans un fichier .txt
Réponses
0
Affichages
1 K
Iro
I
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…