Trier des feuilles excel par nom

Résolu
nilangelo Messages postés 5 Date d'inscription   Statut Membre Dernière intervention   -  
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour, je cherche a trier des feuilles excel que j'importe sur un classeur (en copiant/collant les valeurs).
l'idée serait de transférer les données sur des onglets ayant un nom spécifique.
Chaque feuille importée a un nom spécifique dans la case A1.
exemple: Feuille1 A1: S17-G001701 a envoyer dans l'onglet S17-G001701
Feuille1 A1: S17-A106006 a envoyer dans l'onglet S17-A106006...
y a t'il une programmation VBA simple pour réaliser cette opération, je suis ultra novice en VBA et ça me prends un temps fou pour le faire sans macro.
Merci d'avance aux gentils répondants.
A voir également:

2 réponses

Réponse 1 / 2
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 584
 
bonsoir, voudrais-tu automatiquement renommer toutes les feuilles en fonction de la valeur en A1? 
si oui: 
Option Explicit

Public Sub nilangelo()
Dim sh As Worksheet
For Each sh In ThisWorkbook.Worksheets
    If sh.[A1] <> "" Then
        sh.Name = sh.[A1]
    End If
Next sh
End Sub
0
nilangelo Messages postés 5 Date d'inscription   Statut Membre Dernière intervention  
 
Merci pour ta réponse.
je récupère des données via un logiciel qui me génère une feuille Excel, j'aimerais classer dans des onglets ces feuilles qui n'ont pas le même nom (case a1) sur un autre Classeur.
Pour le moment je copie/colle les valeurs (16 colonnes et 600 lignes) pour avoir les données sur mon Classeur mais je souhaite en plus les "ranger" par nom (celui qui apparaît en case a1) dans un onglet pour chacun.
Exemple si je charge la feuIlle nommé "poulet" je veux quelle aie dans l onglet poulet... En chargeant canard dans l onglet canard...
Je suis sûrement pas clair car je ne arrive pas à m exprimer "programme".
Merci d avance
0
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 584 > nilangelo Messages postés 5 Date d'inscription   Statut Membre Dernière intervention  
 
as-tu essayé le code proposé?
0
nilangelo Messages postés 5 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour, oui mais ça ne fonctionne pas.. merci quand meme pour ton travail ca me donne quelques pistes pour comprendre VBA... enfin j'espere!
0
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 584 > nilangelo Messages postés 5 Date d'inscription   Statut Membre Dernière intervention  
 
"ça ne fonctionne pas"=?
message d'erreur, résultat inattendu, ?
0
nilangelo Messages postés 5 Date d'inscription   Statut Membre Dernière intervention  
 
resultat inattendu. Mais je pense que ma strategie n'est pas bonne. j'ai resolu le premier probleme du transfert de feuille, maintenant j'essaye d'utiliser la valeur de la cellule A1 pour nommer mon onglet mais l'ensemble fait 33 caracteres et je suis limité à 31.
As tu une solution a mon probleme?
Comment prendre seulement les 11 premiers caracteres de ma cellule?
Merci encore
0
Réponse 2 / 2
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
Bonjour,

voir ceci:

https://silkyroad.developpez.com/VBA/ManipulerChainesCaracteres/#LI-B
0