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

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

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

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

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

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

XLDnaute Barbatruc
Re : fusion de 5 onglets

Re-bonjour, bonjour Staple1600 ,

Staple1600 à dit:
...On traite cinq onglets ou deux ? Le titre du fil dit 5, la macro dit 2 ...
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

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

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

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
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

L
  • Question
XL 2016 Fusionner PDF
Réponses
1
Affichages
201
kiki29
C
  • Résolu(e)
Microsoft 365 recherche valeur dans plusieurs onglets plusieurs critères
Réponses
2
Affichages
136
c.azzopardi@free.fr
C
W
  • Question
Microsoft 365 Fusionne les cellules vides parmi celle avec des valeurs
Réponses
4
Affichages
213
woira95
W
F
  • Question
XL 2016 Onglets très masqués VBA à chaque réouverture de fichier
Réponses
4
Affichages
148
Fanny754
F
E
  • Résolu(e)
Microsoft 365 Excel Power query Problème fusion
2
Réponses
27
Affichages
433
goube
L
  • Question
Microsoft 365 Macro choisir onglet à exporter dans un nouveau classeur
Réponses
5
Affichages
372
l.et.lilou
L
B
  • Question
XL 2016 Formule Recherche d'une cellule dans plusieurs onglets différents
Réponses
2
Affichages
203
oguruma
E
  • Question
Microsoft 365 Afficher onglets quand toutes les questions sont répondues
2
Réponses
20
Affichages
645
Erakmur
E
P
  • Question
Autres Ne pas reporter données si feuille masquée
Réponses
7
Affichages
217
pamela85200
P
P
  • Résolu(e)
Autres Création automatique de feuilles/onglets
Réponses
7
Affichages
271
pamela85200
P
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…