Rapport de message :*
 

Re: Activer une macro pour plusieurs feuilles

Titre du sujet : Re: Activer une macro pour plusieurs feuilles
par myDearFriend! le 20/11/2012 23:05:12

Bonsoir fredya, bienvenue sur XLpages.com

Tout d'abord, 2 remarques, STP :
  1. Merci de ne pas entrer les titres de sujet en MAJUSCULES (sur le net, utiliser les Majuscules ça veut dire "CRIER")
  2. Pour insérer proprement du Code VBA dans tes posts, consulter CETTE FAQ.

Concernant ta question... pas facile de te répondre "à l'aveugle" sans même un exemple de tes feuilles de calcul (au besoin : lire ICI pour joindre un fichier)...

Cela dit, si j'interprète bien ta question, voici une macro à tester :

DANS UN MODULE DE CODE STANDARD (ex: Module1) :
Option Explicit

'myDearFriend!  -  www.mdf-xlpages.com
Sub Traitement()
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("I46").Value = Varsomme
    Next Sh
End Sub

En espérant t'avoir dépanné...

Cordialement,