désignation comboboxRésolu

Question

Bonjour tout le monde
Je galère en vb sur Excel pour appeler dans le code les différentes combobox que j'ai crée de façon répétitive, je m'explique : J'ai tout un tas de combobox portant le même nom au numéro près (diag31, diag32, ...) et je voudrais en activer ou désactiver certains groupes (par exemple activer le groupe 31-60 et désactiver le groupe 61-90). Avec la fonction enabled ça marche sauf que je suis obligé d'écrire une ligne pour chaque box, c'est très long et ça alourdie mon code!!! J'ai donc mis en place un compteur mais je n'arrive pas à renommer mes box avec (("diag" & I) ne marche pas). Quelqu'un a-t-il une solution pour moi svp?

cs_MPi · Accepted Answer

Tu as différentes possibilités selon le type de contrôles que tu utilises et où ils sont placés

ActiveSheet.OLEObjects("diag" & i)  << Barre d'outils Visual Basic sur feuille
ActiveSheet.Shapes("diag" & i)          << Barre d'outils Formulaire sur feuille
Me.Controls("diag" & i)                     << sur un UserForm

MPi

jmfmarques · Answer

Bonjour,

Ben voilà !
Puisque tu es maintenant dans la bonne section :
Controls est une collection.

Controls("text1") désigne donc, par exemple, la textbox Text1.

Renfield · Answer

un groupe de controle ferait également l'affaire (voir propriété Index de tes combobox)

Renfield
Admin CodeS-SourceS- MVP Visual Basic

jmfmarques · Answer

Bonjour RenField,

Hélàs, hélas !....
Regarde sous quoi il développe (il est maintenant dans la bonne section) ====>>> pas de groupes de contrôles indexés...

nanardino64 · Answer

ça ne marche pas c'est peut-être parce que les boxs sont sur une page Excel et puis j'ai pas bien saisi l'histoire des collections, il faut en créer une?

jmfmarques · Answer

Si ton contrôle est ailleurs que dans un userform, en effet, ce n'est pas la même chose.

Je ne connais pas VBA, mais j'essaierais quand même de voir avec

Sheet.controls ou WorkSheet.Controls ou Sheet("nom_de_ta_feuille").Controls
Qui sont peut-etre des collecxtions sous VBA.
Essaye pour voir ...on ne sait jamais.

nanardino64 · Answer

Sub Vérouillage()
    Dim I As Integer
    For I = 31 To 90
        OLEObjects("diag" & I).Enabled = False
    Next I
End sub

Merci tout le monde pour cette aide précieuse, ça marche nickel chrome sans vous j'étais fichu (je suis au boulot et je développe un progiciel). A bientôt

cs_MPi · Answer

Salut JMF,
Non, la collection Controls n'existe pas pour un objet "Feuille" (Activesheet, Worksheet, ...)

MPi

jmfmarques · Answer

Bonjour MPI,

et ceci alors ?
http://www.aspose.com/wiki/default.aspx/Aspose.Grid/ManagingCellControls.html
J'ai probablement lu trop vite...

>> nanardino : et si tu pensais à valider la réponse faite par MPI (afin qu'elle puisse servir un jour à d'autres) ? Ce serait une bonne idée...

nanardino64 · Answer

Désolé c'est la première fois que je participe maintenant j'y penserai

cs_MPi · Answer

Salut JMF,

du site en question >> This topic discusses some important concepts about managing cell controls using the API of Aspose.Grid.Desktop

Et les exemples de code sont du .Net et du C# ... (?)

Mais je reconfirme, même en utilisant F2, Controls n'est reconnu à nulle part.
Par contre, dès qu'on insère un UserForm, la référence se crée à "MSForms" et là Controls est disponible pour certains objets, dont le UserForm, mais aussi Frame et Page... et c'est tout.

Peut-être est-ce différent sous les versions les plus récentes d'Office, mais je ne peux vérifier...

MPi

jmfmarques · Answer

Bonsoir MPI et merci.

Pour ton info :
Une discussion quasi isimilaire viebt d'être ouverte ici :
http://www.vbfrance.com/infomsg_BOUCLE_982799.aspx#1
Vas-y si tu l'estimes nécessaire.

Désignation combobox

12 réponses

Votre réponse

Discussions similaires