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

04-Mai-2005

 

 

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

Déclencher la macro

Pour déclencher cette macro, nous allons opter pour le double-clic dans une cellule quelconque de notre classeur.

Ce choix doit nous permettre d'éviter d'avoir à refermer et à ré-ouvrir notre classeur pour saisir des courses, comme ce serait le cas avec une classique macro Open.

Nous pouvons ainsi laisser ce document ouvert -si nous le souhaitons- et y ajouter rapidement de nouvelles courses.

Pour créer la macro liée au double-clic :

  • dans l'explorateur de projets, sélectionnez ThisWorkbook

  • dans la zone de code et dans la première liste déroulante, sélectionnez Workbook

  • dans la seconde liste déroulante enfin, sélectionnez SheetBeforeDoubleClick

  • insérez ensuite l'instruction permettant de charger la feuille : UserForm1.Show

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, cancel As Boolean)
UserForm1.Show
End Sub

Votre macro est à présent totalement achevée !

 

 

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