Présentation de l'application
Le classeur de base
Dessiner la UserForm
Le bouton Annuler
Initialisation de la UserForm
Le bouton Valider : les boucles Do Until... Loop.
Le bouton Valider : les boucles While... wend.
Le bouton Valider : insérer les informations dans les cellules
Solution
Le bouton Valider : actualisation du compteur
Déclencher la macro
Synthèse des notions étudiées

Les boucles

Le bouton Valider : insérer les informations dans les cellules

Une fois le début de la ligne vierge identifié (grâce aux boucles), il ne reste plus alors qu'à insérer les élements de notre boîte de dialogue.

Vous devriez à présent être en mesure d'écrire vous-même une bonne partie du code, la plupart des lignes qui suivent vous étant déjà connue. Je vous propose donc d'essayer et de traduire en vba les instructions suivantes, présentées en langage naturel (mais si, mais si). Si tel n'est pas le cas, n'hésitez pas à revoir les leçons concernées :

Insérer le n° de course (num) dans la cellule active
Décaler le curseur d'une colonne sur la droite
Insérer la date (Datec) dans la cellule active
Décaler le curseur d'une colonne sur la droite
Insérer l'heure (heurec) dans la cellule active
Décaler le curseur d'une colonne sur la droite
Début du test : contenu de la case Depart
    Si la case depart est activée
       insérer "ma société" (à remplacer par le nom de votre société)
      dans la cellule active
    sinon
       insérer dans la cellule active le nom de la société saisie par        l'opérateur ainsi que le nom de ville
fin du test
Décaler le curseur d'une colonne vers la droite
Teste l'état de la case "Départ"
    Si la case depart n'est pas activée (donc la case arrivée a été cochée)
       insérer "ma société" (à remplacer par le nom de votre société)
      dans la cellule active
    sinon
       insérer dans la cellule active le nom de la société saisie par        l'opérateur ainsi que le nom de ville
Fin du test
Décaler le curseur d'une colonne vers la droite
Début du test pour le type de course normal
     si "normal" coché
       on insère "Normal" dans la cellule active
    dans le cas contraire
       on insère "Exclu" dans la cellule active
Fin du test
Décaler le curseur d'une colonne sur la droite
Insérer le nbre de bons (bons) dans la cellule active

Niveau

Pré-requis :

• Leçons 1 à 6

ActiveCell :
cellule sur laquelle est positionnée le curseur

IsEmpty(nomdecellule) :
teste si une cellule est vide

IsEmpty(nomdecellule) renvoie :
True = vide
False = non vide

Do until condition
action
Loop

While condition
action
Wend