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

VBA: Création d'onglets et extraction des données

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Nnaks
  • 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 !

S'inscrire
N

Nnaks

Guest
Bonjour,

Je sollicite votre aide dans l'espoir de pouvoir adapter une macro existante sur un premier fichier à un autre fichier plus compliqué et dont la bade de données est plus importante.

L'idée étant de pouvoir créer autant d'onglets que de nombre de "travées" existantes, et d'y affecter dans chacun des onglets l'ensemble des codes articles associés.

Des zones de texte explicitent mieux le problème sur les fichiers.

En pièce jointe, le fichier "A traiter" sur lequel j'aimerai affecter ma macro existante sur le fichier "Nnaks Dispatche". J'ai essayé pas mal de combinaisons mais c'est un vrai casse tête.

Si l'un d'entre vous pouvait m'aider, je lui en serai très reconaissant.

Je vous remercie d'avance pour votre aide.
 

Pièces jointes

Trier par date Trier par votes
Re : VBA: Création d'onglets et extraction des données

Bonjour,

Les formules sont sur le modèle.

Code: 
Sub Extrait()
  Set f = Sheets("base")
  f.[ag1] = f.[ad1]
  f.[A1:AD10000].AdvancedFilter Action:=xlFilterCopy, CopyToRange:=f.[ag1], Unique:=True
  For Each c In f.Range("AG2", f.[AG65000].End(xlUp)) ' pour chaque travée
    On Error Resume Next
    temp = CStr(c.Value)
    Sheets(temp).Delete
    On Error GoTo 0
    Sheets("modèle").Copy After:=Sheets(Sheets.Count)
    ActiveSheet.Name = c.Value
    ligne = 2
    For i = 2 To f.[A65000].End(xlUp).Row
      If CStr(f.Cells(i, "AD")) = temp Then
        Cells(ligne, "A") = f.Cells(i, "AD")
        Cells(ligne, "J") = f.Cells(i, "H")
        Cells(ligne, "I") = f.Cells(i, "G")
        ligne = ligne + 1
      End If
    Next i
  Next c
End Sub

Voir pj

JB
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : VBA: Création d'onglets et extraction des données

Excellent!!

Vous m'avez sauvé chers amis internautes! Je vous remercie énormément pour votre aide précieuse!
Merci! Merci! Merci!
pierrejean, BOISGONTIER, gilbert_RGI et david84! Merci beaucoup!

Je vous souhaite de passer une bonne journée!
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

S
  • Résolu(e)
XL 2021 Export et transformation de plusieurs fichiers de données automatique
Réponses
5
Affichages
544
sandydavneo
S
G
  • Question Question
Microsoft 365 Choix et export de données (Résolu)
Réponses
4
Affichages
964
GClaire
G
L
  • Question Question
Autres Copier des données d’un fichier sans l’ouvrir juste en le sélectionnant via un UserForm
Réponses
6
Affichages
940
Liner77
L
C
  • Question Question
XL 2016 Copier et coller une valeur dans plusieurs Listobjects d'une même feuille
Réponses
5
Affichages
579
chris
  • Question Question
XL 2021 Intégration de données et userfom
Réponses
9
Affichages
1 K
100kibou
P
  • Question Question
XL 2016 Mise en place d'une étude hebdomadaire des remarques 5S - Bascule d'information entre 3 fichiers
Réponses
10
Affichages
2 K
gbinforme
G
S
  • Résolu(e)
Microsoft 365 Gestion flotte automobile, feuille 1 "accueil" gestion des infos, feuille 2 "tableau" pour consultation"
2
Réponses
17
Affichages
2 K
Phil69970
W
  • Question Question
Extraction données par VBA
Réponses
3
Affichages
1 K
p56
  • Question Question
XL 2013 rechercher et additionner des données croisées
Réponses
12
Affichages
963
serras
R
  • Question Question
XL 2019 Ajouter des colonnes dans plusieurs feuilles avec les données en dynamique (Mise en page et données)
2
Réponses
24
Affichages
2 K
ryfalcon
R
K
  • Résolu(e)
XL 2016 Ajouter des listes sous forme base de données
Réponses
8
Affichages
1 K
kennynou
K
N
  • Question Question
XL 2019 Extraire des données texte WEB
Réponses
0
Affichages
785
nikodème
N
O
  • Question Question
XL 2013 VBA qui crée des tableaux en fonction d'une liste de données
Réponses
5
Affichages
820
onyirimba
O
L
  • Question Question
Autres Formulaire et incrémentation plusieurs bases de données
Réponses
4
Affichages
1 K
lamine12
L
L
  • Question Question
XL 2016 Horodatage sur un fichier CSV et création d'une VBA pour extraire ces données
Réponses
4
Affichages
2 K
chris
J
  • Question Question
XL 2019 MFC sur des fichiers auto générés
Réponses
12
Affichages
1 K
jui42
J
O
  • Résolu(e)
XL 2013 VBA qui copie et colle dans un autre fichier des données selon différentes conditions
Réponses
3
Affichages
1 K
onyirimba
O
L
  • Question Question
XL 2013 Création automatique d'onglets à partir d'une liste et ventilation des données correspondantes
Réponses
4
Affichages
3 K
Lexouille
L
J
  • Résolu(e)
XL 2016 vba cherche 2 valeurs dans une autre feuille et remplace des données
Réponses
9
Affichages
1 K
julien741
J
S
  • Question Question
Microsoft 365 recherche les 10 plus grandes valeurs et reporter les noms des lignes et colonne
Réponses
9
Affichages
1 K
Hasco
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…