Discussion :

[jmh51]

Bonjour à tous,
J'ai une listbox (alimentée par unesheet excel) dans laquelle je veux faire un removeitem d'une ligne bien définie.
Mais j'ai le message d'erreur suivant : permission denied
Même problème pour faire un additem
Quelqu'un pourrait-il m'aider SVP ?...
Merci beaucoup

[Invité]

Bonjour

Avec le code ce serait mieux

Starec

[jmh51]

Bonjour,
Et déjà merci pour l'aide...

Voici le 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
Public Sub CommandButton8_Click() ' visualiser le métré
 
ListBox2.ColumnCount = 9
ListBox2.ColumnWidths = "0.5 cm;0.5 cm;0.5 cm;0.8 cm;1 cm;16 cm;1 cm;0.8 cm;0.8 cm"
i = 2
Do While Worksheets("metre").Cells(i, 7) <> ""
i = i + 1
Loop
nbreligne = i - 1
txtm = "metre!b4:j" & nbreligne
ListBox2.RowSource = txtm
'If ListBox2.ListIndex = -1 Then
'            ListBox2.ListIndex = 1
'End If
ListBox2.AddItem "N° de code", 0

Dans ce cas-ci, c'est le Additem qui ne fonctionne pas....

Bon courage et déjà merci...

[Invité]

Re

C'est ta syntaxe qui ne va pas

Code :

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

1
2
 
ListBox2.AddItem "N° de code", 0

Que veux-tu rajouter à ta liste ? Si c'est "N° de Code", que vient faire le ,0 ?

Starec

[jmh51]

Comme je n'arrive pas à supprimer une ligne dans ma listbox, je ne l'alimente pas complètement et rajoute une ligne tout en haut, c'est-à-dire à la ligne 0.
Mais que ce soit la 0, la 1, la 10, etc..., le message d'erreur est toujours le même : runtime error '70' - permission denied.

[jmh51]

est-ce que vous trouvez le problème ?