Reviens donc avec ce que tu as au moins commencé (code tenté), en exposant plus clairement le problème et en présentant ton code tenté entre balises CODE.
Puis j'ai pensé à récupérer cette valeur dans ta macro, et le tour est joué.
Dim NomFeuille, celluleDestination, FeuilleDestination As String NomFeuille = "Planning (2)" premiereColonne = Worksheets(NomFeuille).Cells.Find(Format(Date, "dd/mm/yyyy")).Column Range(Columns(premiereColonne), Columns(premiereColonne + 20)).Copy FeuilleDestination = "Dates" celluleDestination = "A1" Worksheets(FeuilleDestination).Range(celluleDestination).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Worksheets(FeuilleDestination).Select
Dim aujourdhui As Date Dim delta As Date Dim shPlanningN2 As Worksheet aujourdhui = Date delta = DATE(ANNEE(maDate),MOIS(maDate),JOUR(maDate)+20) 'Recherche & selection des valeurs dans la feuille "planning (2)" With Sheets("planning (2)") Range("Date:delta").Select Selection.Copy End With With Sheets("Planning N2") Cells(1, 1).Select ActiveSheet.Paste End With
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionEt oui j'ai demandé de l'aide à un ami par mail, et alors ?
Pas besoin d'en faire toute une histoire...