Bonjour,

j'ai une erreur sur un additem que je n'arrive pas à résoudre.

Voici déjà le code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
If variable.Cells(1, 11) = 0 Then
    defdetfac.designation.AddItem (newligne.designation.Value)
    defdetfac.cout.AddItem (newligne.cout.Value)
    defdetfac.nl.AddItem (defdetfac.designation.ListCount)
    defdetfac.qte.AddItem (newligne.qte.Value)
    defdetfac.ListBoxcouttotal.AddItem (newligne.cout.Value * newligne.qte.Value)
Else
    defdetfac.designation.RemoveItem (variable.Cells(1, 11))
    truc = defdetfac.designation.AddItem(newligne.designation.Value, variable.Cells(1, 11))
L'erreur "fonction ou variable attendu" se produit sur la dernière ligne.
Ce qui est bizarre vu que variable.cells(1,11) = 0, donc VBA ne devrait pas passer par là , mais bon passons pour le moment sur ce détail.

J'ai essayer de l'écrire comme je le fait d'habitude quand je n'ai pas de listindex à préciser :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
defdetfac.designation.AddItem(newligne.designation.Value, variable.Cells(1, 11))
mais cette ligne se met en rouge, et en regardant dans l'aide la syntaxe j'ai rajouté "truc =". (d'ailleurs l'aide ne dit pas ce que renvoi additem ?)

pouvez-vous m'aider ??