Allias de variablesRésolu

Question

Bonjour, 

Voila, dans un Userforms, j'ai différents boutons noté de B1 à B14, que je veux faire apparaître et disparaître suivant le déroulement du programme (dans une boucle).

Mon problème est que l'association de "B" & i (i étant un compteur), j'ai un plantage, me disant que ce n'est pas reconnu.

Auriez-vous une idée ?
Merci - Hervé
 
--

jordane45 · Answer

Bonjour. 
Il faut utiliser la collection "controls"


Si je me connecte sur mon pc je te filerai du code.

ucfoutu · Answer

Bonjour;
1) Il ne s'agit pas là d'un "alias", mais d'un sujet déjà traité mille et une fois sur ce forum
2) montre ce que tu as écrit et qui provoque :
j'ai un plantage, me disant que ce n'est pas reconnu.

Herve29000 · Answer

Voila l'entête :
For II = 1 To 14
    Cial = "B" & II
    FClients.Cial.Value = True
    FClients.Cial.Visible = True

Le résultat donne  :

Erreur de compilation
Membre de méthode ou de données introuvable 

Merci pour vos réponses
 
--

ucfoutu · Answer

Désolé et toutes mes excuses, Herve29000. Je t'ai confondu avec un autre Hervé ...
Controls("B" & n) se réfère au contrôle nommé B3 si n = 3
===>>>
For II = 1 To 14   FClients.controls("B" & II).Value = TrueNext
--
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviend

ucfoutu · Answer

Ben ...
Si dans ta boucle :
citation :
For II = 1 To 14  FClients.Controls("B" & II).Visible = True  FFlag = True  Sheets(II).Cells.ClearContents  'Traitement (II) (Part dans un PGM qui traite l'information)  FClients.Controls("B" & II).Visible = FalseNext
tu demandes d'afficher puis de rendre invisibles, tu n'auras même pas le temps de voir qu'elles s'affichent, qu'elles seront à nouveau invisibles !

Herve29000 · Answer

Merci pour ta réponse, certes j'y avais pensé, mais pour certains traitements cela met plus de 30 secondes de travail, et pourtant elle ne se rend pas visible pour autant ..... Certes c'est juste pour améliorer graphiquement le programme, car tout fonctionne derrière, mais enfin, j'aurais aimé réussir; J'y suis depuis hier midi... Merci en tout cas pour tes réponses Ucfoutu - Hervé
 
--

ucfoutu · Answer

Mets alors un DoEvents après la ligne disant :
 FClients.Controls("B" & II).Visible = True
ou (encore mieux) :
dim debut as singleFor II = 1 To 14  FClients.Controls("B" & II).Visible = True  debut = timer  do while timer - debut < 2     doevents  loop  FFlag = True  Sheets(II).Cells.ClearContents  'Traitement (II) (Part dans un PGM qui traite l'information)  FClients.Controls("B" & II).Visible = FalseNext
Mais tu vas allonger ainsi forcément le temps d'exécution ... pour aucun réel gain !

Herve29000 · Answer

MERCI !!!! C'est exactement ce que je cherchais comme effet. Tu es un trop fort.  Merci encore
 
--

Herve29000 · Answer

Tout fonctionne comme j'en avais envie, merci à tous pour vos idées. Maintenant je vais m'attaquer à une barre de progression, indiquant l'avancement du traitement du programme. Si vous avez des idées je serais preneur. Merci encore. Hervé 
 
--

ucfoutu · Answer

Le plus simple serait sans aucun doute d'utiliser une barre de progression (composant ProgressBar), d'en fixer sa propriété Max à 14 (le nombre de tes feuilles) et sa propriété Min à 0
Et dans ta boucle, d'incrémenter la propriété Value de ta progressBar de 1 à chaque feuille traitée.

Herve29000 · Answer

Je vais regarder ce composant. Tu l'as déjà essayé ?
--

ucfoutu · Answer

Bien évidemment (c'est l'un des composants les plus utilisés et il est d'utilisation très simple).

Herve29000 · Answer

Merci Ucfoutu pour toutes tes aides, tu sembles avoir un très bon niveau dans ce genre de programmation, moi je commence en fait (malgrés mon age) - Ou puis je trouver de l'aide à ce sujet de barre de progression STP ?
 
--

ucfoutu · Answer

Aucune aide n'est nécessaire pour un composant aussi simple :
Pour l'insérer : clic droit dans la boîte à outil ===>>> clic gauche sur Contrôles complémentaires ===>> parcours de la liste ===>> coche Microsoft ProgressBar Control, Version 5,0 ===>> clique sur OK ===>>
Il apparait maintenant dans ta boîte à outil est peut maintenant être inséré sur ton userform de la même manière que tous les autres contrôles.
Regarde ses propriétés, parmi lesquelles Min et Max ==>> définis-les comme dit plus haut.
La propriété Value, par contre, n'est accessible qu'en exécution (et pour cause).
Pour l'incrémenter de 1 unité ===>>
progressbar1.value = progressbar1.value + 1
Nul besoin d'aide pour si pet, comme tu le vois.

Allias de variables

14 réponses

Votre réponse

Discussions similaires