Discussion :

[jam92400]

Bonjour,

Je tente desespérement de faire un truc tout bête en VBA Excel:

J'ai crée un formulaire et dans ce formulaire j'ai crée une ComboBox.

Sur la feuille 2 J'ai ajouté les valeurs que je veux charger dans cette combobox de A1 à A16.

J'ai fait donc 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
14
15
 
Private Sub General()
 
Dim Feuil2 As Sheets
 
 
Combo.Clear
 
 For i = 1 To 16
 
 Combo.AddItem Range("Feuil2!A" & i)
 
Next i
 
End Sub

Malheureusement j'ai l'erreur suivant qui apparait: "
"Erreur 1004,
Erreur définie par l'application ou par l'objet"

J'ai pensé qu'il faut peut être declarer la feuille 2 mais meme avec ca ca marche pas

[NEC14]

Bonjour,

Essaies ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Private Sub General()
 
Dim Feuil2 As Sheets
 
 
Combo.Clear
 
 For i = 1 To 16
 
 Combo.AddItem sheets ("Feuil2!").Range("A" & i)
 
Next i
 
End Sub

Cordialement

[jam92400]

Hello Nec!

merci pour ta réponse rapide

je viens d'essayer avec ton code et là j'ai un autre type d'erreur:

"L'indice n'appartient pas à la Selection"

[Antoniom]

Hello,

Avec doublons..

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub UserForm_Initialize()
 
    Dim i As Long
 
    With Sheets("Feuil2")
        For i = 1 To .Range("A65536").End(xlUp).Row
            ComboBox1.AddItem .Cells(i, 1).Value
        Next i
    End With

Ou sans doublons..

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub UserForm_Initialize()
 
    Dim i as Long
 
    With Sheets("Feuil2")
        For i = 1 To .Range("A65536").End(xlUp).Row
            ComboBox1 = .Cells(i, 1)
            If ComboBox1.ListIndex = -1 Then
                ComboBox1.AddItem .Cells(i, 1)
            End If
        Next i
        ComboBox1.Value = ""
    End With
 
End Sub

Cordialement.

EDIT : Désolé Nec on s'est croisé...

[jam92400]

Merci Antonium!

Je viens d'essayer avec le code avec doublons, ca ne marche pas et en faisans du pas à pas il plante à partir de la ligne:

Code :

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

ComboBox1.AddItem .Cells(i, 1).Value

avec l'erreur suivante:

"Erreur d'execution 424
Object Requis"

petite précision , je n'utilise pas de USERFORM, j'ai crée le formulaire directement sur une feuille Excel

[Antoniom]

Re,

1) Click en haut sur Isertion/Nom/Définir.

2) Dans le champs "Noms dans le classeur :" tu mets "Liste".

3) Dans le champs "Fait référence à :" tu mets..

Code :

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

=DECALER(Feuil2!$A$1;;;NBVAL(Feuil2!$A$1:$A$100))

4) Tu valides.

5) En mode création, click-droit sur la ComboBox puis "Propriétés".

6) Dans le champs "ListFillRange" tu mets "Liste".

Et voilà, mais je ne connais pas la méthode sur une feuille pour éviter les doublons... Trier la liste d'abord peut-être.

Bye.

[mercatog]

Si ta combobox est un contrôle ActiveX

Code :

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

Sheets("feuil1").ComboBox1.ListFillRange = "Feuil2!A1:A" & Sheets("feuil2").Cells(Rows.Count, 1).End(xlUp).Row

[jam92400]

Merci Antonium

merci beaucoup! effectivement ta méthode fonctionne nikel.
C'vrai que j'aurai aimé faire ca en code pour voir mais ta méthode est nikel


Mercadoc, j'ai encore testé ta méthode mais j'ai une erreur lors de compilation

peut-être que j'ecris mal, peux tu me mettre ta ligne à l'endroit exact ou je dois le mettre STP ?