Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2013 vba - copier-coller des valeurs contenues dans TCD

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion douguy
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
D

douguy

XLDnaute Junior
Bonjour à tous

je suis novice de chez novice en VBA et ne parvient pas à créer la macro qui permettrait de copier les valeur contenues dans le TCD dans une autre feuille
les valeurs du TCD changent tous les jours et je voudrais que la BDD importe les valeurs du TCD à la date correspondant à la date du jour

pour l'instant j'en suis à ça et après....
Sub test()
Dim datedujour As Date
Dim premierjour As Date
Dim dernierjour As Date

datedujour = Date
premierjour = DateSerial(Year(Date), Month(Date), 1)
dernierjour = DateSerial(Year(Date), Month(Date) + 12, 1) - 1

'copier les valeurs contenues dans colonne B entre "premierjour" et "dernierjour"
'coller dans BDD MEC groupe en partant de L"premierjour" C "datedujour"

'copier les valeurs contenues dans colonne C entre "premierjour" et "dernierjour"
'coller dans BDD MEC indiv en partant de L"premierjour" C"datedujour"

End Sub

Je pense que c'est basique mais malheureusement je suis nul

un grand merci à ceux qui voudront bien jeter un oeil
 

Pièces jointes

Trier par date Trier par votes
Bonjour

Code: 
    With [Sh_TCD].PivotTables("Tableau croisé dynamique5")
        .PivotFields("DATE").ClearLabelFilters
        .PivotFields("DATE").PivotFilters.Add Type:=xlDateThisMonth
       
        premierjour = DateSerial(Year(Date), Month(Date), 1)
        Haut = premierjour - DateSerial(Year(Date), 1, 1) + 2
        Bas = Date - DateSerial(Year(Date), 1, 1) + 2
        Nombre = .DataBodyRange.Rows.Count - 1
        [Sheet3].Range([Sheet3].Cells(Haut, Bas), [Sheet3].Cells(Haut + Nombre - 1, Bas)).Value = .DataBodyRange.Columns(1).Resize(Nombre, 1).Cells.Value
        [Sh_MEC].Range([Sh_MEC].Cells(Haut, Bas), [Sh_MEC].Cells(Haut + Nombre - 1, Bas)).Value = .DataBodyRange.Columns(1).Resize(Nombre, 1).Cells.Value
       
        .PivotFields("DATE").ClearLabelFilters
    End With
 
Vote positif 0 Vote négatif
bonjour Chris et vraiment merci beaucoup

C'est presque ça.

l'export doit aller jusqu'au :
dernierjour = DateSerial(Year(Date), Month(Date) + 12, 1) - 1

soit 12 mois coulissant du coup je pense qu'il faut changer :
Bas = Date - DateSerial(Year(Date), 1, 1) + 2 mais je ne sais pas où 🙁

il faut aussi exporter la colonne C vers l'onglet BDD indiv
du coup je suppose qu'il faut dupliquer cette macro en changeant

[Sheet3].Range([Sheet3].Cells(Haut, Bas), [Sheet3].Cells(Haut + Nombre - 1, Bas)).Value = .DataBodyRange.Columns(1).Resize(Nombre, 1).Cells.Value

en modifiant columns(1) par columns(2) et changer la destination

mais je n'ose pas trop toucher le code

encore merci
 
Vote positif 0 Vote négatif
Re

La macro compète déjà les 2 tableaux mais j'ai oublié de décaler la colonne et cela copiait 2 fois la même

Code: 
premierjour = DateSerial(Year(Date), Month(Date), 1)
dernierjour = DateSerial(Year(Date), Month(Date) + 12, 1) - 1

  With [Sh_TCD].PivotTables("Tableau croisé dynamique5")
  .PivotFields("DATE").ClearLabelFilters
  .PivotFields("DATE").PivotFilters.Add Type:=xlDateBetween, Value1:="" & premierjour, Value2:="" & dernierjour
  Haut = premierjour - DateSerial(Year(Date), 1, 1) + 2
  Bas = Date - DateSerial(Year(Date), 1, 1) + 2
  Nombre = .DataBodyRange.Rows.Count - 1
  [Sheet3].Range([Sheet3].Cells(Haut, Bas), [Sheet3].Cells(Haut + Nombre - 1, Bas)).Value = .DataBodyRange.Columns(1).Resize(Nombre, 1).Cells.Value
  [Sh_MEC].Range([Sh_MEC].Cells(Haut, Bas), [Sh_MEC].Cells(Haut + Nombre - 1, Bas)).Value = .DataBodyRange.Columns(2).Resize(Nombre, 1).Cells.Value
   
  .PivotFields("DATE").ClearLabelFilters
  End With

