VBA - Copier Coller calendrier à une date précise Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
A
A_Angers
Nouveau venu
Nouveau venu
Messages : 7
Inscrit le : 28 novembre 2016
Version d'Excel : Windows 2016 FR

Message par A_Angers » 11 mars 2017, 12:56

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
PROJETMACRO.xlsx
(50.73 Kio) Téléchargé 11 fois
F
Fitzy
Nouveau venu
Nouveau venu
Messages : 6
Inscrit le : 11 mars 2017
Version d'Excel : 2010

Message par Fitzy » 11 mars 2017, 13:53

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
A
A_Angers
Nouveau venu
Nouveau venu
Messages : 7
Inscrit le : 28 novembre 2016
Version d'Excel : Windows 2016 FR

Message par A_Angers » 12 mars 2017, 13:30

Merci beaucoup Fitzy, c'est exactement ça!

Bonne journée,
A_Angers
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message