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

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.

Bonjour,

J'ai une base de données avec des noms des salariés. Ce tableau change tous les mois en fonction des embauches.
Avec une macro, j'ai réussi une formule qui duplique les feuilles avec une matrice et renomme automatiquement selon la base de données.
Maintenant, je cherche à copier les éléments de la base de données correspondants à chaque onglet.

ex:

Sheets("Base de donnees").select
Range("a2").select
Selection.copy
Sheets("ALIANE Lahouria").select
Range("an2").select
ActivesheetPaste.

Si j'applique cette formule, je serai obligée de modifier la formule tous les mois.
Pouvez-vous m'aider s'il vous plait?
FREDYA