Bonjour a tous,
Voici mon problème:
Comme vous pouvez le constater dans ma pièce jointe, j'ai une base de donnée avec des catégories qui, elles-mêmes, peuvent contenir plusieurs sous-catégories.
Un ordre (position) est alloué a certaines catégories. J'affiche donc dans mon userform, a l'aide du bouton afficher listbox, toutes les catégories, et leurs sous-catégories, qui ont une position.
J'ai réussi, non sans encombre, a passer ce premier obstacle.
La 2e étape est de trier les données de la listbox dans l'ordre des positions. Je veux en 1er la catégorie qui a la position 1 avec toutes ses sous-catégories, puis en 2nd la catégorie qui a la position 2 avec toutes ses sous-catégories, ...
Le problème c'est que je n'arrive pas a gérer les différentes colonnes de ma listbox. Lorsque je copie/colle une ligne pour la glisser au bon endroit, je n'arrive pas a déplacer toute la ligne, mais seulement la première colonne.
Le problème vient des lignes suivantes :
Quelqu'un aurait-il une idée pour me débloquer??
Merci d'avance pour votre aide
Sam
Voici mon problème:
Comme vous pouvez le constater dans ma pièce jointe, j'ai une base de donnée avec des catégories qui, elles-mêmes, peuvent contenir plusieurs sous-catégories.
Un ordre (position) est alloué a certaines catégories. J'affiche donc dans mon userform, a l'aide du bouton afficher listbox, toutes les catégories, et leurs sous-catégories, qui ont une position.
J'ai réussi, non sans encombre, a passer ce premier obstacle.
La 2e étape est de trier les données de la listbox dans l'ordre des positions. Je veux en 1er la catégorie qui a la position 1 avec toutes ses sous-catégories, puis en 2nd la catégorie qui a la position 2 avec toutes ses sous-catégories, ...
Le problème c'est que je n'arrive pas a gérer les différentes colonnes de ma listbox. Lorsque je copie/colle une ligne pour la glisser au bon endroit, je n'arrive pas a déplacer toute la ligne, mais seulement la première colonne.
Le problème vient des lignes suivantes :
Code:
Value = UserForm_Checklist_display.ListBox_Checklist.List(Checks_db_row)
UserForm_Checklist_display.ListBox_Checklist.RemoveItem Checks_db_row
UserForm_Checklist_display.ListBox_Checklist.AddItem Value, 1
Quelqu'un aurait-il une idée pour me débloquer??
Merci d'avance pour votre aide
Sam