Tri sur les colonnes en Excel

Bonjour,

J'aimerais reprendre dans Feuille 2, une colonne sur deux de la feuille "données".

Je vois pour cela deux manières de faire (ce serait bien si vous saviez me dire comment ces deux méthodes pourraient fonctionner ?)

• Soit il existe une option en Excel facile qui permet de reprendre 1 colonne sur 2 ? Exemple juste les colonnes paires. -> option pour faire disparaître une colonne sur deux existe-elle ?
• soit dire que dès que le titre de la colonne se termine par "h" dans mon cas, je recopie le contenu, sinon je ne prends pas le contenu.

Le fichier se trouve en pièce jointe.

Bonjour,

une solution avec le code suivant:

Sub Macro1()

' Macro1 copier coller une colonne sur 2 de 2 à 10.

Dim i As Integer
Dim j As Integer
For i = 2 To 10
For j = 1 To 5
    Sheets("Données").Columns(i).Copy
    Sheets("Feuil2").Columns(j).Select
    ActiveSheet.Paste
    i = i + 2
    Next
    Next
End Sub

Cordialement.

Bonjour

Sub Macro1()

Dim i As Integer
Dim j As Integer
dc=sheets("données").cells(1,columns.count).end(xltoleft).column
For j = 1 To int(dc/2)
    i=j*2
    Sheets("Données").Columns(i).Copy    Sheets("Feuil2").Columns(j)
    Next
End Sub

Et sans macros, ca donne quoi ?

Comment écrire que je recopie dans feuille 2 uniquement si la fin du titre de la colonne se termine par "h" dans la feuille donnée?

En fait ce que je voudrais faire rapidement, c'est récupérer tous les noms se terminant par "h" dans une autre feuille.

bonjour,

une solution via une macro qui recopie les colonnes dont le libellé se termine par h

Sub Macro1()

Dim i As Integer
Dim j As Integer
with sheets("données")
dc=.cells(1,columns.count).end(xltoleft).column
For i = 1 To dc
     if right(.cells(1,i))="h" then
       j=j+1
      .Columns(i).Copy    Sheets("Feuil2").Columns(j)
     end if
    Next
End Sub

Ah oui ca marche bien.

Mais sans macros, une solution ?

Parce que le fichier Excel sera exporté sans macros, et attaché à un compteur sur un serveur où les macros ne sont

pas prises en compte.

bonsoir,

une solution sans macro basée sur la copie d'une colonne sur 2

à copier sur feuil2 en A1 et tirer vers la droite et vers le bas

=DECALER(données!$A1;0;COLONNE()*2-1;1;1)