Bonjour
Comment faire pour compter les cellules d'une couleur(rouge par exp)dans 1
tableau de A1 a F1,
et mettre la somme de cell concernées par lignes en G1.Si possible en VBA.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Misange
Sans écrire dans une autre cellule de la feuille (de Eric J) Sub inventaireRouge() sommeRouge = 0 compterRouge = 0 For Each cell In ActiveSheet.UsedRange If cell.Interior.Color = vbRed Then On Error Resume Next sommeRouge = sommeRouge + cell.Value On Error GoTo 0 compterRouge = compterRouge + 1 End If Next If compterRouge = 1 Then c = "cellule" Else c = "cellules" MsgBox compterRouge & " " & c & " -- Total = " & sommeRouge end if End Sub
-- Misange migrateuse http://www.excelabo.net ==Disciplus a migré chez excelabo !======= mail : http://cerbermail.com/?k5Q8Dh2mta
"Michel" a écrit dans le message de news: 3f72b4ce$0$24186$
Bonjour Comment faire pour compter les cellules d'une couleur(rouge par exp)dans 1
tableau de A1 a F1, et mettre la somme de cell concernées par lignes en G1.Si possible en VBA.
@+ Merci
Sans écrire dans une autre cellule de la feuille (de Eric J)
Sub inventaireRouge()
sommeRouge = 0
compterRouge = 0
For Each cell In ActiveSheet.UsedRange
If cell.Interior.Color = vbRed Then
On Error Resume Next
sommeRouge = sommeRouge + cell.Value
On Error GoTo 0
compterRouge = compterRouge + 1
End If
Next
If compterRouge = 1 Then c = "cellule" Else c = "cellules"
MsgBox compterRouge & " " & c & " -- Total = " & sommeRouge
end if
End Sub
Sans écrire dans une autre cellule de la feuille (de Eric J) Sub inventaireRouge() sommeRouge = 0 compterRouge = 0 For Each cell In ActiveSheet.UsedRange If cell.Interior.Color = vbRed Then On Error Resume Next sommeRouge = sommeRouge + cell.Value On Error GoTo 0 compterRouge = compterRouge + 1 End If Next If compterRouge = 1 Then c = "cellule" Else c = "cellules" MsgBox compterRouge & " " & c & " -- Total = " & sommeRouge end if End Sub
-- Misange migrateuse http://www.excelabo.net ==Disciplus a migré chez excelabo !======= mail : http://cerbermail.com/?k5Q8Dh2mta
"Michel" a écrit dans le message de news: 3f72b4ce$0$24186$
Bonjour Comment faire pour compter les cellules d'une couleur(rouge par exp)dans 1
tableau de A1 a F1, et mettre la somme de cell concernées par lignes en G1.Si possible en VBA.
@+ Merci
Michel
Salut Dédé
Ton code marche bien, mais j'ai mal expliqué le tableur comporte plusieurs lignes alors!!! Et le résultat de chaque ligne doit etre en colonne G Merci de me répondre
Salut Dédé
Ton code marche bien, mais j'ai mal expliqué le tableur comporte plusieurs
lignes alors!!!
Et le résultat de chaque ligne doit etre en colonne G
Merci de me répondre
Ton code marche bien, mais j'ai mal expliqué le tableur comporte plusieurs lignes alors!!! Et le résultat de chaque ligne doit etre en colonne G Merci de me répondre
