Appeler les contrôles d'un état par leur index ? Fermé

Question

Bonjour,

J'ai un état de comptabilité avec un certain nombre de contrôle, je veux que si la valeur d'un contrôle est nulle, ce contrôle ne soit pas visible. J'ai fait mon code de telle sorte que l'action se fait bien comme je le souhaite.

Mais je voudrais l'améliorer. Actuellement, j'appelle les contrôles un par un par leur nom; ce qui fait que mon code est assez long et lourd, parce qu'il y en a pas mal. Aussi, pour alléger je voudrais les appeler par leur Index dans une boucle, soit avec For each control .... Next , soit avec Do .... Loop until .... .  Mais ça ne passe pas, ni avec  Control.Index = N, ni avec Control.TabIndex = N.

Quelqu'un aurait-il la solution pour résoudre mon problème ?   Je répète, il s'agit d'un Etat en cours d'édition Preview et non pas d'un formulaire, donc il ne peut être question d'utiliser la fonction with Screen.ActiveControl qui ne fonctionne pas dans le cas présent.

Merci à tous pour votre aide.

Windows / Firefox 102.0

yg_be · Answer

bonjour,

Peux-tu montrer comment ton code fait appel aux contrôles?

Qu'as-tu essayé comme "For each control .... Next"?  C'est l'objet en "in" qui pose problème, ou le type de "control"?  Souvent mieux de séparer:

dim liste as aaa, control as bbb
set liste = ...
for each control in liste
...
next control

As-tu envisagé de partir d'une liste des noms des contrôles?  Tu peux alors simplement boucler dans la liste.

Peux-tu partager un fichier exemple?

Tessel75 · Answer

Bonjour et merci pour ta réponse.

Comme j'ai dit dans ma question la difficulté n'est pas dans le lancement de la boucle, j'ai bien écrit

For Each Ctrl In CodeContextObject.Section(N).Controls où Section(N) est la section où se trouve les contrôles à masquer.

La difficulté est dans l'appel des contrôles avec Index ou tabIndex pour lesquels je bute sur la syntaxe.

Ci-dessous un exemple de cce que j'ai écrit mais qui ne donne pas ce que j'attends

With CodeContextObject.Section(N)  
Do
            m = m + 1
            TabIndex = m

Ctrl = Ctrl.TabIndex (m)
        If Ctrl = 0 Or IsNull(Ctrl) Then
                Ctrl.Visible = no
        Else
                Ctrl.Visible = yes
        End If
CtrlSuivant:
Loop Until m > 500

End with

Tessel75 · Answer

J'ai donc essayé la boucle que tu proposes, qui est à peu près celle que j'avais bâtie à l'origine, et elle me sort tous  les éléments de la section, y compris ceux qui ne sont pas des contrôles, les étiquettes, les traits de séparation entre les blocs de données. C'est donc pour cela que je voulais les index , pour être sûr qu'il ne répertorie que les vrais contrôles.

Tessel75 · Answer

Bien sûr !   C'est ce que j'ai fait en sélectionnant ceux qui ont un nombre pour index.ça marche; mais le problème, c'est qu'après, même en ne conservant que ces contrôles, il ne masque pas ceux dont la valeur est égale à 0. Et c'est précisément ce que je veux obtenir.

Lesset75 · Answer

Merci de ta réponse. Excuse moi de répondre si tard, je ne l'avais pas vue.

Pour ce qui est du contenu lui-même de ta réponse, il ne s'agit pas du tout de ça. En général, quand je pose une question, c'est parce que je bute sur un point particulier; je peux toujours bénéficier d'autres suggestions mais comme je sais où je veux aller, je trouve trop compliqué de tout expliquer et après de dire que je ne veux pas ceci ou cela parce que ceci ou cela, parce que ça ne correspond pas à mon programme. C'est aussi ce que je fais dans mes réponses; je ne cherche pas à savoir le pourquoi mais j’essaie d'expliquer le comment faire sans chercher à connaitre le code du début à la fin.

Cela dit, j'ai fini par trouver la réponse que je cherchais, je la mettrai en ligne, dès que j'aurai fini, pour ceux qui seraient intéressés.  C'était finalement très simple, il suffisait de savoir.

blux · Answer

Salut,

If Ctrl = 0 Or IsNull(Ctrl) Then

Ce ne serait pas en testant plutôt :

Ctrl.Value = 0

Appeler les contrôles d'un état par leur index ?

6 réponses

Discussions similaires