fusion de 5 onglets

H

heho13

XLDnaute Occasionnel
Bonjour,

je n'arrive pas à fusionner les onglets, je ne comprends pas la macro

Pouvez vous regarder ?

je ne cherche pas à supprimer les doublons.

merci
 

Pièces jointes

  • LPM.xlsm
    361.1 KB · Affichages: 54
Trier par date Trier par votes
DoubleZero

DoubleZero

XLDnaute Barbatruc
Re : fusion de 5 onglets

Bonjour, heho13, le Forum,

La macro ne peut agir à cause de l'appellation erronée des onglets.

Remplacer celle-ci :

Code: 
Sub synthese()
  Set onglet1 = Sheets("Vm")
  Set onglet2 = Sheets("VC")
  Sheets("recap").[A2:D10000].ClearContents
  Range(onglet1.[A2], onglet1.[A65000].End(xlUp).Offset(0, 2)).Copy Sheets("recap").[A2]
  For Each c In Range(onglet2.[A2], onglet2.[A65000].End(xlUp))
    p = Application.Match(c, [A:A], 0)
    If IsError(p) Then
      [A65000].End(xlUp).Offset(1, 0) = c
      [A65000].End(xlUp).Offset(0, 1) = c.Offset(0, 1)
      [A65000].End(xlUp).Offset(0, 3) = c.Offset(0, 2)
    Else
      [A1].Offset(p - 1, 3) = c.Offset(0, 2)
    End If
  Next c
End Sub

par celle-là :

Code: 
Sub synthese()
  Set onglet1 = Sheets("VM")
  Set onglet2 = Sheets("VC")
  Sheets("RECAP").[A2:D10000].ClearContents
  Range(onglet1.[A2], onglet1.[A65000].End(xlUp).Offset(0, 2)).Copy Sheets("RECAP").[A2]
  For Each c In Range(onglet2.[A2], onglet2.[A65000].End(xlUp))
    p = Application.Match(c, [A:A], 0)
    If IsError(p) Then
      [A65000].End(xlUp).Offset(1, 0) = c
      [A65000].End(xlUp).Offset(0, 1) = c.Offset(0, 1)
      [A65000].End(xlUp).Offset(0, 3) = c.Offset(0, 2)
    Else
      [A1].Offset(p - 1, 3) = c.Offset(0, 2)
    End If
  Next c
End Sub

A bientôt :)
 
Vote positif 0 Vote négatif
Staple1600

Staple1600

XLDnaute Barbatruc
Re : fusion de 5 onglets

Bonjour à tous

EDITION: Bonjour 00 ;)
On traite cinq onglets ou deux ? Le titre du fil dit 5, la macro dit 2 :confused:

heho1313
Quelles lignes ne comprends-tu pas ?
On voit déjà que la macro ne s'occupe que de deux onglets (c'est écrit dans le code ;) )
Donc pour 5 onglets il faudra adapter.
Tu veux faire quoi au juste ?
Copier les données des 5 onglets à "la queue leu leu" dans une feuille Recap?
Code: 
Sub synthese()
  Set onglet1 = Sheets("Vm")
  Set onglet2 = Sheets("VC")
  Sheets("recap").[A2:D10000].ClearContents
  Range(onglet1.[A2], onglet1.[A65000].End(xlUp).Offset(0, 2)).Copy Sheets("recap").[A2]
  For Each c In Range(onglet2.[A2], onglet2.[A65000].End(xlUp))
    p = Application.Match(c, [A:A], 0)
    If IsError(p) Then
      [A65000].End(xlUp).Offset(1, 0) = c
      [A65000].End(xlUp).Offset(0, 1) = c.Offset(0, 1)
      [A65000].End(xlUp).Offset(0, 3) = c.Offset(0, 2)
    Else
      [A1].Offset(p - 1, 3) = c.Offset(0, 2)
    End If
  Next c
End Sub

PS: As-tu demandé assistance à Xavier M. ? (auteur du fichier)
 
Dernière édition:
Vote positif 0 Vote négatif
Staple1600

Staple1600

XLDnaute Barbatruc
Re : fusion de 5 onglets

Re

00
La casse semble ne pas être un problème ;)
Sub testcasse()
MsgBox Sheets("VM").Name & " Casse pas OK"
MsgBox Sheets("Vm").Name & " Casse OK"
End Sub

heho1313
Tu as regardé dans les archives du forum?
Car il y a plein de discussions qui causent de ta question.
Il suffirait d'adapter l'existant à ta propre problématique.
 
Dernière édition:
Vote positif 0 Vote négatif
DoubleZero

DoubleZero

XLDnaute Barbatruc
Re : fusion de 5 onglets

Re-bonjour, bonjour Staple1600 :D,

Staple1600 à dit:
...On traite cinq onglets ou deux ? Le titre du fil dit 5, la macro dit 2 :confused:...
Cliquez pour agrandir...

J'ai pensé comme toi... et suggère ce code :

