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

XL 2016 Consolidation de données issues de plusieurs feuilles

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

L_Wa

XLDnaute Nouveau
Bonjour à tous,

Dans un tableur, je souhaite consolider les données de plusieurs feuilles (même plage par exemple A8:J10). Le code fonctionne avec une seule feuille mais pas lorsque j'essaie de rechercher dans plusieurs feuilles (voir tableur en PJ). Le code en question est le suivant :

Sub essairech()

' essairech Macro

Worksheets("Feuil3").Select
Range("A8:J10").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("RECHERCHE").Select
Range("A4").Select
ActiveSheet.Paste

End Sub

Dans la page RECHERCHE, le bouton "consolider chimie" me permet d'aller chercher les données de la Feuil3 présentes dans la plage A8:J10.

Dès que j'essaie de remplacer "Feuil3" par "Chimie1 to Chimie2" qui me servent de repères dans le tableur (début et fin des onglets chimie) cela ne fonctionne pas.

Avez-vous une idée ?

Si c'est possible je souhaite éviter de consolider les lignes vides

D'avance merci
 

Pièces jointes

Trier par date Trier par votes
Bonjour L_Wa,
L'onglet RECHERCHE doit rester en 1ere place
La macro prend toutes les autres pages.
Bruno
VB: 
Sub essairech()
'RECHERCHE doit être en 1er
For onglet = 2 To Sheets.Count
lig = Sheets("RECHERCHE").[A65000].End(3).Row + 1
bas = Sheets(onglet).[A65000].End(3).Row
If bas > 7 Then
Sheets(onglet).Range("A8:J" & bas).Copy
Sheets("RECHERCHE").Range("A" & lig).PasteSpecial
End If
Next
Application.CutCopyMode = False
End Sub
 
Vote positif 0 Vote négatif
Bonjour @youky(BJ)

Tout d'abord merci ! Le problème avec ce code est que je consolide toutes les autres feuilles (voir PJ) :

Je souhaite uniquement consolider les onglets bleus (consolidation chimie)

La macro a consolidé également les données présentes dans l'onglet rouge
 

Pièces jointes

  • consolidation.png
    46.2 KB · Affichages: 26
Vote positif 0 Vote négatif
Re,
Pas vu de couleurs dans le fichier.
Je prends seulement si le nom de l'onglet commence par "Chimie"
Bruno
VB: 
Sub essairech()
dim onglet,bas,lig
For onglet = 1 To Sheets.Count
If Left(Sheets(onglet).Name, 6) = "Chimie" Then
bas = Sheets(onglet).[A65000].End(3).Row
If bas > 7 Then
lig = Sheets("RECHERCHE").[A65000].End(3).Row + 1
If lig < 3 Then lig = 3
Sheets(onglet).Range("A8:J" & bas).Copy
Sheets("RECHERCHE").Range("A" & lig).PasteSpecial
End If
End If
Next
Application.CutCopyMode = False
End Sub
 
Vote positif 0 Vote négatif
Merci @youky(BJ) ! Cela me semble fonctionner, dernier sujet :

Je souhaite aussi récupérer le nom du système présente dans la plage G3:J3 et dans l'idéal le copier avant les lignes relatives aux interventions. j'ai ajouté la ligne en gras à votre code :

Sub essairech()
Dim onglet, bas, lig
For onglet = 1 To Sheets.Count
If Left(Sheets(onglet).Name, 6) = "Chimie" Then
bas = Sheets(onglet).[A65000].End(3).Row
If bas > 7 Then
lig = Sheets("RECHERCHE").[A65000].End(3).Row + 1
If lig < 3 Then lig = 3


Sheets(onglet).Range("G3:J3").Select

Sheets(onglet).Range("A8:J" & bas).Copy

Selection.Copy
Sheets("RECHERCHE").Range("A" & lig).PasteSpecial


End If
End If

Next
Application.CutCopyMode = False
End Sub

Pensez-vous que cela fonctionne ?
 
