Discussion :

[shinji7800]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[laetitia]

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

[shinji7800]

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

[ucfoutu]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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).

[shinji7800]

Bonjour ucfoutu,

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

merci pour ton intervention !

[shinji7800]

Si j'ai bien compris,

Ma_collection correspondrai a la collection Label

donc la syntaxe serai

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Label ("Cont")

et dans ma boucle

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ucfoutu]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Shapes("Label" & i)

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

[shinji7800]

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 !

[shinji7800]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Shapes("Label" & i)

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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