Récapituler info

[roro69]

Bonsoir àtous;Je viens chercher un peu d'aide sur:
J'ai dans un classeur plusieurs feuilles avec un tableau renseigné;je voudrais récupérer les lignes correspondantes dans une nouvelles feuilles avec le total des cellules de chaque feuilles.Enfin je joint le fichier qui sera beaucoup plus explicite.
Merci d'avance et que se forum dure encore longtemps.

 

[porcinet82]

Re : Récapituler info

Salut,

En supposant que tu ne bouges pas l'ordre des feuilles et que les feuilles a partir de la troisième journée soit identique a celle des 2 premières journée, le code suivant devrait fonctionner :

Sub Recap()
Dim k%, i%, p%, j%
Sheets("Recupilatif").Select
For k = 4 To Sheets.Count
    With Sheets(k)
        For i = 2 To Range("A65536").End(xlUp).Row
            For p = 7 To .Range("G65536").End(xlUp).Row
                If .Cells(p, 7).Value = Cells(i, 1).Value And .Cells(p, 8).Value = Cells(i, 2).Value Then
                    For j = 3 To 8
                        Cells(i, j).Value = Cells(i, j).Value + .Cells(p, j + 6).Value
                    Next j
                End If
            Next p
        Next i
    End With
Next k
End Sub

@+

 

[roro69]

Re : Récapituler info

Bonsoir
Merci Romain pour ta réponse ; çà marche je n'ai plus qu'à effacer les données avant de les metter à jour ; un grand merci pour ta réponses.