Discussion :

[clodius]

Bonjour,

Je cherche à créer un tableau nouveau en prenant une colonne sur 2 d'un tableau existant sur une autre feuille. Comment faire automatiquemnt ?

[Gorfael]

Bonjour,

Je cherche à créer un tableau nouveau en prenant une colonne sur 2 d'un tableau existant sur une autre feuille. Comment faire automatiquemnt ?

Salut
en admettant que la nouvelle feuille soit N_F

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Dim X As Integer
UsedRange.Copy Sheets("N_F").Range("A1")
With Sheets("N_F")
    For X = .UsedRange.SpecialCells(xlCellTypeLastCell).Column To 1 Step -1
        If Int(X / 2) = X / 2 Then .Columns(X).Delete
    Next X
End With

on copie la feuille, et on supprime les colonnes paires (à mettre dans une macro et à adapter, oeuf corse)

A+

[clodius]

Merci beaucoup. je vais tester.

[marc56]

Sur ta feuille 2 cellule A1 tu rentres :
=Feuil1!A1 (en cliquant sur la cellule source)
en cellule B1 tu rentres :
=Feuil1!C1 (idem)
et ainsi de suite. Une fois que toutes les premières cellules des colonnes qui t'intéressent sont rentrées, tu sélectionnes toutes ces cellules de ta feuille 2 et tu les tires vers le bas.

[random]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
INDIRECT(ADRESSE(LIGNE();COLONNE()*2-1;4;1;"feuil1"))