Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Général VBA
Général VBA Forum général VBA . Pour les logiciels spécifiques (Access, Excel, Word, ...), postez dans les bons sous forums.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 23/07/2011, 21h34   #1
Candidat au titre de Membre du Club
 
Inscription : novembre 2004
Messages : 63
Détails du profil
Informations forums :
Inscription : novembre 2004
Messages : 63
Points : 14
Points : 14
Par défaut Evenement 'change' sur combobox membre d'un groupe de controle

bonjour,

Je créer des combobox par groupe de 2, dynamiquement, de la façon suivante :

Code :
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
dim obj as control
 
For i = 1 To max
 
        Set obj = Frame1.Add("forms.combobox.1")
        With obj
            .Name = "ligne_cbx_partie" & i
            .Left = 10
            .Top = 30 * (i - 1) + 30
            .Width = 130
            .Value = "Partie"
            MsgBox obj.Name
       End With
 
        rst.Open "select distinct partie from exerciceMuscu", cnx2
        While Not rst.EOF
            Controls("ligne_cbx_partie" & i).AddItem rst!partie
            rst.MoveNext
        Wend
 
        Set obj = Frame1.Add("forms.combobox.1")
        With obj
            .Name = "ligne_cbx_exercice" & i
            .Left = 150
            .Top = 30 * (i - 1) + 30
            .Width = 130
            .Value = "Exercice"
        End With
next i
je remplis la 1e combobox avec des données provenant d'une base access.

je souhaiterais écrire désormais du code se déclenchant lors d'un évenement "change" de la 1e combobox (code qui aurait pour action de remplir la 2e combobox)

la difficulté vient du fait qu'il s'agit d'un groupe de controle.... comment procéder ?

merci !
ggvert est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 11h45.


 
 
 
 
Partenaires

Hébergement Web