Macro qui copie les données d'un onglet pour les copier dans 1 autre onglet selo Résolu/Fermé

Question

Bonjour,

1/ Je souhaiterai une Macro qui copie les données des cellules en vert de l'onglet "database" (IMAGE 1) pour les coller dans 1 autre onglet LU (2) (IMAGE 2) dans la cellule correspondante (en se basant sur l'exemple du mois de janvier 2021) :
Exemple :
  - les données de la cellule K8 de " l'onglet database " (11111) sont a copier dans la cellule AI33 de " l'onglet LU (2) "
  - les données de la cellule L8 de " l'onglet database "(22222) sont a copier dans la cellule AI36 de " l'onglet LU (2) "
  - les données de la cellule N8 de " l'onglet database " (33333) sont a copier dans la cellule AI32 de " l'onglet LU (2) "
  - etc... pour les cellules en verte

2/ Je souhaiterai également que si le mois dans la cellule L1 de l'onglet " database " change (par ex : si on inscrit dec 20 ou fevr 21)=> les données de "database" soient copiés dans la colonne correspondante de l'onglet l'onglet "LU (2)" (ex : dans les colonnes AG "dec 20" ou AJ "fevr 21" selon le mois sélectionné dans l'onglet database )

J'ai ajouté 1 fichier qui illustre mes propos ci-après :
Le lien a été crée : https://www.cjoint.com/c/KLbkqWTMwge

Merci d'avance pour votre aide.

Mois à sélectionner


IMAGE 1 : Onglet database


IMAGE 2 : LU (2)

michel_m · Answer

Bonjour""
"en se basant sur l'exemple du mois de janvier 2021) : "

!!!!!
donc il faudrait que l'on remonte tous tes mails jusqu'à cette date ???

demande d'aide pas très sérieuse

Dreampower75 · Answer

Bonjour,

Pas du tout ! ce n'est pas du tout cela
Sur le fichier que j'ai joint aujourd'hui j'ai copier coller les chiffres en verts de l'onglet database sur l'onglet" Lu (2) "correspondante pour le mois de "janv 2021"

est-ce que vous avez compris ma demande ?

Merci de votre aide

via55 · Answer

Bonjour

Exemple de macro à mettre dans un module puis à lancer après à partir d'un bouton sur la feuille Database ou d'un raccourci clavier
Sub reporter()
ladate = Sheets("Database").Range("L1") 'date choisie

With Sheets("LU (2)")

Dim Col As Integer
Col = .Rows(3).Find(ladate, , , , xlByRows, xlNext).Column ' colonne de la date choisie
' transpositions
.Cells(4, Col) = Sheets("Database").Range("AE5")
.Cells(5, Col) = Sheets("Database").Range("AC5")
' mettre ici les autres transpositions
'...............................................
'....................................................
End With

MsgBox "Transposition effectuée"

End Sub
Le fait de lancer la macro à tout changement de la date en Database n'est pas forcément une bonne idée, car si on le fait avant que le tableau soit complet ou par erreur .... donc il vaut mieux le bouton ou le raccourci clavier 

Cdlmnt
Via

Macro qui copie les données d'un onglet pour les copier dans 1 autre onglet selo

3 réponses

Discussions similaires