Bonjour à tous,
J'utilise les dictionnaires pour les listes en cascades (merci Boisgontier) mais je voudrais savoir s'il est possible de les utiliser pour des objets (en l'occurrence, des contrôles). Je m'explique :
- une boîte de dialogue
- des coches (Checkbox - beaucoup d'éléments)
- tous les contrôles ont un Tag (nombre)
Peut-on imaginer un accès aléatoire permettant de changer l'état de certaines coches en désignant les contrôles par leur Tag? Actuellement, je le fais par : For Each Coche in Userform1.Controls...jusqu'à trouver le bon Tag, mais je trouve ça un peu lourdingue et j'aurais voulu savoir si quelque chose dans ce genre serait envisageable :
Pas vu d'exemple. Si quelqu'un a une idée...merci d'avance. Si ce n'est pas possible, merci quand même
Cordialement
J'utilise les dictionnaires pour les listes en cascades (merci Boisgontier) mais je voudrais savoir s'il est possible de les utiliser pour des objets (en l'occurrence, des contrôles). Je m'explique :
- une boîte de dialogue
- des coches (Checkbox - beaucoup d'éléments)
- tous les contrôles ont un Tag (nombre)
Peut-on imaginer un accès aléatoire permettant de changer l'état de certaines coches en désignant les contrôles par leur Tag? Actuellement, je le fais par : For Each Coche in Userform1.Controls...jusqu'à trouver le bon Tag, mais je trouve ça un peu lourdingue et j'aurais voulu savoir si quelque chose dans ce genre serait envisageable :
Code:
Sub EtablitDico()
Dim DicoTag As Object
Dim Contr As Control
Set DicoTag = CreateObject("Scripting.Dictionary")
For Each Contr In Me.Controls
If TypeName(Contr) = "CheckBox" Then
DicoTag.Item(????) = Contr.Tag
End If
Next Contr
End Sub
Sub UtiliseDico()
DicoTag.Item(13).Value = True
DicoTag.Item(32).Value = False
End Sub
Pas vu d'exemple. Si quelqu'un a une idée...merci d'avance. Si ce n'est pas possible, merci quand même
Cordialement
Dernière édition: