Discussion :

[yobor]

Bonjour les amis ,
J'ai un problème en VBA, j'ai besoin de remplir un combobox à partir des données Uniques et triées d'une colonne, cette colonne contienne des valeurs numérique et des valeurs (texte) , après une petite recherche, j'ai trouvé un code VBA, mais je n'ai pas réussi à l'adapter à ma situation, à chaque fois que j'exécute, il m'affiche une erreur "incompatibilité du type" au niveau de l'instruction,voici mon code :

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
16
17
 
   Dim Tablo
   Dim AL As Object
   Dim i As Long
 
   'Met les noms en mémoire dans un tableau
   Tablo = Worksheets("Curve").Cells(3).CurrentRegion.Columns(28).Value
 
   'Crée un objet de type ArrayList
   Set AL = CreateObject("System.Collections.ArrayList")
   With AL
      For i = 2 To UBound(Tablo, 1)
         If Not .contains(Tablo(i, 1)) Then .Add Tablo(i, 1) 'ajout au ArrayList
      Next i
      .Sort    'Tri alphabétique
      Me.ComboBox1.List = .toarray 'envoie la liste dans le combobox
   End With

Alors que j'ai besoin de remplir le ComboBox1 à partir de la colonne 28 dans une feuille Worksheets("Curve") ,le nom de la colonne se trouve dans Cells(3,28) et les valeurs commence à partir de Cells(4,28) .
Merci d'avance.

[patricktoulon]

bonjour
je comprends pas bien ceci

Code :

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

 Tablo = Worksheets("Curve").Cells(3).CurrentRegion.Columns(28).Value

tu veux que la colonne 28 et a partir de la ligne 2 c'est ca ?

[patricktoulon]

la syntaxe!!!! "toarray()"

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub test()
    Dim Tablo, AL As Object, i#
    'Met les noms en mémoire dans un tableau
    Tablo = Worksheets("Curve").Cells(1, 28).CurrentRegion.Columns(28).Value
    'Crée un objet de type ArrayList
    With CreateObject("System.Collections.ArrayList")
        For i = 2 To UBound(Tablo, 1)
            If Not .contains(Tablo(i, 1)) Then .Add Tablo(i, 1)    'ajout au ArrayList
        Next i
        .Sort    'Tri alphabétique
        'MsgBox Join(.toarray(), vbCrLf)'pour tester si on obtient la liste
        Me.ComboBox1.List = .toarray()    'envoie la liste dans le combobox
    End With
End Sub

attention "Me" représente le parent de la combobox
donc soit c'est dans un userform et le code doit être dans le module du userform
soit la combo est dans un sheets alors le code doit être dans le module du sheets
sinon préciser le nom du parent a la place de "Me"

[yobor]

Merci Patricktoulon ,le probleme de "incompatibilité du type" est résolu et aussi j'ai fais l'erreur que vous avez indiqué ,au lieu de Userform2 dans lequel existe le combobox ,j'ai fais "Me" .
Merci Beaucoup .