Copie de colonne incrémenter

Bonjour à tous,

j'ai un problème que je n'arrive pas a résoudre

je voudrais créer une macro qui me recopie 1 colonne sur une autre feuille.

jusque la, ça va

Private Sub Copie_RDV_j_Click()

Sheets("Planning").Columns("BA:BA").Copy Sheets("RDV journee").Range("A1")

End Sub

Ca fonctionne !

mon problème est que chaque jour, les colonnes changent ( le "BA:BA" devient "BB:BB" )

j'ai voulu insérer un TextBox ou je rentre le nom de la colonne, mais impossible de récupérer la valeur pour la remettre dans Columns

quelqu’un aurait il une solution à me proposer ?

Merci d'avance

Bonjour,

Un truc dans ce genre ?

Sub CopieColonne()

    Dim Col As Range
    Dim NomCol As String

    NomCol = InputBox("Indiquer la ou les lettres de la colonne à copier !", "Copier.", "A")

    On Error Resume Next

    Set Col = Sheets("Planning").Range(NomCol & ":" & NomCol)

    If Err.Number <> 0 Then

        MsgBox "Le nom de la colonne que vous avez indiqué contient une erreur !", vbExclamation, "Erreur."
        Exit Sub

    End If

    Col.Copy Sheets("RDV journee").Range("A1")

End Sub

Hervé.

Un grand MERCI, je viens de tester et ça marche nickel