[VBA-USERFORM] indice d'objet variable

Bonjour,

J’ai un petit souci en VBA

Je suis en train de créer un formulaire, via un userform.


Ce formulaire, devra copier des « noms de contexte », contenu dans un classeur (déjà ouvert au moment ou l’utilisateur sera invité à remplir le formulaire). Pour renommé mes « intitulés » des zones de texte.

L’utilisateur n’aura qu’à mettre la valeur numérique de chaque contexte en face de son « nom »


Mes intitulés ont pour « (name) » un nom de la forme :

- ContX ( avec X compris entre 1 et 48)

J’aimerai créer une boucle for, pour changer le « caption » des intitulés

Concrètement j’aimerai utiliser la formule ci-dessous et pouvoir incrémenter l’indice de « Cont »

Code:

---

Cont1.Caption = Workbooks("XXX.xls").Sheets(1).Range("K4" & i).Value

---

peut-être qu'un tableau serai la solution, mais d'après quelque recherche je suis pas sur que cela soit possible


Merci pour votre aide

bonjour shinji7800 le forum pas bien clair explique un peu tu parles d un userform!!

Citation:

---

Envoyé par laetitia

bonjour shinji7800 le forum pas bien clair explique un peu tu parles d un userform!!

---

merci pour cette réponse rapide :) , par contre je suis navré je n'ai pas très bien saisi le sens de ton message :/

à ton sens j'aurai du préciser que je parlais d'un "USERFORM" ?

-> si c'est le cas, je pensais que le titre de mon topic était suffisant

-> sinon, pardonne moi et voudrais tu me rééxpliquer ? :)

cordialement

Bonjour,

intéresse-toi à la collection Controls (si tu travailles sur un UserForm) ou Shapes (si tes contrôles sont sur ta feuille Excel).

Le propre d'une collection est de pouvoir se référer à l'un de ses articles en le désignnt soit par son index dans la collection, soit par son nom (et cest celà qui t'intéresse).

Ainsi, par exemple, pour une collection ma_collection :

Code:

---

ma_collection("mon_article")

---

se réfère à l'article nommé "mon_article"

Dès lors, une simple concaténation avec un chiffre te permet d'utiliser ta boucle sur les différents articles mon_article1, mon_article2, etc...

J'ai préféré te mettre sur les rails de cette manière, car elle concerne toutes les collections...
A toi de te servir de celà (facile).

Bonjour ucfoutu,

cela me semble pertinant, pas sûr d'avoir tout saisi :D, mais j'étudie cela et je vous tiens au courant !

merci pour ton intervention !

Si j'ai bien compris,

Ma_collection correspondrai a la collection Label

donc la syntaxe serai

Code:

---

Label ("Cont")

---

et dans ma boucle

Code:

---

1 2 3

for i=1 to 48   Cont & i.Caption = Workbooks("XXX.xls").Sheets(1).Range("K4" & i).Value

---

cependant à la compilation, sub ou fonction non définie

Tu m'as mal lu ou lu en diagonale !
Si tu travailles sur un UserForm, ta collection s'appelle Controls
et

Code:

---

Controls("Label" & i)

---

se réfèrera au Label Label2 de ton userForm si i = 2
si tu travaille sur ta feuille, ta collection s'appele Shapes
et

Code:

---

Shapes("Label" & i)

---

se réfèrera au Label Label9 de ta feuille si i = 9

excuse moi, j'ai lu plusieurs fois crois moi

je suis débutant, et j'ai pensé que ce que tu appelais "ma_collection" c'était en faite l'objet en question

merci pour ton aide !

j'essaye cela au travail demain en arrivant et confirme le bon fonctionnement !

Citation:

---

Envoyé par ucfoutu

Tu m'as mal lu ou lu en diagonale !
Si tu travailles sur un UserForm, ta collection s'appelle Controls
et

Code:

---

Controls("Label" & i)

---

se réfèrera au Label Label2 de ton userForm si i = 2
si tu travaille sur ta feuille, ta collection s'appele Shapes
et

Code:

---

Shapes("Label" & i)

---

se réfèrera au Label Label9 de ta feuille si i = 9

---

Code:

---

Controls("Cont" & i) = Workbooks("XXX.xls").Sheets(1).Range("K4" & i).Value

---

est effectivement la réponse a mon problème, merci énormément pour ton intervention !

cordialement