Selectionner colonne à partir de son nom

Bonjour,

Sheets("Données").Select

Range("AE2:AE500").Select

Application.CutCopyMode = False

Selection.Copy

Sheets("Fichier Synthèse").Select

Range("B3").Select

ActiveSheet.Paste

Comment faire pour dire a ma macro, plutot que "Range("AE2:AE500").Select" , aller cherche dans colonne nommé "NomDeColonne" car les emplacements peuvent différés mais les intitulés de mes colonnes restent les mêmes.

Et de lui dire au sein de cette colonne sélectionner la ligne 2 jusqu’à ligne 500

Salut,

Sub testfind()
Set r = Sheets("Calculs").Cells.Find("NomDeColonne")
Range(Cells(2, r.Column), Cells(500, r.Column)).Select
End Sub

erreur 91

Variaible ou objet de bloc with non defini :/

Par contre je l'ai modifier un peu c'est peut être pr ca?

Dim r As Range

Sheets("Données").Select

Set r = Cells.Find("NomDeColonne")

Range(Cells(2, r.Column), Cells(500, r.Column)).Select

Selection.Copy

Sheets("Fichier Synthèse").Select

Range("A3").Select

ActiveSheet.Paste

bonjour,

Les Select ne servent à rien : à bannir !

une possibilité :

Sub test()
Dim i
i = [LeNomDeTaColonneSansGuillemet].Column
Sheets("Données").Range("AE2:AE500").Copy Sheets("Fichier Synthèse").Cells(3, i)
End Sub

A+

Bonjour,

Un exemple à adapter.

Cdlt.

Public Sub DEMO()
Dim ws As Worksheet, ws2 As Worksheet
Dim strCol As String
Dim r As Range, rng As Range
Dim lCol As Long

    Set ws = Worksheets("Données")
    Set ws2 = Worksheets("Fichier Synthèse")

    strCol = "xxx"    'à définir

    With ws
        With .Cells
            Set r = .Find(what:=strCol, LookIn:=xlValues, lookat:=xlWhole)
            If r Is Nothing Then Exit Sub
            lCol = r.Column
        End With
        Set rng = .Cells(2, lCol).Resize(.Cells(.Rows.Count, lCol).End(xlUp).Row - 1)
    End With
    rng.Copy Destination:=ws2.Cells(3, 2)

End Sub

Je t'aime jean eric <3

Merci aux autres aussi pour vos réponses.

Petite question de noob, ta fonction fonctionne très bien en revanche je souhaite la mettre pour chacune de mes colonnE

j'ai donc changer mes variables mais cela ne fonctionne pas

Sheets("Données").Select

strCol2 = "GHM2"

With ws

With .Cells

Set r2 = .Find(what:=strCol2, LookIn:=xlValues, lookat:=xlWhole)

If r Is Nothing Then Exit Sub

lCol2 = r2.Column

End With

Set rng2 = .Cells(2, lCol2).Resize(.Cells(.Rows.Count, lCol2).End(xlUp).Row - 1)

End With

rng2.Copy

Selection.Copy

Sheets("Fichier Synthèse").Select

Range("C3").Select

ActiveSheet.Paste


avec la declaration de celles ci au dessus

Dim ws As Worksheet, ws2 As Worksheet

Dim strCol As String

Dim strCol1 As String

Dim strCol2 As String

Dim r As Range, rng As Range

Dim r1 As Range, rng1 As Range

Dim r2 As Range, rng2 As Range

Dim lCol As Long

Dim lCol1 As Long

Dim lCol2 As Long

RE,

r n'est pas r2.

Cdlt.

erreur 1004, je ne comprend pas pourquoi

Pour la premiere colonne DP cela fonctionne parfaitement!

Mais pour la suivant la partie

" Set rng = .Cells(2, lCol1).Resize(.Cells(.Rows.Count, lCol1).End(xlUp).Row - 1) "

on me dit erreur 1004,

Set ws = Worksheets("Données")

Set ws2 = Worksheets("Fichier Synthèse")

strCol = "NouveauDP" 'à définir

With ws

With .Cells

Set r = .Find(what:=strCol, LookIn:=xlValues, lookat:=xlWhole)

If r Is Nothing Then Exit Sub

lCol = r.Column

End With

Set rng = .Cells(2, lCol).Resize(.Cells(.Rows.Count, lCol).End(xlUp).Row - 1)

End With

rng.Copy

Sheets("Fichier Synthèse").Select

Range("A3").Select

ActiveSheet.Paste

' Deuxième colonne

Sheets("Données").Select

strCol = "NouveauDAS" 'à définir

With ws

With .Cells

Set r = .Find(what:=strCol1, LookIn:=xlValues, lookat:=xlWhole)

If r Is Nothing Then Exit Sub

lCol1 = r.Column

End With

Set rng = .Cells(2, lCol1).Resize(.Cells(.Rows.Count, lCol1).End(xlUp).Row - 1)

End With

rng.Copy

Selection.Copy

Sheets("Fichier Synthèse").Select

Range("B3").Select

ActiveSheet.Paste

RE,

' Deuxième colonne

Sheets("Données").Select
strCol= "NouveauDAS" 'à définir

With ws
With .Cells
Set r = .Find(what:=strCol1, LookIn:=xlValues, lookat:=xlWhole)
Rechercher des sujets similaires à "selectionner colonne partir nom"