Page Accueil

* * *

Retour à la FAQ


70

 

TABLEAU DE BORD

Raccourci Formule VBA Divers

 LES RACCOURCIS.

  • Recopie simplifiée

    • Excel nous offre une intéressante possibilité non documentée*
    (*en 96! date à laquelle j'ai envoyé un article concernant cette possibilité à Windows Plus qui la publiée
    dans le numéro 29 de mars 96 dans sa rubrique "Trucs et Astuces".)
    Placez la sélection juste sous la cellule que vous souhaitez dupliquer et taper CTRL + $ (Dollar)
    le contenu de la cellule du dessus apparaît et vous pouvez la modifier directement avec les touches d'éditions avant de valider !!!
    En utilisant ce raccourci et la touche Tab la recopie d'une ou plusieurs lignes d'un tableau à modifier partiellement devient très rapide.
    Fonctionne sur MAC aussi.

     

  • Déplacement du curseur

    • Par défaut le curseur passe à la cellule située en dessous...pour modifier celà
    Menu Outils - Options - Dans la boîte de dialogue: Cliquez sur Modification - Paramètres -
    Option Déplacer la sélection après validation - Dérouler la liste Direction (Sens) - Cochez la valeur désirée.

     

  • Déplacement rapide

    • Pour se déplacer rapidement dans un long tableau:
    Utilisez la souris
    Double-cliquez sur une des bordures de la cellule sélectionnée
    et vous vous déplacerez à la fin du tableau dans le sens de la bordure choisie .

     

  • Formatage rapide

    • Pour appliquer un format à une cellule rapidement utilisez la combinaison de touche:
    CTRL MAJ 1. La boîte de dialogue Format de cellule sera ouverte!!!

     

  • Annuler le formatage

    • Voilà un raccourci que j'utilise souvent et qui est souvent méconnu : Ctrl R
    Il annule tout format numérique et retourne au format numérique Standard.
    Pratique quand on ne veut plus d'une date, ni d'un %, ni de F ou autres dans une plage,
    sans se coltiner la boîte de format de cellule.(Cath)

     

  • Effacer rapidemment une cellule ou une plage à la souris.

    • Sélectionnez une cellule ou une plage - Click gauche dans le coin inférieur droit,
    une petite croix apparaît, maintenez appuyé et sélectionnez la cellule ou la plage en remontant tout devient grisé
    Relachez - C'est effacé !!! .

     

  • Masquer les lignes ou les colonnes

    • Sélectionnez une (ou plus) colonne et appuyer sur les touches: ALT ( . Pour afficher ALT ) .
    Sélectionnez une (ou plus) ligne et appuyer sur les touches: ALT " . Pour afficher ALT _ .

     

  • Insérer des cellules

    • Utilisez la combinaison de touches pour insérer des cellules : CTRL MAJ +
    Utilisez la combinaison de touches pour effacer des cellules : CTRL MAJ - (moins).

     

  • Le retour à la ligne dans une cellule

    • Appuyer sur les touches: ALT ENTREE
    En VBA:
    a)
    Worksheets(1).Cells(1, 1).WrapText = True
    b)
    ActiveCell = "Je passe" & Chr(10) & "à la ligne !"

     

  • Masque et affiche la barre d'outil standard

    • Appuyer sur les touches: CTRL et _

     

  • Les raccourcis de sélections

    • Appuyer sur les touches: SHIFT et ESPACE pour sélectionner la ligne de la cellule active.
    Appuyer sur les touches: CTRL et ESPACE pour sélectionner les colonnes de la cellule active.
    Appuyer sur les touches: CTRL SHIFT et ESPACE pour sélectionner toute la feuille.
    Appuyer sur les touches: SHIFT et BACKSPACE (au dessus de la touche ENTREE)
    pour réduire la sélection à la cellule active.
    Et une dernière ultra-rapide:
    Sélectionner une cellule du tableau en cours, appuyer sur les touches: CTRL et *
    tout le tableau est sélectionné !!!

    Pour sélectionner un grand tableau facilement:
    Sélectionnez la première cellule en haut à gauche
    Appuyez sur la touche F8 (EXT s'affiche en bas)
    Faite défiler le tableau jusqu"en bas
    Et cliquez sur la dernière cellule en bas à droite .
    Tout est sélectionné !!!

     

  • Affecte un raccourci à la touche ECHAP

    • "MaMacro": nom de la macro à exécuter
    Sub Affectation()
    Application.OnKey "{ECHAP}", "MaMacro"
    End Sub

    Rétabli l'usage normal de la touche ECHAP
    Application.OnKey "{ECHAP}", ""

     

 


[top]

 

 LES FORMULES.

 


[top]

 

 VBA.

  • Lancer Visual Basic Editor

    • Pour lancer Visual Basic Editor utiliser la combinaison de touche:
    ALT F11

     

  • Rechercher les 2 premiers caractéres

    • MsgBox (Left$(Range("A1").Value, 2))

     

  • Lance une impression à l'heure donnée

    • Application.OnTime TimeValue("10:25:00"), "LaMacroImprime", , True

     

  • Sélectionne la cellule F1 et "scroll" l'écran

    • Application.GoTo Reference:=ActiveSheet.Range("F1"), Scroll:=True

     

  • Mode Plein Ecran

    • Application.DisplayFullScreen = True
    et retour à Mode normal
    Application.DisplayFullScreen = False

     

  • Comment ne pas imprimer le quadrillage?

    • Worksheets("Feuil1").PageSetup.PrintGridlines = False

     

  • Comment afficher le quadrillage?

    • Worksheets("Feuil1").Activate
    ActiveWindow.DisplayGridlines = Not (ActiveWindow.DisplayGridlines)

     

  • Selectionne la zone en cours

    • ActiveCell.SpecialCells(xlLastCell).Select
    DerCell = ActiveCell.Address
    Range("A1:" & DerCell).Select


    ou bien
    Sélection de la colonne A
    Range("A1", [A1].End(xlDown)).Select


    ou bien
    Sélection de la zone par rapport à une ligne A11 à G11
    Range("A11:G11", [A11:G11].End(xlDown)).Select

    ou bien
    Sélection de la zone par rapport à la cellule active
    Dim Plage As Range
    ActiveCell.Select
    With Selection.CurrentRegion
    Set Plage = .Resize(.Rows.Count, .Columns.Count)
    End With
    Plage.Select

    ou bien, de A1
    Range("A1", Cells.Find("*", , , , , xlPrevious)).Select

    Pour sélectionner la dernière cellule:
    De la colonne A
    [A65536].End(3).Select

    (4 = xlDown)
    (3 = xlUp)
    (2= xlToRight)
    (1= xlToLeft)

    Sélectionne la dernière cellule à l'extrème droite
    [A1].End(xlToRight).Select
    ou
    [A1].End(2).Select

    Sélectionne la dernière cellule en bas à droite de la colonne
    [A65536].End(xlUp).End(xlToRight).Select
    ou
    [A65536].End(3).End(2).Select

    'Sélectionne la dernière cellule en descendant vers le bas de la colonne
    [D14].End(4).Select

    Sélectionne la dernière cellule en montant vers le haut de la colonne
    [D14].End(3).Select

     

  • La date du jour

    • [A1] = "=TODAY()"
    [A1] =[A1] 'ne change pas à chaque ouverture

    [A2].Formula = "=TODAY()" 'change à chaque ouverture

    Une autre méthode:
    Application.SendKeys ("^;{ENTREE}")
    (Equivalent à CTRL ; et Enter)

     

  • Insertion facile d'un logo avec Excel XP

    • Insérer un nouveau bouton dans votre barre d'outils "Perso"
    Clic droit sur le bouton => Affecter un lien hypertexte => Insérer une image
    => Choisissez votre image => OK et Fermer
    Un clic sur le bouton et votre logo est inséré sur la feuille !!!

     

  • Nom de cellule

    • MsgBox ActiveCell.Name 'adresse
    MsgBox ActiveCell.Name.Name 'nom de la cellule

     

  • Ne pas afficher le rafraichissement de l'écran

    • Application.ScreenUpdating = False

     

  • Exécuter une macro à l'ouverture du classeur

    • Méthode 1 :
    La nommer : Auto_Open

    Méthode 2 :
    La placer dans le ThisWorkbook=>Private Sub Workbook_Open()

     

  • Désactive la gestion des événements

    • Application.EnableEvents = False
    Mettre à True pour réactiver

     

  • Comment avoir la date de création du fichier actif ?

    • MsgBox ActiveWorkbook.BuiltinDocumentProperties.Item(11)

    et la date de dernier enregistrement
    MsgBox ActiveWorkbook.BuiltinDocumentProperties.Item(12)

     

  • Division de 2 nombres en un résultat entier

    • Il faut utiliser l'opérateur de division Antislash (\)

    MsgBox 33 \ 2
    Le résultat sera donc 16

    Contrairement à
    MsgBox 33 / 2
    qui donne 16,5

 


[top]

 

 DIVERS.

  • Changer le séparateur décimal

    • Panneau de configuration - Paramètres régionaux - Onglet nombre
    voir séparateur décimal et changer.

     

  • Transposition d'un tableau

    • Ou comment faire pivoter un tableau pour que les lignes deviennent colonnes et inversement
    Sélectionner le tableau - Copier - Dans une zone vierge insérez le tableau en exécutant
    Collage spécial sans oubliez de cocher l'option Transposé.

     

  • Une image d'un tableau avec liaison

    • Sélectionnez votre tableau - Copier le - Sélectionnez une cellule où vous voulez coller l'image de votre tableau
    Appuyez sur la touche Maj, dans le menu Edition - Sélectionnez l'option Coller l'image avec liaison.
    Son contenu sera aussi modifié lorsque vous modifiez le tableau d'origine.
    Trés utile lorsque l'on travaille avec de grandes feuilles de données,
    on conserve ainsi sous les yeux une partie du tableau en travaillant sur une autre.

     

  • Une image dans l'en-tête

    • Sélectionnez la cellule A1 - Cliquer sur Insertion Image - Choisissez l'image que vous voulez
    Ajuster sa taille à la hauteur des lignes - Ensuite Fichier Mise en Page
    Onglet Feuille et dans lignes à répéter en haut saisissez $1:$2.

    Maintenant avec Office XP, l'option "Insérer une image" existe !!!
    dans les options de mise en page (En-tête et pied de page)

     

  • Numérotation des colonnes

    • Pour modifier le système de numérotation des colonnes (par défaut: A à IV au lieu de chiffres):
    Outils - Options - sélectionnez l'onglet Général
    et cochez Style de référence L1C1 dans Paramètres.

     

  • Masquer les onglets

    • Par le menu Outils / Options /Affichage / Décocher Onglets de classeur
    Ou par macro:
    ActiveWindow.DisplayWorkbookTabs = False

     

  • Pas de classeur au démarrage d'excel

    • Il faut ajouter /e à la fin de la ligne de commande, par exemple avec XP:
    Un click droit sur ton raccourci, Propriétés, Raccourci et Cible
    "C:\Program Files\Microsoft Office\Office10\EXCEL.EXE" /e

     

  • Plus d'annulations (CTRL + Z)

    • Il faut ajouter cette clef dans la base de registre: UndoHistory
    Menu EDITION/NOUVEAU/VALEUR/DWORD
    dans : HKEY_CURRENT_USER\Software\Microsoft\Office\10.0\Excel\Options
    Un double-clique sur la clef ouvre une fenêtre. Cocher "Décimale" et saisissez 100 (pour 100 annulations -MAX)dans le champ Données. Validez par OK.

     

  • Dossier personnel au démarrage d'excel

    • Modifier la ligne de commande du raccourci ainsi:
    "C:\Program Files\Microsoft Office\Office10\EXCEL.EXE" /e /p c:\ajeter

 

[top]

Rédacteur

Daniel Josserand   spamdj.joss@free.fr ----enlever spam
     
Modifié 17/06/13 01:19
 ©Conception & Graphisme. Daniel Josserand . Novembre 2000