XL 2013 Copier des données qui change tous les mois dans une base de données dont la dernière ligne change tous les mois

onyirimba

XLDnaute Junior
Supporter XLD
Bonjour

Est-il possible de programmer en VBA le fait que les données supérieur surlignés en jaune du tableau soient collés dans l'onglet "ALL RM" dans les colonnes correspondantes et que les données inférieur du tableau soient collés dans l'onglet "ALL FU" sachant que ces données peuvent augmenter ou diminuer d'un mois à l'autre au niveau du nombre de lignes
exemple : Pour le mois de 09 2021 => les données liées à l'onglet "ALL RM" se terminent à la ligne 14 (voir excel ci-joint)
Pour le mois de 10 2021 => ces données peuvent se terminer à la ligne 24


1634204608494-png.1118261


Idem pour les données liés à l'onglet "ALL FU"

j'ai essayé avec le code ci-après mais cela ne fonctionne pas
Sub Maj()
Const Formule As String = "=IFERROR(G@/F@,0)"
Dim Bdd As Range, Destination As Range
Dim nbLignes As Long
'
' toutes les données de bdd
With ThisWorkbook.Sheets("BDD ").Range("B6").CurrentRegion
Set Bdd = .Offset(2).Resize(.Rows.Count - 2)
End With
'
' nombre de lignes
nbLignes = Bdd.Rows.Count
'
' destination des nouvelles données
With ThisWorkbook.Sheets("ALL RM").Range("B1").CurrentRegion
'
' Ligne suivante du tableau, retaillée au nombre de lignes
With .Offset(.Rows.Count).Resize(nbLignes)
' Transfert des valeurs.
.Columns(1).Value = "Sep 21"
.Columns(2).Resize(, 3).Value = Bdd.Columns(2).Resize(, 3).Value
.Columns(5).Value = Bdd.Columns(6).Value
.Columns(6).Value = Bdd.Columns(8).Value
.Columns(7).Formula = Replace(Formule, "@", .Row)
End With

End With

End Sub


J'ai joint un fichier Excel illustrant mes propos.

Merci d'avance pour votre aide
Cordialement
 

Pièces jointes

  • VBA VBA Stock 09 2021.xlsm
    33.4 KB · Affichages: 2

Hasco

XLDnaute Barbatruc
Re,

La macro que vous dites avoir essayée fonctionnait pour une autre demande :

 

Discussions similaires

Statistiques des forums

Discussions
292 782
Messages
1 926 195
Membres
182 947
dernier inscrit
LOKID