Créer un TCD à partir d'une base de données évolutive
Fermé
ti_mouton
Messages postés
143
Date d'inscription
vendredi 29 mai 2015
Statut
Membre
Dernière intervention
5 septembre 2020
-
Modifié par ti_mouton le 22/07/2015 à 11:39
ti_mouton Messages postés 143 Date d'inscription vendredi 29 mai 2015 Statut Membre Dernière intervention 5 septembre 2020 - 5 janv. 2017 à 14:55
ti_mouton Messages postés 143 Date d'inscription vendredi 29 mai 2015 Statut Membre Dernière intervention 5 septembre 2020 - 5 janv. 2017 à 14:55
A voir également:
- Créer un TCD à partir d'une base de données évolutive
- Créer un compte gmail - Guide
- Creer un groupe whatsapp a partir d'un autre groupe - Guide
- Créer un compte google - Guide
- Créer un compte instagram - Guide
- Créer une liste déroulante excel - Guide
3 réponses
Frenchie83
Messages postés
2240
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
11 août 2023
337
22 juil. 2015 à 19:06
22 juil. 2015 à 19:06
Bonsoir
Voici une idée
https://www.cjoint.com/c/EGwrc1VVWdw
Le principe, chaque fois que vous cliquerez sur le bouton "Créer TCD", le programme supprime le TCD existant(si il existe) et en créer un nouveau.
A adapter à votre fichier
Cdlt
Voici une idée
https://www.cjoint.com/c/EGwrc1VVWdw
Le principe, chaque fois que vous cliquerez sur le bouton "Créer TCD", le programme supprime le TCD existant(si il existe) et en créer un nouveau.
A adapter à votre fichier
Cdlt
Frenchie83
Messages postés
2240
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
11 août 2023
337
24 juil. 2015 à 05:26
24 juil. 2015 à 05:26
Bonjour
Le seul problème que j'ai détecté est lié au nom de la feuille du TCD, Dans tout le module, remplacer Analyse BLOCS par AnalyseBLOCS.
En effet, il n'aime pas l'espace entre les deux mots.
Essayez
Cdlt
Le seul problème que j'ai détecté est lié au nom de la feuille du TCD, Dans tout le module, remplacer Analyse BLOCS par AnalyseBLOCS.
En effet, il n'aime pas l'espace entre les deux mots.
Essayez
Cdlt
ti_mouton
Messages postés
143
Date d'inscription
vendredi 29 mai 2015
Statut
Membre
Dernière intervention
5 septembre 2020
27 juil. 2015 à 11:23
27 juil. 2015 à 11:23
Effectivement sans l'espace ça marche parfaitement ! Merci beaucoup
ti_mouton
Messages postés
143
Date d'inscription
vendredi 29 mai 2015
Statut
Membre
Dernière intervention
5 septembre 2020
5 janv. 2017 à 14:55
5 janv. 2017 à 14:55
Bonjour,
Je cherche à réutiliser ce code qui fonctionnait très bien pour l'adapter à un autre fichier mais je rencontre un blocage.
VBA m'indique une erreur à ce niveau du code
"erreur definie par l'application ou par l'objet"
Une idée pour m'aider ?
Merci :)
Je cherche à réutiliser ce code qui fonctionnait très bien pour l'adapter à un autre fichier mais je rencontre un blocage.
Sub CreerTCD1()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
On Error GoTo GestionErreur
Sheets("globalJANVIER").Select
LigDeb = 1
DerLig = [A100000].End(xlUp).Row
ColDeb = 1
DerCol = [C1].End(xlToLeft).Column
Set DonneesSource = Range(Cells(LigDeb, ColDeb), Cells(DerLig, DerCol))
If Not Sheets("JANVIER") Is Nothing Then SupprimerLeTCDTRANSPORTEURS
CreationTCD:
Sheets("JANVIER").Tab.ColorIndex = 40
'utiliser l'enregistreur de macro pour la suite, puis coller ci-dessous
'puis dans la première ligne, remplacer les termes suivants par exemple:"SourceData:=B6:G30" par "SourceData:=DonneesSource"
'**********************************************************************************************************************************
Range("B2").Select
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
DonneesSource, Version:=xlPivotTableVersion15). _
CreatePivotTable TableDestination:="JANVIER!R2C2", TableName:= _
"LeTCDTRANSPORTEURS", DefaultVersion:=xlPivotTableVersion15
With ActiveSheet.PivotTables("LeTCDTRANSPORTEURS").PivotFields( _
"Transporteurs")
.Orientation = xlRowField
.Position = 1
End With
ActiveSheet.PivotTables("LeTCDTRANSPORTEURS").AddDataField ActiveSheet. _
PivotTables("LeTCDTRANSPORTEURS").PivotFields( _
"Somme de Nombre de transport"), "Somme de Somme de Nombre de transport", xlSum
ActiveSheet.PivotTables("LeTCDTRANSPORTEURS").AddDataField ActiveSheet. _
PivotTables("LeTCDTRANSPORTEURS").PivotFields("Somme de Km Parcourus"), _
"Somme de Somme de Km Parcourus", xlSum
Range("C2").Select
ActiveSheet.PivotTables("LeTCDTRANSPORTEURS").DataPivotField.PivotItems( _
"Somme de Somme de Km Parcourus").Caption = "Km Parcourus"
Range("D2").Select
ActiveSheet.PivotTables("LeTCDTRANSPORTEURS").DataPivotField.PivotItems( _
"Somme de Somme de Nombre de transport").Caption = "Nombre de transport"
Range("B2").Select
ActiveSheet.PivotTables("LeTCDTRANSPORTEURS").CompactLayoutRowHeader = _
"Analyse Transports"
Range("B2").Select
'******************************************************************************************************************************************
Exit Sub
GestionErreur:
SupprimerLeTCDTRANSPORTEURS
On Error GoTo 0
On Error Resume Next
GoTo CreationTCD
End Sub
Sub SupprimerLeTCDTRANSPORTEURS()
On Error GoTo Sortie
Application.DisplayAlerts = False
With Sheets("JANVIER")
.Select
Set Plage = .Range(.Cells(2, 2), .Cells(.Cells(.Rows.Count, 2).End(xlUp).Row, 4))
Plage.Clear
End With
Sortie:
End Sub
VBA m'indique une erreur à ce niveau du code
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
DonneesSource, Version:=xlPivotTableVersion15). _
CreatePivotTable TableDestination:="JANVIER!R2C2", TableName:= _
"LeTCDTRANSPORTEURS", DefaultVersion:=xlPivotTableVersion15
"erreur definie par l'application ou par l'objet"
Une idée pour m'aider ?
Merci :)
23 juil. 2015 à 14:04
Je viens d'utiliser ton lien qui a l'air de répondre parfaitement à mes attentes. J'ai cependant un petit blocage, peut être pourras tu m'aider...
Voici le code reprise dans ton fichier, que j'ai cherché à adapter au mien:
J'ai le message d'erreur suivant : Argument ou appel de procédure incorrect. Le débogage me surligne la partie suivante :
Une idée de ce que j'ai mal fait ?
merci pour ton aide