Copier cellule Excel selon couleur

Bonjour à tous,

J'aimerais copier toutes les cellules d'un tableau excel en fonction de leur couleur.

Par exemple dans mon cas, je veux reporter tous les textes dans les cellules de couleur rouge.

J'ai fouillé sur beaucoup de forums, appelé l'assistance Microsoft (qui est bien nulle d'ailleurs ), je me tourne donc vers vous !

Merci d'avance

Victor.

Bonjour,

Ton fichier ?

Bonjour,

Je re-formule ma question

J'aimerais faire la somme de toutes les cases rouges, et non pas les copier.

Merci beaucoup !

Bonjour,

Un exemple.

Cdlt.

Merci Jean-Eric,

Comment avez-vous procédé pour effectuer le calcul ?

Bonjour,

J'ai rentré ces lignes de code pour pouvoir effectuer le calcul:

Function SommeSiCouleur(Plage As Range, NumeroDeCouleur%) As Long
Application.Volatile True
Dim wCell As Range
For Each wCell In Plage
If wCell.Interior.ColorIndex = NumeroDeCouleur Then
SommeSiCouleur = SommeSiCouleur + wCell.Value
End If
Next
End Function

Ainsi que celles-ci afin de déterminer le code couleur:

Function couleur(Cellule As Range)
    Application.Volatile
    couleur = Cellule.Interior.ColorIndex
End Function

Merci à tous

Re,

Ci-dessous, la procédure VBA.

ALT F11 pour ouvrir l'éditeur VBE. Voir Module1.

Cdlt.

Option Explicit

Public Sub Sum_Red()
Dim lastRow As Long
Dim Cell As Range, rng As Range
Dim N As Double, NN As Double
    With ActiveSheet
        lastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
        Set rng = .Cells(2, 1).Resize(lastRow - 1)
        For Each Cell In rng
            If Cell.Interior.Color = vbRed Then
                'Nombre
                N = N + 1
                'Somme
                NN = NN + Cell.Value
            End If
        Next Cell
        .Cells(2, 4).Value = N
        .Cells(3, 4) = NN
    End With
End Sub

Tu demandes de l'aide pourquoi au juste ?

On (jean-Eric en l'occurrence) te fournit un résultat sur mesure en fonction de ta demande...

Et tu trouves moyen d'aller exhumer n'importe quelle vieillerie...

[Je t'accorde que tu aurais pu trouver bien pire... mais tu n'en sais rien en piochant ainsi au hasard...]

Il aurait mieux valu passer ce temps à discuter de façon à savoir ce que fait tel ou tel code et maîtriser son utilisation en fonction de tes besoins, plutôt que d'exhumer un code que tu ne comprends pas plus...