Vote positif 0 Vote négatif
Re,
Il faut éviter les select aussi les cellules fusionnées.
Voici une nouvelle macro documentée.
Bruno
VB: 
Sub essairech()
dim onglet,bas,lig
For onglet = 1 To Sheets.Count'boucle sur tous les onglets
If Left(Sheets(onglet).Name, 6) = "Chimie" Then 'si les 6 1ere lettre
bas = Sheets(onglet).[A65000].End(3).Row 'derligne
If bas > 7 Then
lig = Sheets("RECHERCHE").[A65000].End(3).Row + 1 'derligne+1 pour écrire
If lig < 3 Then lig = 3
Sheets("RECHERCHE").Cells(lig,1)=Sheets(onglet).Range("G3")'on écrit direct
Sheets(onglet).Range("A8:J" & bas).Copy 'on fait un copié
Sheets("RECHERCHE").Range("A" & lig+1).PasteSpecial 'on colle une ligne plus bas
End If
End If
Next
Application.CutCopyMode = False
End Sub
 
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

G
  • Résolu(e)
Microsoft 365 Consolidation données depuis des feuilles
Réponses
2
Affichages
295
gpion
G
X
  • Question Question
XL 2021 Transformation de données sur une ligne en plusieurs lignes
Réponses
5
Affichages
117
chris
  • Question Question
XL 2019 Regrouper les données de plusieurs feuilles dans une seule Feuille
Réponses
9
Affichages
511
Oneida
  • Résolu(e)
XL 2021 Exécuter une macro sur plusieurs feuilles
Réponses
9
Affichages
387
micie1509
S
  • Question Question
Microsoft 365 Consolider des données de plusieurs feuilles
Réponses
2
Affichages
127
Sissou71
S
S
  • Résolu(e)
Microsoft 365 VBA Concaténer contenu de plusieurs cellules dans une seule avec séparateurs / évolutifs
Réponses
3
Affichages
114
spike29
S
G
  • Question Question
XL 2019 Sélectionner un fichier pour mettre à jour une base de données
Réponses
3
Affichages
211
sylvanu
S
  • Résolu(e)
XL 2013 Questions déjà traitée ici mais... (Insérer cellule dans nom de PDF)
Réponses
10
Affichages
80
StéphaneDeLà
S
R
  • Question Question
XL 2010 Copier des lignes de données de plusieurs feuilles dans une seule
Réponses
6
Affichages
557
AtTheOne
R
  • Question Question
XL 2010 Effacement de données dans plusieurs feuilles de calcul dans un même classeur
Réponses
3
Affichages
581
robbynasch
R
R
  • Question Question
XL 2010 Copie de données de plusieurs feuilles dans une seule
Réponses
5
Affichages
667
Renaud22
R
Z
  • Question Question
XL 2016 Macro pour copier plusieurs cellules vers un fichier :(
Réponses
3
Affichages
348
zendb
Z
S
  • Résolu(e)
XL 2016 Coller nom classeur sur plage cellules
Réponses
9
Affichages
98
safranien
S
P
  • Question Question
XL 2019 Copier des cellules d'une feuille sur une autre
Réponses
2
Affichages
620
phoceenjo
P
P
  • Résolu(e)
XL 2021 Besoin d'aide pour copier/coller données de plusieurs classeurs
2
Réponses
20
Affichages
805
Pac41240
P
S
  • Résolu(e)
XL 2016 copier des données d'une feuille à une autre selon critères et protection de la feuille 1
Réponses
6
Affichages
515
steph_29120
S
L
  • Résolu(e)
XL 2016 Pb publipostage conditionnelle avec base de données Excel
Réponses
1
Affichages
326
Linda42
L
G
  • Résolu(e)
XL 2016 Pb de tri et sous totaux
2
Réponses
27
Affichages
334
Gestionnaire_rh
G
D
  • Résolu(e)
Microsoft 365 Filtre avancé VBA multi-critères
Réponses
14
Affichages
520
DELHOMME
D
Z
  • Question Question
Microsoft 365 Segment commun avec plusieurs onglets source de données
Réponses
12
Affichages
596
Zazagally
Z
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…