XL 2013 Macro copier-coller si condition date

  • Initiateur de la discussion Initiateur de la discussion Pluce1
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Pluce1

XLDnaute Nouveau
Bonjour,

Après une semaine de recherche je viens demander de l'aide.

Je voudrais faire une macro qui copie les lignes du fichier "Suggestion new BP" si la cellule de la colonne H est à la date du jour. Ces lignes doivent être copiées à partir de la première ligne vide dans le classeur "test BP". Pour les lignes qui sont copiées, il faudrait que les chiffres rentrées dans les colonnes de T à AO du fichier "Suggestion new BP" soit cumulées en somme dans la colonne X du fichier "test BP".

Ci dessous la macro que j'ai faite:

Sub Copier_coller()
'
' Copier_coller Macro
'
j = 3
For i = 2 To 65536
If Workbooks("Suggestion new BP.xlsx").Worksheets("feuil1").Range("H" & i).Value = Date Then
Application.Workbooks("Suggestion new BP.xlsx").Worksheets("feuil1").Range("A" & i & ":BI" & i).Copy
Workbooks("test.BP").Worksheets("Feuil1").Activate
Workbooks("test BP.xlsm").Worksheets("Feuil1").Range("A" & j Range(":BI" & j).End(xlUp).Row + 1).Select
ActiveSheet.Paste
j = j + 1
End If
Next i
'
End Sub


Merci beaucoup pour votre aide !

Pluce1
 

Pièces jointes

Re : Macro copier-coller si condition date

Bonjour,

Ca marche très bien sur le nouveau fichier test BP !!! Un énorme merci pour votre aide !!!

J'ai modifié la macro pour mettre

Workbooks("test bp.xlsm").Worksheets("Feuil1").Cells(dernièrelignetest + 1, 24) = WorksheetFunction.Sum(Application.Workbooks("Suggestion new BP.xlsx").Worksheets("feuil1").Range("T" & i & ":AO" & i))


Encore merci !!!

A +
 
Re : Macro copier-coller si condition date

Bonjour

Oui, effectivement, j'avais oublié de corriger dans la version mise en ligne le A par T et le BI par AO (une erreur de copier-coller : j'ai pioché dans la mauvaise macro, parmi les 3 disponibles).

@ plus
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
9
Affichages
580
Réponses
2
Affichages
539
Réponses
7
Affichages
619
Réponses
0
Affichages
459
  • Question Question
Microsoft 365 Cpier/coller en VBA
Réponses
7
Affichages
691
Réponses
5
Affichages
813
Retour