Macro qui sélectionne des colonnes spécifiques

Version imprimable

12/04/2013, 10h01
nyto35

Macro qui sélectionne des colonnes spécifiques

Bonjour à tous,

Dans le cadre d'une mission de mon stage, je suis amené à utiliser des macros pour automatiser la gestion et le suivi de rentes.

Dans un fichier Excel, je dispose de multiples colonnes dont la majorité ne sont pas utiles pour la suite de l'étude. Je souhaite utiliser une macro qui sélectionne les colonnes que je souhaite garder et qui les copie dans une autre feuille de calcul. Sachant que ma sélection se fait sur le nom des colonnes et non sur le n° des colonnes, je suis dans une impasse.

Pour vous donnez un exemple simple et concret, voici le fichier suivant:
Pièce jointe 115746

Dans cet exemple, je souhaite garder la colonne "Couleur" et la copier dans la feuille de calcul "Feuil2".

Cordialement.
12/04/2013, 12h47
Guiiand

Bonjour,

je ne télécharge pas les PJ, donc je ne sais pas si cela correspond exactement, mais tu devrais aller faire un tour sur le tres bon tuto de Philippe Thulliez sur les filtres élaborés, qui vu ton probleme, devraient répondre à tes attentes

Salut

Voila un ptit code j'espère qu'il t'aidera ;) !

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Sub test()
Dim Plage As Range
Dim myArray As Variant
 
With Selection
DéfautSelect = Selection.Address
End With
On Error Resume Next
Set Plage = Application.InputBox("Sélectionnez une plage !" & Chr(10) & _
"Ou sélection actuelle (Défaut) ?", "Inversion itinéraire", DéfautSelect, Left:=10, Top:=100, Type:=8)
 
If Err.Number <> 0 Then
 Plage = myArray
 
End If
Plage.Delete Shift:=xlToLeft
On Error GoTo 0
 
 
 
End Sub

Cdt

Tiviia :ccool: