recap onglet

[olive323]

Bonjour à tous,

Je souhaite faire une synthèse de plusieurs onglets.

Mais je ne parviens pas à faire ce que je veux.

Pourriez vous SVP me conseiller.

J'ai placé un onglet résultat souhaité ( c'est ce que je souhaiterais obtenir)
Sur l'onglet synthèse c'est ce que j'ai reussi à faire.


Merci

 

[Jacky67]

Bonjour,
Essaye comme ceci

Sub synthese()
With Sheets("Synthèse")
  .Range("A2:i" & .Rows.Count).ClearContents
  For Each sh In Sheets
    If sh.Name <> "Synthèse" And sh.Name <> "Matrice" Then
      For lg = 14 To sh.Cells(sh.Rows.Count, "q").End(xlUp).Row
        If sh.Cells(lg, "q") > 0 Then
          sh.Range(sh.Cells(lg, "j"), sh.Cells(lg, "r")).Copy
          .Range("a" & .Cells(.Rows.Count, "A").End(xlUp).Row + 1).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
        End If
      Next
    End If
  Next
End With
End Sub

 

[olive323]

Bonjour Jacky,

c'est nickel, merci beaucoup pour ce retour.

Bonne soirée

 

[Jacky67]

Bonjour Jacky,

c'est nickel, merci beaucoup pour ce retour.

Bonne soirée

Re..
Une version qui se passe de toutes les recopies

**Quelques "."(points ) se sont égarés sans grande incidence, mais bon
la mise à jour de la feuille "synthèse" se fait à son activation.
PJ modifié

 

[olive323]

Bonjour Jacky

Encore mieux!!! Mon fichier va être moins lourd.

Merci encore!!!