XL 2010 VBA coller ligne en fonction de la ligne du dessous

[arochab]

Bonjour à tous

Je vous sollicite car j'essaie de développer mes connaissances en VBA mais je rencontre toujours et encore des difficultés. :s

J'ai cherché un peu partout sur le net, des sujets sur le même thème ont déjà été abordés mais je n'arrive pas à adapter les macros...

Je cherche à développer une macro me permettant de copier une ou plusieurs lignes d'un fichier d'extraction déjà filtrées, à un autre fichier de base de gestion.

Dans ma feuille Base, il y'a des blocs de lignes (trié en fonction d'une business unit). On se repère en fonction d'une ligne en rouge pour trouver la BU et l'on colle la ligne au dessus.

J'ai déjà une macro me permettant de copier ces données mais celle-ci les colle à la fin de la base et non dans le bloc où elles doivent être classées.

Voici ma macro :

Sub MacroMAJBASECONTENUProd()
' Date basée sur la Base Prod°

Dim Date_UN As Long
Dim Date_DEUX As Long
Date_UN = Range("A26").Value
Date_DEUX = CLng(Date)
With Workbooks("EDI_EXTRACT_CDG_DIVERSIFICATION.xls").Sheets(1)
.Range("A1").CurrentRegion.AutoFilter Field:=22, Criteria1:=">=" & Date_UN, Operator:=xlAnd, Criteria2:="<=" & Date_DEUX
.Range("A1").CurrentRegion.AutoFilter Field:=12, Criteria1:="=NCTDIVR"
.AutoFilter.Range.Offset(1).SpecialCells(xlCellTypeVisible).Copy
.AutoFilterMode = False
End With
  Windows("Base Contenu 2016.xls").Activate
  Sheets("Base Prod°").Select
Cells(Rows.Count, 1).End(xlUp)(2).PasteSpecial Paste:=xlPasteValues

End Sub

Si par exemple je veux copier les lignes au dessus de la ligne où est mentionnée "FNP BLOG", comment faire pour adapter ma macro ?
D'ailleurs, serait-ce possible de copier automatiquement les lignes en fonction de leur libellés au dessus des lignes correspondantes (ex : "facture création" au dessus de la ligne "FNP création" et en même temps "facture blog" au dessus de la ligne "FNP blog") ?

Mille merci à celles et ceux qui prendront le temps de m'aider !
C'est le deuxième message que je poste sur ce forum et j'en suis déjà très satisfait !

arochab

 

[Yurperqod]

Bonjour le forum

Je reconnais ta macro...
Je l'ai déjà vu ici, non ?
http://www.excel-downloads.com/thre...ate-basé-sur-la-valeur-dune-cellule.20011323/

 

[arochab]

Hello Yurperqod !

Haha oui c'est très bien vu de ta part
Je l'ai appliqué à d'autres bases et mes besoins ne sont pas exactement les mêmes...

Ce serait légèrement abusif de te redemander un peu d'aide, non ?

arochab

 

[arochab]

Bonjour le forum

Je reconnais ta macro...
Je l'ai déjà vu ici, non ?
http://www.excel-downloads.com/thre...ate-basé-sur-la-valeur-dune-cellule.20011323/

D'ailleurs je n'ai et n'aurai jamais affirmé qu'il s'agissait de la mienne ! J'ai "une" macro

 

[Yurperqod]

D'ailleurs je n'ai et n'aurai jamais affirmé qu'il s'agissait de la mienne !

T'es sur?

Bonjour à tous
Voici ma macro :
C'est le deuxième message que je poste sur ce forum et j'en suis déjà très satisfait !
arochab

Pour adapter la macro, rejoins le classeur exemple dans la deuxième discussion.

 

[arochab]

Oh ! au temps pour moi Yurperqod, j'en étais persuadé ! :s
Sorry..

Du coup voici les deux fichiers.

• EDI_EXTRACT_CDG_DIVERSIFICATION3 est une extraction comptable d'où les lignes sont tirées.
• Base Cont (envoiforum) 2016 est le fichier de gestion où les lignes copiées précédemment sont collées.

Dans Base Cont (envoiforum) 2016 :

1. dans l'onglet base Prod° (code nature NDCTDIVR) les deux critères à prendre en compte sont en colonne P (ce sont des codes produits)
2. dans l'onglet base Acq. (code nature NCTHACT) les critères à prendre en compte sont dans le libellé (Descr_Entete) (Paris Catch Up et PCS)

A nouveau infiniment merci pour ton aide Yurperqod !
J'aimerai vraiment te renvoyer l'ascenceur, bilingue anglais, si tu as des traductions ou autre, je suis 100% dispo pour toi.

arochab