XL 2016 Tableau croisé dynamique sur plusieurs feuilles

toni89

XLDnaute Nouveau
Bonjour,
J'aimerais savoir si il est possible d'inclure un tdc a mon fichier pour gérer plus facilement les données?
en vous remerciant d'avance pour votre aide.
le but étant d'avoir un tdc sur la colonne Noms prénoms , jours de présence et nom de la classe ainsi que la colonne de jours de présence par élève?
Toni
 

Pièces jointes

  • EFFECTIF VIERGE - 2019-2020.xlsm
    355.2 KB · Affichages: 11
Dernière édition:

sousou

XLDnaute Barbatruc
Bonjour.
Sans finaliser complètement ta demande, je te propose dans le fichier joint une piste pour obtenir les résultats que tu souhaites
Si j'ai bien compris ton fichier!
j'ajoute deux feuilles 'parametres' et 'tcd'
dans paramètres je liste toutes le classes
la macro mestcd() va rechercher tous les élèves de chaque classe et va construire dans la feuille tcd l'ensmble des informations.
Tu n'as plus qu'a y mettre un tcd
 

Pièces jointes

  • EFFECTIF VIERGE - 2019-2020.xlsm
    380.5 KB · Affichages: 8

toni89

XLDnaute Nouveau
Bonjour.
Sans finaliser complètement ta demande, je te propose dans le fichier joint une piste pour obtenir les résultats que tu souhaites
Si j'ai bien compris ton fichier!
j'ajoute deux feuilles 'parametres' et 'tcd'
dans paramètres je liste toutes le classes
la macro mestcd() va rechercher tous les élèves de chaque classe et va construire dans la feuille tcd l'ensmble des informations.
Tu n'as plus qu'a y mettre un tcd


bonjour,
je vous remercie, pour votre aide.
j'ai rajouter une colonne supplémentaire dans la macro, j'aimerais quelle soie automatique lors du changement d'une valeur sur l'une des classes.
seriez vous en mesure de trouver une solution.
bien cordialement
 

Pièces jointes

  • EFFECTIF VIERGE - 2019-2020 (3).xlsm
    379.2 KB · Affichages: 7

sousou

XLDnaute Barbatruc
re
je crois comprendre que tu vaux ajouter la colonne ak
Cette dernière étant une formule tu dois faire un collagespecial
modifie comme ceci.

.Range("a1").Offset(0, 0) = classe
.Range("a1").Offset(0, 1) = n
.Range("a1").Offset(0, 2) = n.Offset(0, 1)
n.Offset(0, 36).Copy
.Range("a1").Offset(0, 3).PasteSpecial (xlPasteValues)
.Range("a1:d1").Insert (xlDown)
 

toni89

XLDnaute Nouveau
Oui j'ai besoin des données de la colonne ak
J'ai une erreur sur la macro.
j'espère ne pas abusé de votre temps.
merci pour votre aide.

re
je crois comprendre que tu vaux ajouter la colonne ak
Cette dernière étant une formule tu dois faire un collagespecial
modifie comme ceci.

.Range("a1").Offset(0, 0) = classe
.Range("a1").Offset(0, 1) = n
.Range("a1").Offset(0, 2) = n.Offset(0, 1)
n.Offset(0, 36).Copy
.Range("a1").Offset(0, 3).PasteSpecial (xlPasteValues)
.Range("a1:d1").Insert (xlDown)
 

Discussions similaires

Réponses
15
Affichages
1 K

Statistiques des forums

Discussions
311 720
Messages
2 081 925
Membres
101 841
dernier inscrit
ferid87