macro

[kika]

Bonsoirà tous

je débute avec les macros et actuellement je souhaite additionner les valeurs de cellules uniquement si la couleur de police est noire.
jai des chiffres dans un tableau de couleur rouge et noire avec une décimale et je souhaite voir apparaitre le résultat au bas de chaque colonne
Voici la macro et a chaque fois j'ai le message " next sans for".
Je ne sais pas quoi faire
merci de votre aide.


'Private Sub CommandButton1_Click()

Dim j As Double
Dim k As Double
Dim ACA As Object


Set ACA = ActiveWorkbook.Worksheets("Feuil1")

For j = 14 To 21
For k = 2 To 30

ACA.Cells(k, j).Select
If Selection.Font.ColorIndex = 1 Then
If IsNumeric(Selection) = True Then total = total + Selection.Value
Next k
ACA.Cells(22, j) = total


Next j
End Sub

 

[LaurentTBT]

Bonsoir
Il te manque un "End if" avant ton "Next k"
Je n'ai pas vérifié l'algorithme, mais le premier if nécessite un End if

Bonne chance.

 

[kika]

merci, effectivement, je n'ai plus le message et tout le tableau est balayé, mais je n'ai aucun résultat?

 

[Lord Nelson]

Salut Kika et Laurent,

Dans la plupart des cas, les polices de cellules sont noires par défaut et leur propriété Font.ColorIndex est alors égale à -4105.
Pour que ton calcul fonctionne, il faut que tu fixes cette propriété à 1 ou 3 au préalable ou alors que tu comptes les cellules à -4105.

A+
Horatio

 

[kika]

merci beaucoup pour cette info.