Code: 
Option Explicit
Sub Onglets_fusionner()
    Dim o As Worksheet
    Application.ScreenUpdating = False
    Sheets("RECAP").Range(Range("a2"), Range("j2").End(xlDown)).Clear
    For Each o In Worksheets
        If o.Name <> "RECAP" Then
            With o
                .Range(.Range("a3"), .Range("j3").End(xlDown)).Copy Destination:=Sheets("RECAP").Range("a65536").End(xlUp)(2)
            End With
        End If
    Next
    Application.ScreenUpdating = True
End Sub

A bientôt :)
 
Vote positif 0 Vote négatif
Staple1600

Staple1600

XLDnaute Barbatruc
Re : fusion de 5 onglets

Re

On est dimanche, on peut donc refaire ce qui a déjà été maintes fois ici publié. ;)
Une autre façon de l'écrire
(Au préalable, on aura pris soin de copier les lignes d’entêtes sur la feuille RECAP
donc une ligne vide, plus la ligne "violette")

PS: Test OK sur le fichier exemple, donc inutile de dire que cela ne fonctionne pas
ou alors écrire: je n'arrive pas à faire fonctionner sur mon pc ;)

Code: 
Sub a()
Dim ws As Worksheet, dl&, dlig&
For Each ws In Worksheets
If Len(ws.Name) <= 3 Then
dl = ws.Cells(Rows.Count, 1).End(xlUp).Row
dlig = Sheets("RECAP").Cells(Rows.Count, 1).End(xlUp).Row + 1
ws.Cells(3, 1).Resize(dl, 10).Copy Sheets("RECAP").Cells(dlig, 1)
End If
Next ws
End Sub

00:
Avec le xlDown si il y un trou* dans le tableau, il y aura des surprises ;)
(*: des lignes vides , ce qui crée de zones non contiguës)
 
Dernière édition:
Vote positif 0 Vote négatif
Staple1600

Staple1600

XLDnaute Barbatruc
Re : fusion de 5 onglets

Re

heho13
Tu n'as pas essayé ma proposition?
Il y aussi un message d'erreur? ;)


Sinon je me substitue momentanément à 00
o pour objet, je presume ;)

Essaies avec cette petite modif (ou essaies ma macro -> voir plus bas dans le fil)
(Il restera encore ici le possible souci du XlDown ;) )
Code: 
Sub Onglets_fusionnerII()
    Dim o As Worksheet
    Application.ScreenUpdating = False
    Sheets("RECAP").Rows("3:65536").Clear
    For Each o In Worksheets
        If o.Name <> "RECAP" Then
            With o
                .Range(.Range("a3"), .Range("j3").End(xlDown)).Copy Destination:=Sheets("RECAP").Range("a65536").End(xlUp)(2)
            End With
        End If
    Next
    Application.ScreenUpdating = True
End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
DoubleZero

DoubleZero

XLDnaute Barbatruc
Re : fusion de 5 onglets

Re-bonjour,

heho13 à dit:
... j'ai erreur de syntaxe : Dim o As Worksheet, le o correspond à quoi ?..
Cliquez pour agrandir...

En tête de procédure, la mention :

Code: 
Option Explicit

rend la déclaration des variables obligatoire.

C'est la raison pour laquelle il est précisé, dans le code :

Code: 
Dim o As Worksheet

Pour en savoir davantage sur le thème des variables, je te suggère de consulter ce lien.

A bientôt :)
 
Vote positif 0 Vote négatif

Discussions similaires

L
  • Question
XL 2016 Fusionner PDF
Réponses
1
Affichages
170
kiki29
kiki29
C
  • Résolu(e)
Microsoft 365 recherche valeur dans plusieurs onglets plusieurs critères
Réponses
2
Affichages
114
c.azzopardi@free.fr
C
W
  • Question
Microsoft 365 Fusionne les cellules vides parmi celle avec des valeurs
Réponses
4
Affichages
197
woira95
W
F
  • Question
XL 2016 Onglets très masqués VBA à chaque réouverture de fichier
Réponses
4
Affichages
132
Fanny754
F
E
  • Résolu(e)
Microsoft 365 Excel Power query Problème fusion
2
Réponses
27
Affichages
401
goube
goube
L
  • Question
Microsoft 365 Macro choisir onglet à exporter dans un nouveau classeur
Réponses
5
Affichages
359
l.et.lilou
L
B
  • Question
XL 2016 Formule Recherche d'une cellule dans plusieurs onglets différents
Réponses
2
Affichages
193
oguruma
oguruma
E
  • Question
Microsoft 365 Afficher onglets quand toutes les questions sont répondues
2
Réponses
20
Affichages
562
Erakmur
E
P
  • Question
Autres Ne pas reporter données si feuille masquée
Réponses
7
Affichages
206
pamela85200
P
P
  • Résolu(e)
Autres Création automatique de feuilles/onglets
Réponses
7
Affichages
259
pamela85200
P

Membres actuellement en ligne

13 membres et 118 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 195
Messages
2 086 078
Membres
103 111
dernier inscrit
Eric68350