Probleme sur ComboBOX

Bonjour,

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

Code:

---

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é"

bonjour zeralium le forum 2 methodes a adapter

Code:

---

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:

---

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!!