Discussion :

[inconnu3]

Bonjour,

J'ai effectué plusieurs recherche sur le forum mais je ne trouve pas ma réponse à ma question.
Alors je vous explique, j'aimerais une macro qui permette de colorier en vert une case qui ne contient pas "absent" ou qui n'est pas vide. (soit 2 conditions)
Beaucoup de réponses à cette question me renvoie à l'onglet "mise en forme conditionnelle" mais celle ci ne colorie que les cases vides

Je vous remercie par avance de vos réponses,

Cordialement

[BENNASR]

bonjour
essayez avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Option Explicit
 
Sub Test_FM()
Dim DerLign As Long
Dim Plage As Range
Dim Cell As Range
DerLign = Range("A65536").End(xlUp).Row 'N° de la dernière ligne colonne A
    Set Plage = Range("A1" & ":C" & DerLign) 'Définir la plage à adapter si nécessaire
        For Each Cell In Plage
        If Not Cell.Value Like "*Absent*" And Cell.Value <> "" Then Cell.Interior.ColorIndex = 4
        Next Cell
End Sub

[zipbox]

Bonjour,

On peut aussi utiliser une mise en forme conditionnelle :

ajouter mise en forme conditionnelle n° 1

1) Ajouter une mise en forme conditionnelle

2) Appliquer une mise en forme uniquement aux cellules qui contiennent

3) texte spécifique; contenant; absent

puis ajouter mise en forme conditionnelle n° 2

4) Appliquer une mise en forme uniquement aux cellules qui contiennent

5) Cellules vides

[inconnu3]

Bonjour BENNASR,

Merci de votre réponse rapide.
j'ai essayé le code, mais cela ne fonctionne pas
message d’erreur sur cette ligne:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Not Cell.Value Like "*Absent*" And Cell.Value <> "" Then Cell.Interior.ColorIndex = 4

Cordialement,

Bonjour zipbox

La mise en forme conditionnelle ne fonctionne pas car je veux colorier les cases qui ne contiennent pas "absent" et et qu'elles ne soit pas vides
Avez vous une autre solution ?

Cordialement

[Transitoire]

Bonjour, vous pouvez le faire avec une mise en forme conditionnelle .


Vous remplissez avec une mise en forme automatique pour avoir les cellules concernées identiques à celles sans mise en forme et vous validez. voir ci-dessous


Vous creez ensuite une deuxième règle comme ci dessous avec le choix de la couleur que vous souhaitez.


Et voila le résultat


Cordialement

[halaster08]

Bonjour,

Beaucoup de réponses à cette question me renvoie à l'onglet "mise en forme conditionnelle" mais celle ci ne colorie que les cases vides

Et c'est normal, la MEF est faite pour ça, beaucoup plus pratique et réactive qu'une macro. Même si c'est pas toujours facile à utiliser au premier abord.
Perso plutôt que des contient/ ne contient pas je préfère utiliser la MEF par formule (MEF-> gérer les règles-> nouvelle règles-> formules (la dernière)

Pour ton problème ça donne en une seul MEF par formule: =ET(A1<>"";A1<>"absent")

[Mickamax]

Bonjour,
Le plus simple est effectivement de faire une mise en forme conditionnelle.

Mais pour le plaisir, voici un petit code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub Couleur()
Dligne = Range("A15000").End(xlUp).Row
For I = 1 To Dligne
If Cells(I, 1) <> "Absent" And Cells(I, 1) <> "" Then Cells(I, 1).Interior.Color = RGB(174, 240, 194)
 
Next I
 
End Sub

Bonne journée !
Mickamax

[OrDonc]

Bonjour

... une macro qui permette de colorier en vert une case qui ne contient pas "absent" ou qui n'est pas vide.

Autre proposition : une évènementielle dans la fenêtre des codes de la feuille source et qui agit comme une MFC au changement de saisie d’une cellule de la plage concernée.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub Worksheet_Change(ByVal R As Range)
  Dim P As Range
  Set P = Range("A2", Cells(Rows.Count, 1).End(xlUp))   ‘à adapter
  If Not Intersect(R, P) Is Nothing And R.Count = 1 Then _
     R.Interior.ColorIndex = IIf(R <> "Absent" And R = "", xlNone, 4)
End Sub