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 ?
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_Fon copie la feuille, et on supprime les colonnes paires (à mettre dans une macro et à adapter, oeuf corse)
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
A+
Merci beaucoup. je vais tester.
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.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 INDIRECT(ADRESSE(LIGNE();COLONNE()*2-1;4;1;"feuil1"))
Partager