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

création autant d'onglet que d'individu tableau

  • Initiateur de la discussion Initiateur de la discussion VINCEGR
  • 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 !

VINCEGR

XLDnaute Occasionnel
bonjour tout le monde,🙂

je joins à ce message un tableau avec différentes colonnes donc une colonne individu.
je souhaiterais un utilitaire qui me crée autant d'onglet que d'individu avec les information des colonnes liées.

ex: si 2 lignes pour "dupont" alors dans l onglet "dupont" report des 2 lignes avec le total.

merci d'avance

VinceGR
 
Dernière édition:
Re : création autant d'onglet que d'individu tableau

Après vérifs :
Changer
Code:
With Sheets("a")
    Drlng = .Range("A" & Application.Rows.Count).End(xlUp).Row
    .Range("K2:K" & Drlng).FormulaLocal = "=SI(J2<>"""";((C2+I2)/((C2+I2)-J2))-1;"""")" '<==
    .Range("L" & Drlng + 1).FormulaLocal = "=I" & Drlng & "-H" & Drlng
    .Outline.ShowLevels RowLevels:=0, ColumnLevels:=1
End With
Par
Code:
With Sheets("a")
    Drlng = .Range("A" & Application.Rows.Count).End(xlUp).Row
    .Range("K2:K" & Drlng).FormulaLocal = "=SI(J2<>"""";((C2+I2)/((C2+I2)-J2))-1;"""")" '<==
    .Range("L" & Drlng + 1).FormulaLocal = "=I" & Drlng & "-H" & Drlng
End With
Et ajouter avant le End Sub
Code:
With Sheets("a")
    .Outline.ShowLevels RowLevels:=0, ColumnLevels:=1
End With
Cordialement
 
Re : création autant d'onglet que d'individu tableau

Re
J'étais en train de refaire une version, code néttoyé, plus de fonction LastRow, et révision du problème des colonnes masquées (plantage en cas de création des fichiers séparés)
Regarde et dis moi.
Cordialement
 

Pièces jointes

Re : création autant d'onglet que d'individu tableau

Décidément, il est temps que les congés arrivent 😱
Il faut remplacer
Code:
MsgBox Base
Par
Code:
Base = ActiveWorkbook.Name
Désolé, un suppr trop rapide... sur la mauvaise ligne
Cordialement
 
Re : création autant d'onglet que d'individu tableau

Re
La, je pense, dernière version :
Colonne K: la ligne total à la même formule que les autres cellules
Colonne L : La ligne en dessous de la ligne totale est égale à I - H
Colonnes masquées en fin de traitement
Cordialement
 

Pièces jointes

Re : création autant d'onglet que d'individu tableau

Bonjour tout le monde;
quelqu'un peut m'aider svp, voilà j'ai un tableau contient plusieurs enregistrements, je voudrai créer pour chaque enregistrement un états automatiquement dans un nouveau onglet😕, veuillez trouver ci-joint mn fichier.

Merci pour votre aide

Cordialement
 

Pièces jointes

Re : création autant d'onglet que d'individu tableau

RE efgé,

merci pour les modifs.
l'onglet "a" à bien les colonnes masquées mais pas les onglets créés et classeurs
est-ce possible ?
@+
 
Dernière édition:
Re : création autant d'onglet que d'individu tableau

Bonjour à tous,
Salut FG 🙂,

Juste pour te saluer...
Nous continuions avec notre ami DDM sur une autre discussion...

A++
A+ à tous
 
Re : création autant d'onglet que d'individu tableau

re efgé,

une fois les classeurs créés je vais dans chacun d'eux rajouter l'entête de page et le pied de page.

Je me demandais si il était possible de finaliser la procédure en indiquant sur chaque classeur créé en entête de page le nom du l'onglet créé et en pied de page le chemin ou est svg le fichier créé.

suivant le modèle joint

merci d'avance
 

Pièces jointes

Dernière édition:
- 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

V
Réponses
4
Affichages
731
VirginieO
V
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…