Bonjour à tous, mon problème est simple:
Pour renseigner une case commentaire j'utilise deux listbox, une listbox2 qui a différentes listes de produits, en double cliquant dessus ils s'ajoutent à la première ! En double cliquant sur les items de cette première je peux les supprimer! Cette listbox1 elle même est liée a un bouton mettant à jour la case commentaire vie ce bout de code:
Private Sub CommandButton1_Click() '"-"
' Met à jour la case commentaire correspondante
ActiveSheet.Range("X" & ActiveCell.Row) = Join(Application.Transpose(ListBox1.List), ",")
End Sub
Mais voila tout se passe bien jusqu’à ce que je supprime le dernier élément de ma listbox, au click sur commandbutton1 une erreur de type 13 s'affiche alors, j'en déduis que VBA de ne peut transposer "rien" j'imagine qu'il s'agit d'une simple déclaration de variable mais je n'en ai aucune idée.
Quelqu'un aurait il une explication et une solution s'il vous plait?Merci d'avance à qui voudra prendre le temps de se pencher sur mon probleme.