VBA - Copier Coller calendrier à une date précise

Bonjour à tous,

Vous trouverez ci-joint un fichier excel pour exemple (PROJETMACRO).

J'aimerais créer un bouton qui permette de copier le tableau A7:AH96 de l'onglet ORIGINE vers l'onglet DESTINATION.

La difficulté c'est que j'aimerais qu'il se colle dans DESTINATION à partir de la date donné en cellule A7 dans ORIGINE.

Est ce que vous pourriez m'aider s'il vous plaît?

Merci d'avance,

A_Angers

24projetmacro.xlsx (50.73 Ko)

Avec un bouton sur la feuille d'origine, en utilisant ce code, ça fait ce que tu souhaites :

Private Sub CommandButton1_Click()
    Dim dateRecherchée As Date
    Dim i As Long

    dateRecherchée = Sheets("Origine").Range("A7").Value

    'on va rechercher la ligne dans la feuille Destination qui correspond à la date écrite en A7 d'Origine
    i = 1
    Do While Sheets("DESTINATION").Range("A" & i).Value <> ""
        If IsDate(Sheets("DESTINATION").Range("A" & i).Value) And Sheets("DESTINATION").Range("A" & i).Value = dateRecherchée Then
            'on l'a trouvé
            Exit Do
        End If
        i = i + 1
    Loop

    'on copie les données
    Sheets("Origine").Range("A7:AH96").Copy Destination:=Sheets("DESTINATION").Range("A" & i)

End Sub

Merci beaucoup Fitzy, c'est exactement ça!

Bonne journée,

A_Angers

Rechercher des sujets similaires à "vba copier coller calendrier date precise"