Userform
Pour chaque Boîte de dialogue :
Réalisez la userform
Créez une sous-routine d'ouverture dans un module Boites
Ajoutez un bouton sur la feuille liste qui permet d'ouvrir la boite.
Question
Ajoute une ligne au tableau de la feuille liste.
Indice
Au clique sur Ajouter :
compter le nombre de ligne
augmenter l’auto-incrément
remplir une nouvelle ligne
Question
Modifie une ligne du tableau de la feuille liste.
Indice
A l'activation :
vider la liste
compter le nombre de lignes
remplir la liste
sélectionner le premier élément de la liste
Au clique su la liste :
remplir le formulaire avec les valeurs de la ligne du tableau
retirer la couleur de fond du tableau
mettre une couleur de fond à la ligne du tableau correspondant à l'élément sélectionné
Au clique su Modifier :
Modifier la ligne du tableau avec les valeurs du formulaire
Question
Supprime une ligne du tableau de la feuille liste.
Indice
A l'activation :
vider la liste
compter le nombre de lignes
remplir la liste
sélectionner le premier élément de la liste
Au double-clique su la liste :
supprimer la ligne du tableau
supprimer la ligne de la liste
Question
Déplace une ligne de la feuille liste.
Indice
A l'activation :
vider la liste
compter le nombre de lignes
remplir la liste
sélectionner le premier élément de la liste
initialiser la toupie à 0
mettre le max de la toupie à 0
mettre le min de la toupie au nombre de lignes
l'inversion du min et max permet d'inverser le sens de la toupie
Au changement de la toupie :
Échanger les lignes du tableau d'index : liste.ListIndex et toupie.value
Échanger les valeurs de la liste d'index : liste.ListIndex et toupie.value
liste.ListIndex = toupie.value
retirer la couleur de fond du tableau
mettre une couleur de fond à la ligne du tableau correspondant à l'élément sélectionné
Au MouseUp sur la liste :
toupie.value = liste.ListIndex