XL 2016 VBA Rechercher colonne et copier/coller valeurs

jl456

XLDnaute Junior
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.
 

Fichiers joints

sousou

XLDnaute Accro
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
 

Haut Bas