Discussion :

[Tifriis]

Bonjour,

j'ai réalisé le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Public Sub Tout_sélectionner_Click()
 
Dim i, j As Integer
Dim Combobox As Control
 
For j = 1 To 7
Combobox.Name = "Combo" & j
    For i = 0 To Combobox.ListCount - 1
    Forms!Indicateurs_choisis.Combo.Selected(i) = True
    Next i
Next j
 
End Sub

Cependant, j'ai à chaque fois des erreurs. Je pense que cela vient d'un problème de syntaxe, mais je n'arrive pas à le trouver. Peut être qu'un oeil extérieur le verra mieux que moi En écrivant le code suivant (pour une seule combobox, j'obtiens quelquechose qui marche parfaitement) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
    For i = 0 To Combo1.ListCount - 1
    Me.Combo1.Selected(i) = True
    Next i

Merci d'avance

[ilank]

Bonjour,
je ne suis pas sûr que les combobox autorisent une sélection multiple comme les listbox.A moins que tu appelles ici combo des contrôles listbox.
Deuxièmement, tu affectes la propriété Name du Control comboBox sans l'avoir instancié et pour ne pas t'en servir par la suite.

Exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
For j=1 to 7
 For i=0 To Forms("...").Controls("Combo" & Cstr(j)).ListCount - 1
  Forms("...").Controls("Combo" & Cstr((j)).Selected(i) = True
 Next i
Next j

ou encore

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
For j=1 to 7
 Set Combobox=Forms("...").Controls("Combo" & Cstr(j))
 For i=0 To Combobox.ListCount - 1
  Combobox.Selected(i) = True
 Next i
Next j

[Tifriis]

Ton premier code marche parfaitement !

Merci encore pour cette syntaxe.

A bientôt,

Tifriis

[ilank]

Pour le second exemple, combobox étant déjà utilisé par Access pour le type de contrôles, il ne doit pas fonctionner.