Indexer un commandButton ou une ProgressBar!!!!

Question

Salut,
Le num&#233;ro d'une ProgressBar ou d'un CommandButton peut-il etre ind&#233;x&#233; comme ci-dessous...
Je veut mettre &#224; jour 600 ProgressBars suivant 600 cellules diff&#233;rentes sans taper 600 lignes de prog!!!
 Bien sur le _ & Numa ne fonctionne pas.

Dim Numa As Integer
   'REFRESH PROGESS BARS
Private Sub CommandButton18_Click()
Numa =  20
For Numa = 20 To 30
ProgressBar _ & Numa .Value  = Range("i" & Numa).Value
Next
End Sub

Merci d'avance.
LMIC62

Gobillot · Answer

600 progressbar &#231;a me parait une h&#233;r&#233;sie !!!!



si t'es en Vb6 tu peux les cr&#233;er dynamiquement:

Load progressbar(Numa)


Daniel

NHenry · Answer

Si tu veux les cr&#233;&#233;s sur une feuille de calcul, regarde les propri&#233;t&#233;s
OLE de la feuille, tu doit touuver un truc du genre OLEControl ou un
truc du genre. c'est une collection.



Il est plus facile de batiser kk1 que de la convertir. (surtout en programmation)

Une question se pose sur le forum, pas en priv&#233;


NH

PCPT · Answer

pour indexer des contrôles, il suffit d'utiliser leur propriété INDEX qui est faite pour çà 'la Form contient un bouton CmdRun 'et 30 boutons Commands_indexes(0 à 29) Private Sub CmdRun_Click() Dim Numa As Integer For Numa = 3 To 25 Commands_indexes(Numa).Caption = "Caption Changé" Next End Sub Colorisation automatique (PCPT) [AFCK] il en sera de même pour les progressbarr. pour créer des contrôles indéxes, il suffit de créer le premier contrôle, puis de le copier avec le même nom. (msg box, accepter) PCPT

lmic626262 · Answer

Je suis sous Excel 2002 VBA 6.3
Je teste la function INDEX....

Private Sub CommandButton18_Click()
Dim Numa As Integer
      For Numa = 20 To 22
        ProgressBar_Index(Numa).Value = Range("i" & Numa).Value
    Next
End Sub

La function ProgressBar_Index pose probl&#233;me (fontion non d&#233;finit),
j'ai pris index et progressBar au singulier puis au pluriel et cela pose probl&#233;me aussi.
2 progressBar avec le meme n'est pas authoris&#233;.
 Merci pour vos r&#233;ponses...

LMIC62

PCPT · Answer

consid&#232;re que ton objet devient un tableau.
si tu utilises un tableau(3) :

numa = 2
test = tableau_index(numa)
tu lirais la valeur ainsi?

c'est pourtant ce que tu fais dans l'exemple que tu as post&#233;.
mon exemple est pour VB6, mais VBA accepte les composant index&#233;s.
par contre, il n'y a pas de d&#233;claration &#224; faire. (tous Variant)

ps : image en chemin local = visible que pour toi (signature)

PCPT

lmic626262 · Answer

D&#233;sol&#233;, votre notion de tableau m'&#233;chappe. 
Je suis d&#233;butant en VB, vos r&#233;ponses sont interessantes &#224; tous mais j'ai des difficult&#233;es &#224; les mettre en pratique vu mon incomp&#233;tence dans le domaine.
Sans vous demander d'&#233;crire les ligne de prog &#224; ma place, (ce que vous avez d&#233;j&#224; fait), un exemple fonctionnel sous VB6 serait le bien venu.
Est-ce qu'il faut charger des biblioth&#233;ques en supp pour acced&#233; &#224; certaines fonctions?
Les functions  _indexes ne fontionnent pas chez moi!!

LMIC62

PCPT · Answer

ouvre un nouveau projet. (donc macro...) dépose une TxtBox sur ton Formulaire ton objet va s'appeler Text1 pas défaut sélectionne le, édition copier. ton Formulaire va prendre le Focus. Edition coller un message apparaît : Il y a déjà un contrôle nommé 'Text1'. Voulez-vous créer un groupe de contrôles? click OUI. ton contrôle se nomme toujours Text1, mais il est indexé. fais encore Edition Coller 2 ou 3 fois, et place les de manière à les avoir tous en vue. double-click sur l'un d'entre eux. la page de code s'ouvre, en affichant la ligne Private Sub Text1_Change(Index As Integer) End Sub donc quand une touche est saisie, l'évènement Change se déclanche. pour l'exemple, je crée 6 TextBox, donc Text1(0 à 5) voici 2 exemples : 'EXEMPLE n°1 ' 'on saisi une donnée. 'si on la saisie dans Text1(0), on copie 'cette valeur également dans Text1(5) ' ' Private Sub Text1_Change(Index As Integer) If Index 0 Then Text1(5).Text Text1(0).Text End Sub 'EXEMPLE n°2 ' 'on saisie une donnée. ' 'si on la saisie dans Text1(2), 'on change la couleur de fond du Text1(0) en vert ' 'sinon si c'est dans Text1(5), on met toutes les 'couleurs de fond en blanc ' 'si c'est dans une autre, on met toutes les 'couleurs de fond en rouge ' ' Private Sub Text1_Change(Index As Integer) Dim i As Integer If Index = 2 Then Text1(0).BackColor = vbGreen ElseIf Index = 5 Then For i = 0 To 5 Text1(i).BackColor = vbWhite Next i Else For i = 0 To 5 Text1(i).BackColor = vbRed Next i End If End Sub Colorisation automatique [AFCK] espérant que çà soit plus clair. PCPT

lmic626262 · Answer

Merci pour ta r&#233;ponse, cela doit fonctionner en VB application mais pas sous excel en VB6.3.
Sous excel,  on cr&#233;&#233; une TextBox1 et non une TxtBox
Quand on renomme, il ne propose pas de "Voulez-vous cr&#233;er un groupe de contr&#244;les?"
Par contre il informe d'un "Nom Ambigu d&#233;tect&#233;".
Pour moi sous Excel en VB6.3, votre solution n'est pas compatible, par contre j'ai appris qq chose si je programme un jour en VB6 "natif".
Merci &#224; tous.
LMIC62

PCPT · Answer

*Quand on renomme, il ne propose pas de "Voulez-vous cr&#233;er un groupe de contr&#244;les?"

bah oui, puisque je n'ai jamais parl&#233; de renommage.
et qu'il nomme par d&#233;faut Text1 ou TextBox1, &#231;&#224; reste un composant. c'est le principe qu'on veut. puisque ta demande de d&#233;part est en rapport avec un CommandButton et une ProgressBar.

essai de voir si mon code n'est pas adaptable. je doute fortement que, m&#234;me sous VBA6.3, les groupes de contr&#244;les ne soient pas int&#233;grables.

bonne continuation
PCPT

Indexer un commandButton ou une ProgressBar!!!!

9 réponses

Discussions similaires