somme de cellules d'un classeur selon couleur d'onglet

[azzouzze]

bonjour,


Je cherche à faire la somme de la cellule B1 de toutes les feuilles d'un classeur dont l'onglet à été mis en couleur bleu.

Je sais que la couleur de l'onglet est definie de la facon suivante:
Sheets(i).Tab.ColorIndex=8 '8 pour le bleu ciel

problème:
Je n'arrive pas à faire une boucle qui teste la couleur de l'onglet, recupère la valeur de B1 dans la feuille et la somme dans la cellule B1 d'une autre feuille.


Merci d'avance

 

[porcinet82]

Re : somme de cellules d'un classeur selon couleur d'onglet

Salut,

Pour boucler sur les onglets bleus :

For i = 1 To Sheets.Count
    If Sheets(i).Tab.ColorIndex = 8 Then
        'ton code
    End If
Next i

@+

 

[azzouzze]

Re : somme de cellules d'un classeur selon couleur d'onglet

désole mais je n'arrive toujours pas à faire la somme sur toutes mes feuilles .
il me met erreur 91.

Voici mon code:

Sub CalcOngletsCouleur()
Dim i As Integer, J As Integer
Dim cell As Range
Dim ws As Worksheet

Set ws = Sheets("0Stat")
' commence à la 5 eme feuille car mes 4 premières sont des feuilles de sommaire et
' d'information dont l'onglet n'est pas coloriés
For i = 5 To Sheets.Count
If Sheets(i).Tab.ColorIndex = 8 Then
    ws.Cells(bb1).Value = somme("F7:F500")
    ws.Cells(bb2).Value = somme("G7:G500")
    ws.Cells(bb3).Value = cell(b1).Value
Exit For
End If
Next i
End Sub

dans cette partie, je veux juste recopier des cellules et faire une somme pour ensuite en faire des statistiques dans une autre feuille nommé 0stat
Or il me met erreur imcompatibilité de type.


Merci d'avance

 

[2passage]

Re : somme de cellules d'un classeur selon couleur d'onglet

Bonjour,

a mon avis, il y a plusieurs problèmes :

Cells(bb1) : si tu parles de la cellule BB1, essaye plutot "Cells(1, 54)" ou "Range("BB1")"
si tu souhaites cumuler en 0stat!BB1 le total des F7:F500 de tous les onglets dont la couleur est bleue, il faut soit utiliser une variable, soit ajouter dans la cellule, ce qui donnerait :
ws.range("BB1").Value = ws.range("BB1").Value + Application.WorksheetFunction.Sum(sheets(i).Range("F7:F500"))
en pensant a remettre la valeur a 0 au début...
(désolé, je dois y aller, donc je termine un peu en queue de poisson..)
++