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 - SOLUTION

Voici la solution complète à l'exercice précédent :

ActiveCell = num
Insérer le n° de course (num) dans la cellule active
ActiveCell.Offset(0, 1).Activate
Décaler le curseur d'une colonne sur la droite
ActiveCell = Datec
Insérer la date (Datec) dans la cellule active
ActiveCell.Offset(0, 1).Activate
Décaler le curseur d'une colonne sur la droite
ActiveCell = heurec
Insérer l'heure (heurec) dans la cellule active
ActiveCell.Offset(0, 1).Activate
Décaler le curseur d'une colonne sur la droite
Select Case depart
    Case True
    Si la case depart est activée
       ActiveCell = "ma société"
       insérer "ma société" (à remplacer par le nom de votre société)
      dans la cellule active
    Case Else
    sinon
       ActiveCell = societe & " - " & ville
       insérer dans la cellule active le nom de la société saisie par        l'opérateur ainsi que le nom de ville
End Select
fin du test des conditions
ActiveCell.Offset(0, 1).Activate
Décaler le curseur d'une colonne vers la droite
Select Case depart
Teste si l'état de la case "Départ"
    Case False
    Si la case depart n'est pas activée (donc la case arrivée a été cochée)
       ActiveCell = "ma société"
       insérer "ma société" (à remplacer par le nom de votre société)
      dans la cellule active
    Case Else
    sinon
       ActiveCell = societe & " - " & ville
       insérer dans la cellule active le nom de la société saisie par        l'opérateur ainsi que le nom de ville
End Select
Fin du test
ActiveCell.Offset(0, 1).Activate
Décaler le curseur d'une colonne vers la droite
Select Case normal
vérifie si la case coursier normal est cochée
     Case True
     si oui
       ActiveCell = "Normal"
       on insère "Normal" dans la cellule active
    Case Else
    dans le cas contraire
       ActiveCell = "Exclu"
       on insère "Exclu" dans la cellule active
End Select
Fin du test
ActiveCell.Offset(0, 1).Activate
Décaler le curseur d'une colonne sur la droite
ActiveCell = bons
Insérer le nombre de bons (bons) dans la cellule active

Vous pensiez notre code achevé ? Et bien, pas tout à fait : il nous reste à actualiser notre compteur, vous savez celui qui numérote nos courses...

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