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

Microsoft 365 Créer un synthèse de plusieurs onglets

C

cdric78

XLDnaute Junior
Bonjour,
Je fais appel à vous pour m'aider à réaliser quelques choses que je n'arrive pas à faire.
Je souhaite faire une synthèse de plusieurs onglets dans un seul onglet.

Je possède plusieurs onglets (CARR. 1, CARR.2, CARR. 3) mais ce nombre d'onglet sera évolutif (et le nommage des onglets ne conservera pas la structure "CARR. ?").
Je souhaite que l'onglet "Synthèse" reprenne les valeurs A1 et les valeurs présentes dans la colonne C si il y a un "1" en D sur la même ligne. Par exemple l'onglet synthèse ne devra pas affiché le contenu C10 de l'onglet CARR. 1 car il n'y a pas de 1 en D10.

Dans mon exemple, l'onglet "Synthèse" affiche le résultat attendu.

Je vous remercie par avance pour votre aide.
 

Pièces jointes

  • Suivi To do.xlsx
    18.4 KB · Affichages: 5
Trier par date Trier par votes
C

cdric78

XLDnaute Junior
Bonjour,

Merci à FANFAN38 pour cette macro.

Je souhaite savoir comment faire pour modifier la macro afin de conserver la mise en forme des cellules copiés (police, mise en forme, lien hypertexte etc...)

Merci par avance pour vos réponses.

VB: 
Private Sub Worksheet_Activate()
  Dim i As Integer, j As Long, lig As Long
 ' Set sh = Sheets("Synthèse")
  Range("A2:B1000").ClearContents
  lig = Range("B" & Rows.Count).End(xlUp).Row + 1
  For i = 1 To Sheets.Count
    If Sheets(i).Name <> "Synthèse" Then
      Range("A" & lig) = Sheets(i).Range("A1")
      For j = 2 To Sheets(i).Range("D" & Rows.Count).End(xlUp).Row
        If Sheets(i).Range("D" & j) = 1 Then
          Range("B" & lig) = Sheets(i).Range("C" & j)
          lig = lig + 1
        End If
      Next
      lig = lig + 2
    End If
  Next
End Sub
 
Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc
Bonjour cdric78, François,

Les instruction comme :
VB: 
Range(x) = Sheets(i).Range(y)
copient uniquement les valeurs.

Pour copier aussi les formats utilisez :
VB: 
Sheets(i).Range(y).Copy Range(x)
A+
 
Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc
Vous n'avez donc pas appliqué correctement mes instructions pour obtenir :
VB: 
Private Sub Worksheet_Activate()
  Dim i As Integer, j As Long, lig As Long
 ' Set sh = Sheets("Synthèse")
  Range("A2:B1000").ClearContents
  lig = Range("B" & Rows.Count).End(xlUp).Row + 1
  For i = 1 To Sheets.Count
    If Sheets(i).Name <> "Synthèse" Then
      Sheets(i).Range("A1").Copy Range("A" & lig)
      For j = 2 To Sheets(i).Range("D" & Rows.Count).End(xlUp).Row
        If Sheets(i).Range("D" & j) = 1 Then
          Sheets(i).Range("C" & j).Copy Range("B" & lig)
          lig = lig + 1
        End If
      Next
      lig = lig + 2
    End If
  Next
End Sub
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

B
  • Question
XL 2016 Formule Recherche d'une cellule dans plusieurs onglets différents
Réponses
2
Affichages
335
oguruma
B
  • Question
XL 2016 Récupérer les valeurs de chaque titre à partir de plusieurs onglets
Réponses
4
Affichages
265
bnolwalid
B
C
  • Résolu(e)
Microsoft 365 recherche valeur dans plusieurs onglets plusieurs critères
Réponses
2
Affichages
291
c.azzopardi@free.fr
C
E
  • Question
Microsoft 365 Nom d'onglet comme variable
Réponses
5
Affichages
722
Eric-ATI
E
L
  • Résolu(e)
Microsoft 365 VBA - Attribuer mise en forme en fonction de valeur cellule d'une liste
Réponses
14
Affichages
588
Laliepomm
L
Z
  • Question
Microsoft 365 Segment commun avec plusieurs onglets source de données
Réponses
12
Affichages
354
Zazagally
Z
P
  • Résolu(e)
XL 2021 Besoin d'aide pour copier/coller données de plusieurs classeurs
2
Réponses
20
Affichages
331
Pac41240
P
B
  • Question
XL 2016 Macro BVA pour créer une synthèse à partir de plusieurs onglets Excel
Réponses
6
Affichages
776
bnolwalid
B
R
  • Question
XL 2010 Effacement de données dans plusieurs feuilles de calcul dans un même classeur
Réponses
3
Affichages
469
robbynasch
R
A
  • Résolu(e)
XL 2013 Récap de plusieurs onglets sur un seul
2 3
Réponses
34
Affichages
1 K
Staple1600
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…