Trier des feuilles excel par nom

Résolu/Fermé
nilangelo Messages postés 5 Date d'inscription lundi 26 février 2018 Statut Membre Dernière intervention 28 février 2018 - 26 févr. 2018 à 17:57
yg_be Messages postés 20715 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 26 novembre 2022 - 28 févr. 2018 à 08:04
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.

2 réponses

yg_be Messages postés 20715 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 26 novembre 2022 1 260
Modifié le 26 févr. 2018 à 19:18
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 lundi 26 février 2018 Statut Membre Dernière intervention 28 février 2018
26 févr. 2018 à 19:57
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 20715 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 26 novembre 2022 1 260 > nilangelo Messages postés 5 Date d'inscription lundi 26 février 2018 Statut Membre Dernière intervention 28 février 2018
26 févr. 2018 à 20:05
as-tu essayé le code proposé?
0
nilangelo Messages postés 5 Date d'inscription lundi 26 février 2018 Statut Membre Dernière intervention 28 février 2018
27 févr. 2018 à 06:26
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 20715 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 26 novembre 2022 1 260 > nilangelo Messages postés 5 Date d'inscription lundi 26 février 2018 Statut Membre Dernière intervention 28 février 2018
27 févr. 2018 à 10:06
"ça ne fonctionne pas"=?
message d'erreur, résultat inattendu, ?
0
nilangelo Messages postés 5 Date d'inscription lundi 26 février 2018 Statut Membre Dernière intervention 28 février 2018
27 févr. 2018 à 13:21
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
cs_Le Pivert Messages postés 7856 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 25 novembre 2022 723
27 févr. 2018 à 15:35
0