Comme je n'ai pas la source du TCD, je ne peux vérifier : cela s'arrête au 30/12/2017
 
Vote positif 0 Vote négatif
Rebonjour

j'ai une question supplémentaire
je souhaite adapter ce code sur d'autres TCD
la déclaration de la source d'export est sur la ligne suivante :

With [Sh_TCD].PivotTables("Tableau croisé dynamique5")

comment dois-je l'adapter pour d'autre TCD d'un même classeur ?

Par exemple l'onglet s'appelle PivotGROUP, l'autre PivotDATA etc

en fait je ne comprend pas comment le code a compris où il devait chercher les données... 🙁

merci pour vos réponses
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Résolu(e)
XL 2021 Bug dans code vba
Réponses
8
Affichages
328
thunder23
P
  • Résolu(e)
Microsoft 365 Copier coller les mêmes valeurs dans la même cellule
Réponses
12
Affichages
334
job75
G
  • Résolu(e)
XL 2021 VBA dates au mauvais format
Réponses
5
Affichages
405
vgendron
S
  • Résolu(e)
XL 2013 Copier-Coller une ligne dans tableau variable, et la manipuler.
Réponses
4
Affichages
179
StéphaneDeLà
S
U
  • Question Question
Autres incorporer une macro dans une autre macro
Réponses
5
Affichages
480
Phil69970
I
  • Résolu(e)
Microsoft 365 Copier-coller dans une plage avec des cellules masquées
Réponses
6
Affichages
413
sylvanu
J
  • Question Question
XL 2021 Segments et tcd non liés
Réponses
4
Affichages
627
chris
P
  • Résolu(e)
XL 2021 Besoin d'aide pour copier/coller données de plusieurs classeurs
2
Réponses
20
Affichages
1 K
Pac41240
P
N
  • Question Question
Microsoft 365 appel des sous-routine
Réponses
3
Affichages
300
Dranreb
A
  • Résolu(e)
Microsoft 365 VBA_Copier coller selon des critères dans deux menus déroulants
Réponses
6
Affichages
175
Altfkat
A
S
  • Résolu(e)
Autres Copier-Coller en recherchant une ligne spécifique VBA
Réponses
4
Affichages
645
sambio2
S
  • Question Question
XL 2019 Détecter les valeurs suivant les tableaux sélectionnés et, si elles sont non-existantes, les copier
2 3
Réponses
33
Affichages
1 K
Amigo
E
  • Question Question
Microsoft 365 Problème de conversion des mois en périodes dans Excel avec VBA
Réponses
2
Affichages
662
RyuAutodidacte
Y
  • Question Question
XL 2019 copier/coller colonne vers ligne
Réponses
4
Affichages
501
sylvanu
G
  • Question Question
XL 2010 Copier coller une image dans le corps de message via gmail
Réponses
8
Affichages
747
gwenn49
G
Y
  • Question Question
probléme au niveau mon code vba
Réponses
3
Affichages
317
Dranreb
A
  • Question Question
Insérer un copier / coller
Réponses
0
Affichages
344
aziz
A
Y
  • Question Question
Microsoft 365 Code VBA
Réponses
6
Affichages
691
yapad05
Y
L
  • Question Question
Microsoft 365 Je n'arrive à copier/coller des colonnes d'un fichier CSV dans un Google Spreadsheet
Réponses
1
Affichages
480
fanch55
R
  • Question Question
Microsoft 365 VBA copier coller des cellules
Réponses
6
Affichages
912
Phil69970
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…