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 |
Forums