Somme des cellules sans couleur

[bleck]

Bonsoir a tous,

Est-il possible de creer une macro qui reporte en feuille 1 colone A , le nº de la cellule A1 des feuilles suivantes, avec dans la colone B la somme de toutes les cellules qui ne sont pas colorees dans la plage B8-M24.
J'ai mis un petit fichier d'exemple du resultat a obtenir avec seulement 3 feuilles, mais en realite j'en ai 280 et j'en cree 3/4 nouvelles par jour.
Merci pour votre aide
Francis

 

[Omicron]

Bonsoir Bleck,

Tu trouveras en pièce jointe un exemple qui devrait répondre au problème posé.

=====================================================
Private Sub CommandButton1_Click()
Sheets("Hoja1").UsedRange.Columns("A:B").ClearContents
i = 0
For Each Sht In Sheets
If Sht.Name <> "Hoja1" Then
i = i + 1
Sheets("Hoja1").Cells(i, 1).Value = Sht.Cells(1, 1).Value
Sheets("Hoja1").Cells(i, 2).Value = 0
For Each Cel In Sht.Range("B8:M24")
If Cel.Interior.ColorIndex <> xlNone Then _
Sheets("Hoja1").Cells(i, 2).Value = _
Sheets("Hoja1").Cells(i, 2).Value + Cel.Value
Next Cel
End If
Next Sht
End Sub
=====================================================

Bon courage pour la suite ...


Omicron

 

[bleck]

C'est super Omicron. Juste un ptit truc, la somme que je souhaite voir apparaitre est celle des cases sans couleur. Dans ton fichier les resultats doivent etre:
689768356 20
677131478 90
612850174 0

Si cela pose un probleme, je metrai la plage b8-M24 en fond jaune et j enleverai la couleur au lieu d'en rajouter comme je fait actuellement
Merci encore et bonne nuit a tous

 

[omicron]

Bonjour Bleck,

Problème mal compris. Il suffit d'inverser un test ...

=====================================================
Private Sub CommandButton1_Click()
Sheets("Hoja1").UsedRange.Columns("A:B").ClearContents
i = 0
For Each Sht In Sheets
If Sht.Name <> "Hoja1" Then
i = i + 1
Sheets("Hoja1").Cells(i, 1).Value = Sht.Cells(1, 1).Value
Sheets("Hoja1").Cells(i, 2).Value = 0
For Each Cel In Sht.Range("B8:M24")
If Cel.Interior.ColorIndex = xlNone Then _
Sheets("Hoja1").Cells(i, 2).Value = _
Sheets("Hoja1").Cells(i, 2).Value + Cel.Value
Next Cel
End If
Next Sht
End Sub
=====================================================

Cordialement et avec mes excuses ....

Omicron

 

[bleck]

Bravo Omicron.
Tout marche a la perfection.
Mille fois merci
Bonne journée
A+

 

[bleck]

Salut Omicron, c'est encore moi.
Maintenant que je me suis habitué a ta super macro, je me demandais s' il serait possible de l'ameliorer un chouia. Se pourrait il que la macro n'inscrive en hoja1 que les resultats superieur a 0 ?

Merci d'avance
a+

 

[omicron]

Bonsoir Bleck,

Voici rapidement une nouvelle version qui devrait répondre à ta dernière spécification ...

Omicron.

 

[bleck]

Genial Omicron.En plus que tout marche a la perfection, je crois que je suis entrain de chopper le virus de la macro. Y a pas des cours de base qui trainent quelque part par là? Seulement le B A BA
Merci encore, et bonsoir a tous