Macro permettant de colorier une case

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

bonjour
essayez avec :

Code:

---

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

---

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

:?

Citation:

---

Envoyé par BENNASR

---

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:

---

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

---

Cordialement,

Citation:

---

Envoyé par zipbox

---

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

Bonjour, vous pouvez le faire avec une mise en forme conditionnelle .
Pièce jointe 477043

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
Pièce jointe 477046

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

Et voila le résultat
Pièce jointe 477052

Cordialement 8-)

Bonjour,

Citation:

---

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")

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

Mais pour le plaisir, voici un petit code:

Code:

---

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

---

Pièce jointe 477073



Bonne journée !
Mickamax

Bonjour
pour l'erreur dans le code de BENNARS c'est peut être ca vba est permissif mais des fois il est un peu comme moi humeur changeante :mouarf:

Code:

---

1 2 3 4 5 6 7 8 9 10

Option Explicit Sub Test_FM() Dim DerLign As Long, Plage As Range,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.Cells If Not Cell.Value Like "*Absent*" And Cell.Value <> "" Then Cell.Interior.ColorIndex = 4 Next Cell End Sub

---

pour les mise en forme conditionnelles le problème avec c'est qu'a la longues elle deviennent lourde surtout quand on l'applique a des colonne entières

peut être dans le open la supprimer et la re mettre uniquement pour la plage utilisée ca serait bien ca ;)

je dis ca faites comme vous voulez

Bonjour

Citation:

---

Envoyé par inconnu3

... 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:

---

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

---

Bonjour à tous et bonne début de journée

Citation:

---

Aujourd'hui, 07h59
patricktoulon
Bonjour
pour l'erreur dans le code de BENNARS c'est peut être ca vba est permissif mais des fois il est un peu comme moi humeur changeante

---

:mouarf::mouarf:
voila un fichier exemple à tester avec le code ci haut fourni

Bonjour BENNARS
comme je l'ai dis vba est permissif
mais l'écriture avec .cells serait plus conforme

pourquoi?
et bien parce que dans un élément en l'occurrence il peut y avoir plusieurs Child, voir même une arborescence d'élément plus complexe ce qui est le cas ici

Code:

---

1 2 3

for each machin in plage 'ici machin peu très bien être une ligne ,une cellule next

---

alors oui tu a dimé machin comme range ok donc vba interprete machin comme range
dans d'autre langages comme le javascript ou C++ par exemple c'est pas efficient
Bonne journée;)

Merci pour votre réponse mais vu que ma sélection est conséquente, j'ai toujours le même message d'erreur

Code:

---

1 2 3 4 5 6 7 8 9 10

Option Explicit Sub Test_FM() Dim DerLign As Long, Plage As Range, Cell As Range DerLign = Range("A65536").End(xlUp).Row 'N° de la dernière ligne colonne A Set Plage = Range("A3" & ":QT" & DerLign) 'Définir la plage à adapter si nécessaire For Each Cell In Plage.Cells If Not Cell.Value Like "*Absent*" And Cell.Value <> "" Then Cell.Interior.ColorIndex = 4 Next Cell End Sub

---

Cordialement

Citation:

---

Envoyé par patricktoulon

Bonjour
pour l'erreur dans le code de BENNARS c'est peut être ca vba est permissif mais des fois il est un peu comme moi humeur changeante :mouarf:

Code:

---

1 2 3 4 5 6 7 8 9 10

Option Explicit Sub Test_FM() Dim DerLign As Long, Plage As Range,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.Cells If Not Cell.Value Like "*Absent*" And Cell.Value <> "" Then Cell.Interior.ColorIndex = 4 Next Cell End Sub

---

pour les mise en forme conditionnelles le problème avec c'est qu'a la longues elle deviennent lourde surtout quand on l'applique a des colonne entières

peut être dans le open la supprimer et la re mettre uniquement pour la plage utilisée ca serait bien ca ;)

je dis ca faites comme vous voulez

---

bonsoir, essayez donc avec ceci

Code:

---

Set Plage = Range("A3" & "QT" & DerLign) 'Définir la plage à adapter si nécessaire

---

en remplacement de

Code:

---

Set Plage = Range("A3" & ":QT" & DerLign) 'Définir la plage à adapter si nécessaire

---

Cordialement 8-)

Bonjour,

Cela ne fonctionne pas non plus

Bonjour,

As-tu essayé les propositions sans macro qui t'ont été faites ?

Citation:

---

Cela ne fonctionne pas non plus

---

Ce serait plus facile de t'aider si tu précisait le message d'erreur obtenu