Colonnes non contigues

Bonjour à tous, tous les jours je reçois un tableau d'environ 200 colonnes et je ne suis intéressé que par 8 d'entr'elles, j'avais fait une macro par la fonction enregistrer mais malheureusement je me suis rendu compte au bout d'une semaine que la position des colonnes variaient. je cherche donc maintenant à faire une macro en sélectionnant les colonnes par leur entête, je sais sélectionner une colonne par son entête mais je n'arrive pas à selectionner 8 colonnes pour les copier dans une autre feuille. j'ai essayé également de donner un nom à chaque colonne qui m'intéresse mais pareil je n'arrive qu'à en sélectionner une seule et pas les 8. quelqu'un peut-il m'aider?

merci d'avance.

bonjour Valerian,

Je ne suis pas sur d'avoir très bien compris, mais avec "union".

Amicalement

merci pour le fichier mais il permet de sélectionner une plage de colonnes contiguës et mes 8 colonnes sont éparpillées dans mon fichier.

-- 02 Déc 2010, 18:45 --

haonv a écrit :

bonjour Valerian,

Je ne suis pas sur d'avoir très bien compris, mais avec "union".

Amicalement

bonsoir, j'ai essayé avec la commande union mais c'est plutôt moi qui n'est pas compris comment m'en servir, j'ai nommé chaque colonne qui m'intéressait et j'essaye d'utiliser les noms dans la commande union maisça ne marche pas, certainement un pb de syntaxe.

je viens de trouver ce bout de code, je vais l'essayer demain au bureau:

je peux retrouver mes colonnes en recherchant chaque nom des entete puis les nommer:

Col = ActiveCell.Column

puis utiliser ce code:

Sub SelectionDeuxColonnesNonContigues()

' Soit les colonnes A (1) et D (4) à sélectionner

NCol1 = 1

NCol2 = 4

Union(Cells(1, NCol1), Cells(1, NCol2)).EntireColumn.Select

End Sub

Bonsoir à tous,

Essaye comme ceci

Sub AfficheColonnes()
'Macro par Claude Dubois pour "valerian34" Excel-Pratique le 02/12/10
Dim Lg%, cL%, i%, Nc%
    Application.ScreenUpdating = False
    Lg = Range("a65536").End(xlUp).Row

    With Sheets("Feuil1")
            cL = .Cells(1, 255).End(xlToLeft).Column
            Range(.Cells(1, 1), .Cells(1, cL)).EntireColumn.Hidden = True
        For i = 1 To Lg
            If Cells(i, "b") <> "" Then
                Nc = WorksheetFunction.Match(Cells(i, "a"), .Rows(1), 0)
                .Columns(Nc).Hidden = False
            End If
        Next i
                .Activate
    End With
End Sub

Amicalement

Claude

excellent travail !!! ça marche parfaitement, je peux continuer mon traitement avec ce choix de 8 colonnes, merci pour votre aide.

Bonsoir,