XL 2016 VBA Rechercher colonne et copier/coller valeurs

[jl456]

Bonjour,

Je sollicite votre aide pour un code vba.
En fonction de la date du jour, je souhaite trouver la colonne de ma feuille "synthèse" qui correspond à cette date, puis copier les données de cette colonne et les coller en valeurs afin de retirer les formules.

Je vous mets en PJ l'exemple.

Je vous remercie par avance.

 

[sousou]

Bonjour
Si j'ai bien compris!
à l'ouverture de ton fichier.

Private Sub Workbook_Open()
With Sheets("Synthèse")
d = Date
Set dj = .Rows(1).Find(d)
dj.Parent.Columns(dj.Column).Copy
dj.Parent.Columns(dj.Column).PasteSpecial (3)

End With
End Sub

 

[jl456]

Bonjour,
Merci beaucoup pour ton aide, cela répond à mon besoin