Discussion :

[zeralium]

Bonjour,

J'ai un petit souci sur un ComboBox, voici mon code que j'ai recuperé sur le tutoriel du site:

Code :

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

1
2
3
4
5
6
7
8
9
Dim j As Integer
 
'Récupère les données de la colonne A...
For j = 3 To Sheets("TAMPON").Range("AX65536").End(xlUp).Row
    SUP_BOUCLE.ComboBox1 = Sheets("TAMPON").Range("AX" & j)
    '...et filtre les doublons
    If SUP_BOUCLE.ComboBox1.ListIndex = -1 Then SUP_BOUCLE.ComboBox1.AddItem Sheets("TAMPON").Range("A" & j)
 
Next j

Mon soucis est que lors de l'execution du code j'ai une erreur 70 "Accés refusé"

[laetitia]

bonjour zeralium le forum 2 methodes a adapter

Code :

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

1
2
3
4
5
Dim c As Range
For Each c In Sheets("TAMPON").Range("Ax3:ax" & Range("Ax65536").End(xlUp).Row)
cbx1 = c
If ComboBox1.List = -1 And ComboBox1.List <> "" Then ComboBox1.List.AddItem c
Next c

ou

Code :

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

1
2
3
4
5
6
Dim c As Variant, m As Object
Set m = CreateObject("Scripting.Dictionary")
For Each c In Sheets("TAMPON").Range("Ax3:ax" & Range("Ax65536").End(xlUp).Row)
If Not m.Exists(c.Value) And c <> "" Then m.Add c.Value, c.Value
Next c
ComboBox1.List = m.items

ps en bossant sur un autre post avec le meme pb...
j'ai rajoute On Error Resume Next en debut de code
peut etre la solution!! le mieux c'est traiter l'erreur avec
On Error GoTo 0 fait une recherche sur le traitement des erreurs tres interessant!!