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

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 userform
  • Ajouter une listbox
  • 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’userform
Sub AfficherufDeplacement()
    ufDeplacement.Show
End Sub
Pour marque-pages : Permaliens.

4 réponses à Parcourez rapidement une table

  1. Patrick dit :

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

  2. papoo dit :

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

  3. Gaetan dit :

    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 listbox

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

  4. papoo dit :

    mer­ci

Laisser un commentaire

Votre adresse e-mail 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.