Domaines
RH
Juridique
Compta
Administratif/Moyens Généraux
Communication
Bureautique
Conseils aux débutants
Word
Excel
PowerPoint
Outlook
Access
Publisher

PagePlus (PAO)

Windows/système
PhotoImpact
Conception web : les bases
Applications pas à pas
Tests logiciels
Macros VBA
Leçons
Macros Word
Astuces
Orthographe
Rédaction
Organisation
Produits/services malins
Outils
Ouvrages
Modèles
Macros
Liens
Anglais
Grammaire avec AnglaisFacile
Leçon gratuite avec AnglaisFacile
Carrière
Gestion de carrière
Fiches métier
Témoignages / vécu
Offres d'emploi

Evénements métier
Echos de presse, comptes-rendus

Echanger

Forums
Chater en direct

© Nadège Guilbert
Le contenu de ce site
est régulièrement déposé auprès de la SGDL
Reproduction interdite
sans le consentement
écrit de l'auteur



Imprimer la page

Macros / VBA > Index

14-Oct-2006

 

 

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

Continuer...

 

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