Colorer des cellules

Hello,

Je travail sur un document de suivi qui permet de recenser les documents reçu et comptabiliser en y inscrivqnt la date de réception :

• Vert = Recu
• Rouge = Non recu

Avec l'aide des utilisateurs de se forum, nous avons mis en place une macro permettant de compter automatiquement le nombres de cellule vertes.

J'aimerais ajouter un éléments : Le fait de COLORER AUTOMATIQUEMENT LA CELLULE EN VERT

==> J'avais pensé à une mise en forme conditionnelle, mais la macro ne semble pas prendre en compte cette méthode. J'aimerais savoir si quelqu'un d'entres vous aurait une solution => Cela me faciliterait la vie

Je vous mets en PJ un exemple

Merci d'avance

Cdt

Slt Alex,

clique droit sur l'onglet "A" ==> Afficher code et insere ce code:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Plage As Range
    Dim Cellule As Range

    Set Plage = Range("G13:R21")

    If Not Application.Intersect(Plage, Range(Target.Address)) _
           Is Nothing Then

     For Each Cellule In Plage
    If IsDate(Cellule.Value) = True Then
        Cellule.Interior.ColorIndex = 4
    End If

    Next Cellule

    End If
End Sub

Nickel, c'est ce que je recherchais

Petit bonus : Crois-tu que c'est possible de remettre la cellule automatiquement en blanc si j'enlève la date ?

Merci d'avance

Cdt,

Alex

oui c'est possible

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Plage As Range
Dim Cellule As Range

Set Plage = Range("G13:R21")

If Not Application.Intersect(Plage, Range(Target.Address)) Is Nothing Then
    For Each Cellule In Plage
       If IsDate(Cellule.Value) = True Then
           Cellule.Interior.ColorIndex = 4
       Else
           Cellule.Interior.ColorIndex = -4142
       End If
    Next Cellule
End If
End Sub

c'est sympas d'avoir répondu à mon message et je t'en remercie

Mon boss me demande un dernier point, je te le soumet au cas ou tu saurais répondre

J'ai modifié le fichier il y a maintenant 2 tableaux :

• Le premier renseigne les dates de réception prévu des documents
• Le second que je remplis correspond aux documents reçu et comptabilisé

J'ai créer en B6 un calcul m'indiquant si le document a été reçu dans les délais (par rapport à ce que j'ai mis dans le tableau 1)

Ma question :

Sais-tu si il est possible de colorer automatiquement dans le second tableau les cellules en ROUGE lorsque la date est dépassé ?

Exemple : On est le 25/03 et le document B est attendus pour lé 01/01. Donc il faudra colorer la cellule S14 en rouge (car le doc est en retard)

J'espère que c'est compréhensible

Cdt,

Alex

bonjour

salut m3ellem1 au passage

mon avis : pas de VBA

les couleurs se font par MFC et les décomptes se font par formule (genre SOMMEPROD) ou mieux, par TCD

amitiés excelliennes à tous

Bonjour,

@ jmd,

Tu as oublié de joindre ton exemple à ta réponse.

Cdlt.