XL 2016 MACRO ONGLET

[mcj1997]

Bonjour,

J'ai besoin d'aide pour automatiser une manipulation, en PJ.

Merci d'avance,

Cordialement,

 

[Florian53]

Bonjour mcj1997,

je suis un peu Néophyte dans le monde du VBA mais voici un fichier qui je pense fonctionne correctement,
Je pense que ce code peut être très largement simplifiable par des PRO VBA ( très nombreux sur ce forum) .

Cordialement

 

[mcj1997]

merci c'est super ! maintenant il me reste à l'adapter à mon fichier.

Pour un Néophyte CHAPEAU !

Cordialement,

 

[gosselien]

Bonjour,

s'il y a beaucoup d'onglets à créer

P.

 

[mcj1997]

Bonjour,

Je vois ce message de mon téléphone portable et ne peut voir le contenu, toutefois merci d’avance.

Aussi je comptais poster un nouveau message pour savoir s’il n’y aurait pas un moyen qui permettrait à la macro de copier automatiquement les têtes de colonnes sans avoir à les rentrer colonne par colonne dans le programme VBA ceci afin d’adapter la macro à différents tableaux.

Merci d’avance

 

[gosselien]

Re,

dans mon code il copie les entêtes de A à D , il "suffit" de changer un peu cette ligne; l'autre partie prend 6 colonne déjà

Feuil1.[A1:D1].Copy [a1] 'copie des titres vers la nouvelle feuille

P.

 

[mcj1997]

Merci pour votre contribution c'est parfait.
Je cherche à comprendre le principe du programme pour l'adapter. Par exemple dans mon fichier les onglets à nommer sont à partir de la colonne B au lieu de A en gardant la même structure du tableau copié sur tous les onglets.
J'ai essayé en modifiant la ligne suivante ou j'ai remplacé le A par B mais cela n'est pas bon, mes onglets sont bien nommés mais je n'ai plus les infos de la colonne A.
Bd = f.range("B2:F"& f.[B65000].End(xlUp).Row)

Merci d'avance,

 

[gosselien]

Bonjour,

' on prends de la colonne B à la colonne F pour mettre dans un tableau mémoire
Bd = f.Range("B2:F" & f.[B65000].End(xlUp).Row) 
'  et on trouve  où est la dernière ligne de la colonne B
'
'

' et plus loin
Feuil1.[B1:F1].Copy [a1] 'copie des titres vers la nouvelle feuille ' on copie de la B1 à F1 vers la feuille

P.

 

[mcj1997]

En faisant ainsi, la colonne A (agence) est supprimée, ma cible c'est de conserver le tableau initial mais en nommant les onglets avec les éléments de la colonne B.
A ce stade, c'est ok pour les onglets mais la colonne A manque.

Merci

 

[gosselien]

En faisant ainsi, la colonne A (agence) est supprimée, ma cible c'est de conserver le tableau initial mais en nommant les onglets avec les éléments de la colonne B.
A ce stade, c'est ok pour les onglets mais la colonne A manque.

Merci

Bd = f.Range("B2:F" & f.[B65000].End(xlUp).Row)

le B2:F indique que le tableau commence à la colonne B

 

[mcj1997]

Ok donc je ne dois pas toucher à cette ligne, par contre quelle ligne commande le nom des ongles actuellement le programme fait référence à la colonne A, ou modifier pour copier le nom des feuilles dans la colonne B ?

Merci d'avance,

 

[mcj1997]

Bonsoir,

Je n'arrive pas à nommer les onglets et fonction des éléments de la colonne B tout en gardant la structure complète (4 colonnes) du tableau ?

Merci d'avance,

 

[gosselien]

Bonsoir,

Je n'arrive pas à nommer les onglets et fonction des éléments de la colonne B tout en gardant la structure complète (4 colonnes) du tableau ?

Merci d'avance,

Alors..renvoie un fichier identique sans données sensibles
P.

 

[mcj1997]

Dans le fichier joint, je souhaite nommer les onglets avec les noms présents dans la colonne B.

Merci d'avance,

 

[gosselien]

Bonjour,

il faut alors mettre la 2e colonne en clé de dico:
....
...
For i = 1 To UBound(Bd): d(Bd(i, 2)) = d(Bd(i, 2)) & i & ",": Next ' dictionnaire
....
...
"i, 2" au lieu de "i,1"

P.