Trier des feuilles excel par nom

Résolu
nilangelo Messages postés 5 Statut Membre -  
yg_be Messages postés 24281 Statut Contributeur -
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 24281 Statut Contributeur 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 Statut Membre
 
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 24281 Statut Contributeur 1 584 > nilangelo Messages postés 5 Statut Membre
 
as-tu essayé le code proposé?
0
nilangelo Messages postés 5 Statut Membre
 
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 24281 Statut Contributeur 1 584 > nilangelo Messages postés 5 Statut Membre
 
"ça ne fonctionne pas"=?
message d'erreur, résultat inattendu, ?
0
nilangelo Messages postés 5 Statut Membre
 
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 8437 Statut Contributeur 729
 
Bonjour,

voir ceci:

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