Repport dans les onglets

denistoulon · 6 Octobre 2015

Bonjour à tous,

J'ai besoin de votre aide

J'ai un tableau ci-joint ou l'on trouve plusieurs vendeurs (en colonne A)
Je voudrai pour analyse faire un onglet par nom et que chaque mois se reportent les informations de B à F (chaque mois nouvelle base)
Comment je peux faire ? J'ai cherché à mettre pleins de formules mais j'ai alourdi le fichier jusqu'à 25 mo!
Je suis désolé je suis vraiment nul, je cherche depuis 2 jours entier!

Merci pour vos réponses

decricri · 6 Octobre 2015

Re : Repport dans les onglets

Bonjour,
Un petit lien sur la gestion des onglets qui t'explique comment le faire en VBA

Les onglets

CBernardT · 6 Octobre 2015

Re : Repport dans les onglets

Bonjour denistoulon, decricri,

Une solution par macro.

- A chaque changement d'une valeur de cellule de la feuille "Base", la macro est activée et met à jour les tableaux individuels.

- Si l'une des personnes présentent dans la feuille "Base" n'a pas de feuille personnelle, celle-ci est créée et mise à jour.

-La feuille "SER" est le modèle de feuille personnelle, à ne pas supprimer.

decricri · 7 Octobre 2015

Re : Repport dans les onglets

Jolie boucle. Merci pour l'exemple ça pourra reservir.

cdt,

denistoulon · 7 Octobre 2015

Re : Repport dans les onglets

Bravo Bernard tu es un boss cela me suffit amplement, merci.
Vu ton niveau puis-je me permettre de compliquer "un petit peu" .
Si par exemple il y a eu une erreur de frappe et que ce n'est plus Pierre (par excemple) mais Renée est-il possible que ta macro suprime la ligne déjà injectée à Pierre? Parce que ta macro crait bien Renée mais laisse la ligne à Pierre.
En tout cas merci pour ton savoir.

CBernardT · 7 Octobre 2015

Re : Repport dans les onglets

Bonsoir denistoulon,

Bug éliminé par suppression de toutes les feuilles des personnes avant de les recréer et d'y transférer les données.

BOISGONTIER · 7 Octobre 2015

Re : Repport dans les onglets

Bonsoir,

Code:

Sub Extrait()
  Set f = Sheets("Base")
  Application.DisplayAlerts = False
  Application.ScreenUpdating = False
  '--- Liste des noms
  f.[A1:F10000].AdvancedFilter Action:=xlFilterCopy, CopyToRange:=f.[I1], Unique:=True
  For Each c In f.Range("I2:I" & f.[i65000].End(xlUp).Row)   ' pour chaque nom
     f.[i2] = c.Value
     On Error Resume Next
     Sheets(c.Value).Delete
     On Error GoTo 0
     Sheets.Add After:=Sheets(Sheets.Count)   ' création
     ActiveSheet.Name = c.Value
     '-- extraction
     f.[A1:F10000].AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=f.[i1:i2], CopyToRange:=[A1]
   Next c
End Sub

Gestion des onglets et des classeurs

JB

denistoulon · 7 Octobre 2015

Re : Repport dans les onglets

Bernard tu es un champion merci!
Je vais osé te demander un tout petit truc, puis-je automatiquement reporter sur la feuille crée (par exemple en a1) le nom de l'onglet? Comme ça je peux faire une belle présentation.
Merci encore et bonne nuit

CBernardT · 8 Octobre 2015

Re : Repport dans les onglets

Bonjopur denistoulon,

Une ligne de code et petit truc exécuté

Repport dans les onglets

denistoulon

XLDnaute Junior

Pièces jointes

decricri

XLDnaute Nouveau

CBernardT

XLDnaute Barbatruc

Pièces jointes

decricri

XLDnaute Nouveau

denistoulon

XLDnaute Junior

CBernardT

XLDnaute Barbatruc

Pièces jointes

BOISGONTIER

XLDnaute Barbatruc

Pièces jointes

denistoulon

XLDnaute Junior

CBernardT

XLDnaute Barbatruc

Pièces jointes

Discussions similaires