Discussion :

[CrayonOrdinaire]

Bonjour les amis,

J'aimerais attribuer des mots, par exemple "oui" ou "non" dans un certains nombre de combobox. Cependant, l'ordinateur m'averti d'un qualificateur incorrect ... Voici le code que j'ai crée :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 Private Sub CommandButton1_Click()
 
 
Dim i As Integer
Dim nom As String
 
For i = 1 To 5
nom = "Combobox" & i
nom.AddItem "non"
nom.AddItem "oui"
Next
 
End Sub

Avez vous une idée du problème ?

[ChristianBosch]

Salut, les combobox ne sont pas des chaines de caractères mais des objets, vous ne pouvez pas procéder ainsi

Vous allez devoir utiliser une fonction qui boucle sur tous les objets de votre UserForm et identifier l'objet avec son nom.

Ici le code a mettre dans l'USF (j'ai mis userform1)

Code :

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

1
2
3
4
5
6
7
8
9
10
Option Explicit
Private Sub CommandButton1_Click()
Dim i As Integer
For i = 1 To 5
    With ComboboxIncr("combobox" & i, UserForm1)
        .asditem "non"
        .AddItem "oui"
    End With
Next i
End Sub

Et ce code a mettre dans une module standard, la fonction d'incrémentation des combobox :

Code :

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

1
2
3
4
5
6
7
8
9
10
Function ComboboxIncr(CBname As String, USF As UserForm) As MSForms.ComboBox
Dim MyObj As Control
 
For Each MyObj In USF.Controls
    If MyObj.Name = CBname Then
        ComboboxIncr = MyObj
        Exit Function
    End If
Next MyObj
End Function

[CrayonOrdinaire]

Merci pour ta réponse rapide, cependant je ne comprends pas très bien ce qu'un Userform vient faire la dedans (c'est peut être une question bête mais je suis débutant) car mes combobox sont dans une feuille de mon excel.

[ChristianBosch]

ah ce sont des combobox dans des feuilles de calcul ?

Les userform ce sont des fenêtres personnalisées dans lesquelles on peut inclure tout un tas de contrôles différents dont les combobox.

du coup il va falloir nous préciser de quel genre de contrôles il s'agit

[CrayonOrdinaire]

C'est de ma faute, je n'ai pas précisé le contexte. Voici l'extrait de ma feuille de calcul (nommée Feuil1) où sont les combobox :



Les noms de ces combobox sont respectivement ComboBox1, ComboBox 2, ... jusque 6. Je souhaite insérer par exemple "oui" et "non" dans chacune de ces combobox. J'aimerai ne pas à avoir le faire manuellement pour toutes donc j'aimerais utiliser une boucle qui applique la fonction "additem" dans la combox n°i (pour i allant de 1 jusque 6). J'espère que c'est plus clair

[ChristianBosch]

Oui j'ai compris, par contre faut que je me renseigne car je ne sais pas boucler sur des combobox dans les feuilles, il me semble que ce ne sont pas les mêmes type d'objets que dans les UserForm.