Bonsoir,

J'ai créé une macro et j'aimerai que cette macro s'active automatiquement sur toutes les feuilles créées juste en cliquant sur un bouton.

Sans être obligée d'aller sur chaque feuille pour activer la macro. j'ai au moins 200 feuilles.


Dim Varsomme As Long


Range("H10").Select

Do

If Selection.Interior.ColorIndex = 15 Then
Varsomme = Varsomme + ActiveCell.Value

End If

ActiveCell.Offset(0, 1).Select

Loop Until ActiveCell.Value = "."

Range("I46").Value = Varsomme



End Sub

Pouvez-vous m'aider svp?

fredya.

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) :

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

Cordialement,

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