K
kika
Guest
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
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