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

Résolu/Fermé
Dreampower75 Messages postés 88 Date d'inscription jeudi 28 janvier 2021 Statut Membre Dernière intervention 18 juin 2022 - Modifié le 1 déc. 2021 à 11:19
Dreampower75 Messages postés 88 Date d'inscription jeudi 28 janvier 2021 Statut Membre Dernière intervention 18 juin 2022 - 1 déc. 2021 à 15:09
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)

3 réponses

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
1 déc. 2021 à 11:27
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
0
Dreampower75 Messages postés 88 Date d'inscription jeudi 28 janvier 2021 Statut Membre Dernière intervention 18 juin 2022 2
Modifié le 1 déc. 2021 à 12:11
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
0
Dreampower75 Messages postés 88 Date d'inscription jeudi 28 janvier 2021 Statut Membre Dernière intervention 18 juin 2022 2
Modifié le 1 déc. 2021 à 12:10
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
0
via55 Messages postés 14402 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 18 avril 2024 2 702
1 déc. 2021 à 15:08
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
0
Dreampower75 Messages postés 88 Date d'inscription jeudi 28 janvier 2021 Statut Membre Dernière intervention 18 juin 2022 2
1 déc. 2021 à 15:09
Bonjour,

Merci beaucoup je regarde
0