|
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 : les boucles - While... wend
Dans la première partie des boucles, nous avons étudié
l'instruction Do Until... Loop (faire
jusqu'à ce que... recommencer).
Nous serions parvenu à un résultat similaire avec
la syntaxe Tant que... Fin de tant que (While...
wend).
While IsEmpty(ActiveCell)=false
ActiveCell.Offset(1, 0).Activate
Wend
qui pourrait se traduire par
Tant que la celluleactive n'est pas vide (paramètre
false)
Descend d'une ligne (mais reste dans la même
colonne)
Fin de la condition
Choisissez l'un ou l'autre de ces deux syntaxes en fonction de
vos préférences. Pour ma part, j'opte souvent pour
cette seconde formulation, plus proche du langage naturel.
Voyons à présent comment insérer les informations
dans les cellules de notre tableau.
|
Niveau
Pré-requis :
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
|