copier des données via une macro Résolu/Fermé

Question

Bonjour, 

Je souhaiterai via une macro, alimenter  un onglet à partir d'un autre en fonction de plusieurs critères .

Je cherche, en effet, à copier :
- à partir de l'onglet extraction (actualisé chaque mois) les résultats de la colonne M dépendants de la colonne G  et du mois saisi en cellule D1, 
- vers l'onglet crédit cumulé en fonction de ces mêmes critères.  

Cela est-il possible ? en pj le fichier

https://www.transfernow.net/dl/20220207TWeRs5AB

Vous remerciant par avance pour votre aide

via55 · Answer

Bonjour 

Oui c'est possible

Macro à copier et à mettre dans un module de l'éditeur VBA (Alt+F11 pour ouvrir l'éditeur - Insertion - Module - coller la macro dans la page blanche et fermer l'éditeur
Lancer la macro depuis une des feuilles du classeur par le ruban (Développeur -Macros) ou par un raccourci clavier (Options dans Macros ) ou par un bouton créé pour cela
 Sub transfert()

Sheets("EXTRACTION").Select
     m = Range("D1")
    Range("M3").Select
    Range(Selection, Selection.End(xlDown)).Select ' selectionne jusqu' à la dernière ligne remplie de la colonne M
    Selection.Copy
    Sheets("CREDIT CUMULE").Select
    Cells(7, 5 + m).Select ' Se positionne en cellule ligne 7 colonne 5 + m
    ActiveSheet.Paste
    
End Sub

Cdlmnt
Via

via55 · Answer

Bonsoir

Oui comme les matricules étaient identiques dans les 2 feuilles je pensais qu'il suffisait d'un copier-coller

Là il faut boucler sur toutes les lignes te trouver la correspondance
Macro à mettre dans un Module :
Sub transfert()

On Error Resume Next ' Si pas trouvé on passe au suivant
     m = Sheets("EXTRACTION").Range("D1") ' mois où relever
     der = Sheets("EXTRACTION").Columns(7).Find("*", , , , xlByColumns, xlPrevious).Row ' dernière ligne avec un matricule
     
   For n = 3 To der ' boucle sur les lignes depuis la 3 jusqu'à la dernière
   mat = Sheets("EXTRACTION").Range("G" & n) ' matricule à chercher
    x = Sheets("EXTRACTION").Range("M" & n) '  valeur à reporter
   ligne = Sheets("CREDIT CUMULE").Columns(1).Find(mat, , , xlWhole, xlByColumns, xlNext).Row ' ligne où se trouve ce matricule dans CUMULE
     Sheets("CREDIT CUMULE").Cells(ligne, 5 + m) = x ' reporte la valeur dans colonne adéquate
     Next
    
End Sub

 Cdlmnt
Via

Copier des données via une macro

2 réponses

Discussions similaires