Comment sélectionner une colonne en fonction de l'en-tête de colonne dans Excel ?

Supposons que vous ayez une grande feuille de calcul contenant plusieurs colonnes, et que vous souhaitiez sélectionner une colonne spécifique en fonction du nom de l'en-tête de colonne. Parcourir les colonnes une par une dans une grande feuille de calcul prendra beaucoup de temps. Dans cet article, je vais vous présenter une méthode rapide pour accomplir cette tâche dans Excel.

Sélectionner une colonne en fonction du nom de l'en-tête de colonne avec un code VBA

Sélectionner une colonne en fonction du nom de l'en-tête de colonne avec un code VBA

Le code VBA suivant peut vous aider à sélectionner les colonnes en fonction d'un nom d'en-tête spécifique, veuillez procéder comme suit :

1. Maintenez les touches ALT + F11 enfoncées pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

2. Cliquez sur Insérer > Module, puis collez le code suivant dans la fenêtre Module.

Code VBA : Sélectionner une colonne en fonction du nom de l'en-tête de colonne :

Sub FindAddressColumn()
'Updateby Extendoffcie
    Dim xRg As Range
    Dim xRgUni As Range
    Dim xFirstAddress As String
    Dim xStr As String
    On Error Resume Next
    xStr = "Name"
    Set xRg = Range("A1:P1").Find(xStr, , xlValues, xlWhole, , , True)
    If Not xRg Is Nothing Then
        xFirstAddress = xRg.Address
        Do
            Set xRg = Range("A1:P1").FindNext(xRg)
            If xRgUni Is Nothing Then
                Set xRgUni = xRg
            Else
                Set xRgUni = Application.Union(xRgUni, xRg)
            End If
        Loop While (Not xRg Is Nothing) And (xRg.Address <> xFirstAddress)
    End If
    xRgUni.EntireColumn.Select
End Sub

Remarque : Dans le code ci-dessus, A1:P1 est la plage d'en-têtes à partir desquels vous souhaitez sélectionner des colonnes, et « Nom » dans le script xStr = "Nom" est le nom de l'en-tête sur lequel vous souhaitez baser la sélection des colonnes. Veuillez les modifier selon vos besoins.

3. Après avoir copié et collé le code, appuyez sur la touche F5 pour exécuter ce code, et toutes les colonnes portant le nom d'en-tête spécifique seront sélectionnées immédiatement, voir capture d'écran :