CathyAstuce

VBA

GEMCCAP CONSEIL INFORMATIQUE BUREAUTIQUE
Formation - Conception Sites Internet
Applications Informatiques Personnalisées
Communauté partenaire Microsoft

EXÉCUTER

  Dans la fenêtre Exécution Une procédure  
  Fenêtre macros
Bouton personnalisé d'une barre d'outils

Menu personnalisé
  Raccourci clavier
Bouton situé sur la feuille

  Une fonction

Remonter I. Dans la fenêtre Exécution

  • Écrivez une ligne de code.
  • Placez le curseur d'insertion (la barre verticale qui clignote) dans la ligne de code.
  • Appuyez sur la touche Entrée.

Si cette ligne de code est un appel à une procédure, vous l'exécutez. Si vous tapez un point d'interrogation suivi d'un appel à une fonction, vous exécutez cette dernière et le résultat est affiché dans la ligne du dessous. Avec les exemples de la feuille Procédures et fonctions, tapez dans cette fenêtre : ?Code_Couleur() puis appuyez sur Entrée. La fenêtre se présente alors ainsi (le chiffre peut-être différent) :
?Code_Couleur()
La couleur de la cellule active est : 6

Remonter II. Une procédure

Pour exécuter une procédure depuis votre classeur, vous pouvez :

Remonter II.1 Fenêtre macros

  • Outils/Macros/Macros,
  • puis sélectionnez la procédure dans la liste
  • et cliquez sur le bouton Exécuter.

Remonter II.2 Bouton personnalisé d'une barre d'outils 

  • Outils/Personnaliser
  • Excel :
    • Onglet Commandes, catégorie Macros, glissez la commande Bouton personnalisé sur une barre d'outils.
    • Clic-droit sur le bouton,
    • Renommez ce bouton, modifiez éventuellement son image,
    • Sélectionnez Affecter une macro.
    • Sélectionnez votre procédure dans la liste.
    • Ok.
    • Fermer.
  • Word :

Remonter II.3 Menu personnalisé

  • Procédez comme ci-dessus, mais pour Excel, glissez la commande Élément de menu personnalisé.

Remonter II.4 Raccourci clavier

  • Excel :
    • Outils/Macros/Macros
    • Sélectionnez la procédure dans la liste
    • Cliquez sur Options.
    • Appuyez sur la lettre qui vous servira de raccourci, associée à Ctrl. Ajoutez éventuellement un commentaire.
  • Word :
    • Outils/Personnaliser.
    • Cliquez sur le bouton Clavier.
    • Dans la liste Catégorie, sélectionnez Macros.
    • Dans la liste des procédures disponibles, sélectionnez la votre.
    • Cliquez dans la zone Nouvelle touche de raccourci.
    • Appuyez sur votre combinaison de touches.
    • Cliquez sur Attribuer.

Remonter II.5 Bouton situé sur la feuille

  • Affichage/Barre d'outils/Formulaires.
  • Cliquez sur le bouton Bouton .
  • Dessinez un rectangle sur la feuille.
  • Sélectionnez votre procédure dans la liste de la fenêtre qui vient de s'ouvrir.
  • Ok.
  • Modifiez l'intitulé du bouton.
  • Lorsque vous voulez modifier le bouton alors qu'il est désélectionné, vous ne pouvez utiliser le clic (cela lance l'exécution de votre procédure), cliquez à droite sur le bouton.

Remonter III. Une fonction

Vous pouvez, bien sûr exécuter une fonction comme une procédure mais à la condition qu'elle n'est besoin d'aucun argument et que vous n'ayez pas besoin de sa valeur de retour.
Dans un classeur Excel, vous utiliserez surtout vos fonctions personnalisés, comme les fonctions d'Excel, dans une formule. Utilisez par exemple, la fonction NoSem qui vous donne le numéro de la semaine selon la norme Européenne (1ère semaine = 1ère semaine de 4 jours) :
  • Écrivez tout d'abord dans un module les lignes suivantes :
    Public Function NoSem(UneDate As Date) As Integer 
       On Error Resume Next 
       NoSem = CInt(Format(UneDate, "ww", vbMonday, vbFirstFourDays))
    End Function

    Cette fonction n'est disponible que lorsque le classeur est ouvert, en conséquence, si vous voulez utiliser cette fonction dans n'importe quel classeur, vous devez l'écrire dans un module du classeur Perso.xls ou tout autre classeur ouvert automatiquement à l'ouverture d'Excel (le classeur doit être dans le dossier C:\Program Files\Microsoft Office\Office\XLStart ou C:\WINDOWS\Application Data\Microsoft\Excel\XLSTART).
  • Sélectionnez la cellule qui doit contenir le numéro de la semaine.
  • Cliquez sur le bouton Coller une fonction , de la barre d'outil Standard.
  • Choisissez la catégorie Personnalisées.
  • Sélectionnez la fonction NoSem, celle-ci peut-être également nommée Classeur.xls!NoSem, où Classeur.xls est le nom du classeur contenant le module où vous avez écrit le code de la fonction.
  • Ok.
  • Sélectionnez la plage contenant la date.
  • Ok.

Comme vous le constatez, cette fonction personnalisée se comporte comme toutes les fonctions d'Excel.

AccueilDébut de la page