Rapport de message :*
 

Re: Activer une macro pour plusieurs feuilles

Titre du sujet : Re: Activer une macro pour plusieurs feuilles
par fredya le 22/11/2012 19:42:18

Bonsoir,

Merci de m'avoir répondu!

Mais ça n'a pas fonctionné!

ci-joint le fichier.

Pouvez-vous encore m'aider svp?


Dim Sh As Worksheet
Dim RCible As Range
Dim Varsomme As Long
    For Each Sh In Sheets
        Varsomme = 0
        Set RCible = Sh.Cells(10, 8)
        Do
            If RCible.Interior.ColorIndex = 15 Then
                Varsomme = Varsomme + RCible.Value
            End If
            Set RCible = RCible.Offset(0, 1)
      
        Loop Until RCible.Value = "."
        Sh.Range("N143").Value = Varsomme
    Next Sh
End Sub