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 ?

[AlainTech]

Oui...

Tu ne peux pas ajouter ou supprimer si toute l'alimentation de la liste n'a pas été faite par AddItem.
Autrement dit, si tu charges ta liste par une source, tu ne peux pas la modifier.
Il faut modifier la source et raffraichir la liste.

[jmh51]

Bonjour, et déjà merci pour votre réponse et votre aide...
Je n'osais plus y croire... comme quoi avec patience et courage...
N'ayant pas de réponse, j'ai "contourné" le problème, je ne vais donc pas cliquer sur "résolu"... mais j'ai une autre question...
Est-ce possible d'imprimer un code VBA Excel en couleur ? (j'ai bcp de commentaires...)
Encore et déjà bien merci...
Un humble programmeur débutant (aussi entre Liège et Bruxelles suivant les heures)

[AlainTech]

Comme écrit dans ma signature, quand on trouve une autre solution, il est sympa de dire comment on a fait.

Si tu as une autre question, qui n'a rien à voir avec le titre de la discussion courante, crées-en une nouvelle avec le titre adéquat.

[jmh51]

Tu as tout à fait raison...
Illustration théorique de ce que je voulais faire :
J'ai une listbox de 10 lignes dont je voulais supprimer la 2ème
Au lieu de la supprimer, j'ai rempli ma listbox avec 8 lignes (de 3 à 10) et j'ai rajouté "manuellement" la ligne 1 qui était en fait une ligne d'entête de colonnes.
Voilà....