Parcourez rapidement une table

Une des frus­tra­tions lorsque l’on tra­vaille sur une table avec de nom­breuses colonnes, est de pou­voir rapi­de­ment se déplac­er d’une colonne à une autre.

Voici un petit code qui va pren­dre deux min­utes à installer et qui peut vous ren­dre de grands ser­vices.

Vous pou­vez télécharg­er ici le fichi­er.

Voici la procé­dure en vidéo :

Procé­dure détail­l­lée

  • Ouvrez le fichi­er excel (sauve­g­ardé en .xlsm pour avoir les macros)
  • Ajoutez un user­form
  • Ajouter une list­box
  • Dans la fenêtre pro­priété (touche F4), renom­mez l’user­form (ufDe­place­ment) et la list­box (List­Box­Colonnes)
  • Clic droit sur l’user­form pour accéder au code
  • Collez le code ci-dessous :
Option Explicit

Private Sub ListBoxColonnes_Click()
    Application.Goto Cells(ActiveCell.Row, _
        ActiveSheet.ListObjects("Tableau1").HeaderRowRange.Column + _
        Me.ListBoxColonnes.ListIndex), True
End Sub

Private Sub UserForm_Initialize()
Me.ListBoxColonnes.List = _
    Application.WorksheetFunction.Transpose( _
        ActiveSheet.ListObjects("Tableau1").HeaderRowRange)
End Sub
  • Finale­ment, insérez un nou­veau mod­ule et collez le code suiv­ant pour lancer l’user­form
Sub AfficherufDeplacement()
    ufDeplacement.Show
End Sub
En cadeau de bien­v­enue : les 7 com­bi­naisons de touch­es indis­pens­ables sur Excel
Pour marque-pages : permalien.

4 réactions à Parcourez rapidement une table

  1. Patrick a écrit:

    Bon­jour Gae­tan : Pour com­mencer recevez tous mes meilleurs vœux de bon­heur san­té et prospérité pour cette nou­velle année 2020.
    Un grand mer­ci pour cette for­ma­tion super pra­tique sim­ple mais effi­cace.

  2. papoo a écrit:

    Bon­jour
    mer­ci pour ce tuto­riel fort sim­ple et très pra­tique
    est il pos­si­ble de faire la même chose pour une nav­i­ga­tion dans les onglets?

  3. Gaetan a écrit:

    Oui, il faut par­courir toutes les feuilles avec un
    for each wks in thisworkbook.worksheets

    utilis­er le listbox1.additem wks.name pour ajouter les feuilles à la list­box

    J’en ai fait une vidéo com­plète dans ce cours 🙂
    http://www.xlerateur.com/collection-vba-avance-volume‑2/

  4. papoo a écrit:

    mer­ci

Laisser un commentaire

Votre adresse de messagerie ne sera pas publiée. Les champs obligatoires sont indiqués avec *

Ce site utilise Akismet pour réduire les indésirables. En savoir plus sur comment les données de vos commentaires sont utilisées.