Discussion :

[paflolo]

Bonjour,
J'aimerais copier des colonnes suivant leur nom dans une autre feuille Excel.
Exemple:
Nom | Prénom | Age | Ville
Robert | Luis | 45 | Chalons
Villenave | Thierry | 34 | Tours
Babel | Alexis | 26 | Chartres

Je n'aimerais copier que les colonnes Nom et Ville par exemple, et les coller sur la Feuil2, respectivement en colonne A et B simplement.
J'arrive à trouver les colonnes désirées et à inscrire le numéro de la colonne (1,2,3 etc) mais comment faire pour sélectionner la colonne jusqu'à la dernière valeur non vide et la copier pour la coller dans Feuil2??
Mon code:

Code :

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

1
2
3
4
5
6
7
8
9
Sub Macro1()
 
    Cells.Find(What:="Product Type", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False).Activate
    Num_Col = ActiveCell.Column
 
    Columns(Num_Col).Select
End Sub

Merci du coup de pouce par avance!

[ouskel'n'or]

Tu as la réponse là http://www.developpez.net/forums/sho...d.php?t=223878
Jète un oeil
Tu dis

Edit
Un truc qui peut t'aider

Code :

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

1
2
3
4
5
    DernièreLigne = Range("A65535").End(xlUp).Row
    DernièreLigne = Range("A1").End(xlDown).Row
    DernièreLigne = Range("A1").SpecialCells(xlCellTypeLastCell).Row
    DernièreColonne = Range("A1").End(xlToRight).Column
    DernièreColonne = Range("A1").SpecialCells(xlCellTypeLastCell).Column

[paflolo]

J'y suis presque mais pas complétement!!!
J'arrive à récupérer le numéro de ligne vide!
J'arrive à copier la colonne qui porte le titre souhaité (ici Nom).
Mais je n'arrive pas à faire les deux à la fois....

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub Macro1()
Dim f5 As Worksheet
Dim f6 As Worksheet
Set f5 = Feuil4 ' Feuille de données
Set f6 = Feuil6 ' Feuille de données
Dim lignevidecopy As Long
 
lignevidecopy = f5.Range("F:F").End(xlDown).Row + 1
 
    Cells.Find(What:="Nom", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False).Activate
 
    Num_Col = ActiveCell.Column
 
    f5.Columns(Num_Col).Copy
 
    'f5.Columns.Range("Num_Col:Num_Col" & lignevidecopy - 1).Copy
 
    f6.Select
    Range("A1").Select
    ActiveSheet.Paste
End Sub

[SfJ5Rpw8]

code modifié

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
 
Sub Macro1()
Dim f5 As Worksheet
Dim f6 As Worksheet
Set f5 = Feuil1 ' Feuille de données
Set f6 = Feuil2 ' Feuille de données
Dim c As Range 'Colonne cellule ) copier
Dim lignevidecopy As Long
Set c = f5.Cells.Find(What:="Nom", After:=f5.Range("A1"), LookIn:=xlFormulas, _
        LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False)
  If c Is Nothing Then
    MsgBox "Nom Introuvable ", vbCritical
    Exit Sub
  End If
    c.Select
    lignevidecopy = c.End(xlDown).Row ' derniére cellule ocuppée dans colonne nom..
    f5.Range(f5.Cells(1, c.Column), f5.Cells(lignevidecopy, c.Column + 1)).Copy f6.Range("A1")
 
End Sub

[paflolo]

Merci de ton aide, çà fonctionne!
J'ai réussi à faire ma modification!
Merci beaucoup!