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

Importer les données de plusieurs feuilles dans une seul feuille

Créer une discussion

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
L

lostheroe

XLDnaute Occasionnel
Bonjour,

Je souhaiterais a partir d'une macro pouvoir importer tout le contenu des onglets Tarif ABC + Tarif DHV + Tarif CUV dans l'onglet Base article.
En ayant juste a cliquer sur importation des articles.

Merci
 

Pièces jointes

Trier par date Trier par votes
Re : Importer les données de plusieurs feuilles dans une seul feuille

Bonsoir,

Voici une proposition :

VB: 
Sub Import()
    Dim i As Integer
    Dim rg As Range, rgP As Range
    Dim wsBase As Worksheet
    
    Set wsBase = ThisWorkbook.Sheets("Base article")
    
    ' on suppose que la base est le 1er onglet, donc on commence au 2e
    For i = 2 To Sheets.Count
        Set rg = Sheets(i).Range("A2:D" & Sheets(i).Range("D65536").End(xlUp).Row)
        Set rgP = wsBase.Range("A65536").End(xlUp).End(xlUp).Offset(1, 0)   'on doit faire 2x .end(xlup) parce que c'est une table
        rg.Copy rgP
    Next i
End Sub

A+
 
Vote positif 0 Vote négatif
Re : Importer les données de plusieurs feuilles dans une seul feuille

Bonjour Grand chaman,

La macro marche bien. Par contre ci on l'a relance une deuxième fois ça marche plus.
Je pense qu'il faudrait effacer l'ensemble du contenu de la feuille Base d'article a chaque lancement de la macro.
Et une petite question subsidiaire. Ci l'on a plus de 3 onglet d'article a importer que faut il modifier dans la macro.

@+
 
Vote positif 0 Vote négatif
Re : Importer les données de plusieurs feuilles dans une seul feuille

Bonjour,

Voici la macro modifiée qui efface les données de l'onglet Base au départ.
L'importation des données commence au 2e onglet et se rend jusqu'au dernier (Sheets.Count). Donc, les données de toutes les onglets sont importées (sauf le 1er). S'il y a des onglets que tu ne veux pas importer les données, tu devras ajouter une condition dans la boucle "For i = ...", en vérifiant le nom de l'onglet par exemple.


VB: 
Sub Import()
    Dim i As Integer
    Dim rg As Range, rgP As Range
    Dim wsBase As Worksheet
    
    Set wsBase = ThisWorkbook.Sheets("Base article")
    
    'effacer les données existantes à partir de la ligne 2
    wsBase.Range("A2:D" & wsBase.Range("D65536").End(xlUp).Row).ClearContents
    
    ' on suppose que la base est le 1er onglet, donc on commence au 2e et on se rend au dernier
   For i = 2 To Sheets.Count
        Set rg = Sheets(i).Range("A2:D" & Sheets(i).Range("D65536").End(xlUp).Row)
        Set rgP = wsBase.Range("A65536").End(xlUp).End(xlUp).Offset(1, 0)   'on doit faire 2x .end(xlup) parce que c'est une table
       rg.Copy rgP
    Next i
End Sub

A+
 
Vote positif 0 Vote négatif
Re : Importer les données de plusieurs feuilles dans une seul feuille

Re-bonjour Grand chaman,
J'aurais encore besoin de tes services.
Je souhaiterais arrondir les prix de l'ensemble de la colonne B à la valeur supérieure.
J'ai bien trouver un code vba mais je sais pas comment l'insérer dans ta formule.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
If Target - Int(Target) > 0 Then
Target = Int(Target) + 1
End If
End If
End Sub
 
Vote positif 0 Vote négatif
Re : Importer les données de plusieurs feuilles dans une seul feuille

Je viens de me rendre compte qu'il y a un probleme avec la macro.
Celle ci copie bien les onglets. Mais au lieu de mettre les valeurs à la suite les une des autres.
Elles efface les valeurs des autres onglets. Ce qui fait que seul le dernier onglet est copier et coller au finale
 
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

Discussions similaires

  • Résolu(e)
Microsoft 365 Extraction d'informations sur différents onglets en partant d'une base de données
Réponses
7
Affichages
835
MBax
J
  • Question Question
XL 2016 Formule de recherche de valeurs sur deux onglets en entête et en ligne
2
Réponses
22
Affichages
688
Jaykerz
J
A
  • Question Question
Autres Excel 2007 Recherche dans plusieurs feuilles INDEX EQUIV INDIRECT DECALER
Réponses
3
Affichages
279
AD74
A
  • Résolu(e)
Microsoft 365 Récupération d'une valeur particulière dans un tableau...
Réponses
13
Affichages
417
nightswan
J
  • Résolu(e)
Microsoft 365 Impression groupée de plusieurs feuilles dans plusieurs onglets
2
Réponses
15
Affichages
782
Phil69970
S
  • Question Question
XL 2013 Copier automatiquement des données dans plusieurs onglets
Réponses
4
Affichages
685
Phil69970
  • Question Question
Microsoft 365 Création automatique de feuille et le remplissage correspondant
Réponses
8
Affichages
438
gbinforme
G
  • Résolu(e)
Microsoft 365 rendre visible automatiquement l'onglet de la feuille active sur la barre de navigation inférieure
Réponses
11
Affichages
1 K
Eric 888
F
  • Résolu(e)
XL 2019 Power Query - Importer plusieurs sources de données Excel en 1 seul fois
Réponses
3
Affichages
269
wDog66
W
A
  • Question Question
Microsoft 365 Tri sur feuille protégée +Aide protection de données déjà saisies
Réponses
2
Affichages
529
TooFatBoy
P
  • Résolu(e)
XL 2021 Comment détecter la modification MANUELLE d'une cellule dans une feuille ?
Réponses
3
Affichages
338
PRy
P
S
  • Question Question
Microsoft 365 Consolider des données de plusieurs feuilles
Réponses
2
Affichages
465
Sissou71
S
  • Question Question
importation de donnees dans un fichier excel dans un formulaire
Réponses
3
Affichages
647
kkamadou
R
  • Question Question
XL 2010 Copier des lignes de données de plusieurs feuilles dans une seule
Réponses
6
Affichages
852
AtTheOne
M
  • Question Question
Microsoft 365 Analyse de données, copie conditionnée
Réponses
7
Affichages
865
Max
M
  • Question Question
XL 2019 Regrouper les données de plusieurs feuilles dans une seule Feuille
Réponses
9
Affichages
778
Oneida
F
  • Question Question
Autres Récupération de données d'une feuille X en fonction de la valeur de cellule dans une collone d'une feuille Y
2
Réponses
27
Affichages
1 K
fanfan38
C
  • Résolu(e)
XL 2016 Automatisation de l'alimentation des cellules de plusieurs feuilles Excel (Formules : Recherchev...)
Réponses
10
Affichages
560
micheldu52
C
  • Question Question
Microsoft 365 Créer un synthèse de plusieurs onglets
Réponses
7
Affichages
806
cdric78
C
R
  • Question Question
XL 2010 Copie de données de plusieurs feuilles dans une seule
Réponses
5
Affichages
909
Renaud22
R
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…