Copier une colonne de tableau selon son entête

Bonjour à tous et à toutes,

étant novice en vba, je sollicite votre aide , pour une question qui doit vous paraitre simple.

J'ai un fichier planning avec nom prénom en ligne , et les dates en colonnes.

Je voudrais à l'aide d'un formulaire (je sais faire), créer une nouvelle feuille reprenant les noms et prénoms, mais seulement la colonne contenant la date que j'ai saisi dans le USERFORM.

Donc ce qui me manque c'est code qui va me chercher la bonne date et qui va me copier la colonne du tableau dans la feuille de présence.

Par avance merci pour votre aide ,

Bonjour

J'ai un fichier planning...

Peux-tu le joindre ?

Bye !

oui bien sur, merci

Bonjour,

C'est le bon fichier ?

Quel est l'intérêt de la procédure évènementielle ?

Cdlt.

le but c'est de pouvoir générer, une feuille correspondant à une date donnée reprenant les noms et prénoms et les activités qui seront saisies dans le planning

pour ce qui est de de la procédure évènementiel, si c'est les "présent " qui se remplissent automatiquement, c'est juste une aide pour mes chefs quand ils rajouteront des personnels. Par défaut, le personnel est présent.

Un essai à tester, si j'ai bien compris.

Te convient-il ?

Option Explicit

Dim fp As Worksheet
Dim j&, derln&, dercol&, flag&, dte As Date

Private Sub CommandButton1_Click()
    flag = 0
    Range("A1").CurrentRegion.Offset(1, 0).Clear
    For j = 3 To dercol
        If fp.Cells(1, j) = CDate(TextBox1) Then
            flag = 1
            Exit For
        End If
    Next j
    If flag = 1 Then
        fp.Range("A2:B" & derln).Copy Range("A2")
        fp.Range(fp.Cells(2, j), fp.Cells(derln, j)).Copy Range("C2")
        Range("E1").Value = fp.Cells(1, j).Value
    End If
    Unload Me
End Sub

Private Sub UserForm_Initialize()

    Set fp = Sheets("Planning")
    dercol = fp.Cells(1, Columns.Count).End(xlToLeft).Column
    derln = fp.Range("A" & Rows.Count).End(xlUp).Row
End Sub

Bye !

c est exactement ce que je cherchais à obtenir. Un grand merci.

une petite question, les filtres sur la ligne 2, ils sont obligatoires ?

une petite question, les filtres sur la ligne 2, ils sont obligatoires ?

Non, Pas du tout.

Bye !