erreur 70 : accés refusé

[Mosar3]

Bonjour,

J'ai un problème, lorsque je lance ma macro, à l'initialisation, un message d'erreur bloque tout, celui de l'intitulé.
Je sais ce problème a été soulevé de nombreuses fois dans ce forums et dans bien d'autres, mais aucune réponses n'a résolue mon problème. Mon code est assez long, je vous passe donc la partie responsable du message d'erreur puisque lorsque je supprime tout le reste, le message persiste.

rivate Sub userform_initialize()
Dim NoDupes As New Collection
Sheets("clients").Activate
Range([C4], [C65536].End(xlUp)).Select
For Each Cell In Selection
If Cell.Value = "" Then
Else
NoDupes.Add Cell
End If
Next Cell
For i = 1 To NoDupes.Count - 1
For j = i + 1 To NoDupes.Count
If NoDupes(i) > NoDupes(j) Then
Swap1 = NoDupes(i)
Swap2 = NoDupes(j)
NoDupes.Add Swap1, before:=j
NoDupes.Add Swap2, before:=i
NoDupes.Remove i + 1
NoDupes.Remove j + 1
End If
Next j
Next i
For Each Item In NoDupes
UserForm1.NomDesClients.AddItem Item
Next Item
Application.Goto Reference:=Range("A1"), Scroll:=True
End sub

Merci beaucoup de vos réponses et à bientôt

 

[Staple1600]

Re : erreur 70 : accés refusé

Bonjour



Private Sub UserForm_Initialize()

A moins que ce soit une erreur de copier coller

 

[Mosar3]

Re : erreur 70 : accés refusé

Bonjour,
Hélas c'est une erreur de frappe, sur mon code le "P" est bien présent...
Tschuss le forum!!

 

[Mosar3]

Re : erreur 70 : accés refusé

Bonjour,
apparement, le bug surviendrai au passage du "next item" à l'avant avant dernière ligne.
Mais je ne sais que faire...HELP!!

Salut le forum!

 

[Mosar3]

Re : erreur 70 : accés refusé

Bonjour,
Ca y est j'ai le bug : J'avai rempli la "row source" de ma combobox "NomDesClients"

Salut le forum!