Copier coller cellules selon condition

Coucou le Forum,

J'ai une nouvelle fois besoin de vos lumières

J'ai cherché sur le forum il y a beaucoup de sujet qui parle de ma demande mais sans vraiment la résoudre à 100%

Voilà j'ai un fichier qui renvoi automatiquement les données cumulées au moment de la clôture sur un cumulés M-1

Et je souhaiterai pour alimenter un graphique renvoyer les dépenses mensuelles ainsi que le CA et le résultat dans un autre onglet par rapport à une date que je choisirai selon l'intervalle de date que j'aurai créé. Et pour corser le tout je souhaiterai intégrer ce code VBA dans le bouton déjà créé dans le fichier en pièce jointe.

(j'espère être compréhensible )

Copier - coller des données c'est pas très difficile en VBA mais là ou j'ai un peu de mal c'est de délimiter un intervalle sur une ligne et dire sur laquelle les données doivent se mettre

En pièce jointe un fichier simplifié, je souhaiterai renvoyer les données de la feuil1 E14:E18 sur la feuil2 selon une date.

Si vous avez des idées je suis preneuse

Merci le forum

Bonjour,

ajouter à votre macro,

Dim dt As Double
'mois en cour
 dt = DateSerial(Year(Date), Month(Date), 1)
 t = Application.Match(dt, Sheets("Feuil2").Range("2:2"), 0)
 addrS = Cells(14, 5).Address & ":" & Cells(18, 5).Address
 addrD = Cells(3, t).Address & ":" & Cells(7, t).Address
 Sheets("Feuil2").Range(addrD).Value = Sheets("Feuil1").Range(addrS).Value

Impressionnant

Je suppose que le code se cale avec la date windows ?

Le souci c'est que je clôture les comptes avec un mois de retard, est ce qu'il est possible que je puisse choisir la date ou les données doivent se mettre ?

Exemple : on est au mois de mars, je vais clôturer les comptes vers mi-avril donc j'aurai un mois de décalage. Est ce que je peux dire à la macro quel mois ou mettre les données ?

Bravo pour le code encore

re,

pour le mois précédent,

remplace la ligne

dt = DateSerial(Year(Date), Month(Date), 1)

par

dt = DateSerial(Year(Date), Month(Date)-1, 1)

ou bien renseigner une cellule de la Feuil1

et remplace la ligne

dt = DateSerial(Year(Date), Month(Date), 1)

par

dt = sheets("Feuil1").range("B4")

'adapter l'adresse de cellule pour la date

Génial, je pensais pas que c'était possible ta 2eme solution :

dt = sheets("Feuil1").range("B4")

Les 2 solutions sont parfaites, merci beaucoup de ton aide maître excel

Merci pour ce retour, au plaisir!