Discussion :

[Jujulb]

Bonjour,

Je possède un tableau de vérification technique sur plusieurs lignes et plusieurs colonnes, et dans certaines de ces cellules je viens soit saisir "ok" ou "ko" suivant ma vérification, soit cela se saisit automatiquement via une formule =SI(...).
J'aimerais que les textes "ok" et "ko" apparaissent respectivement en vert et rouge suivant la saisie de l'un ou l'autre, que ce soit une saisie manuelle ou automatique.
J'ai pour cela pensé à la mise en forme conditionnelle mais cela me semble lourd à modifier si besoin (rajout de cellules, etc.), contrairement à un code VBA qui me semble plus simple à appréhender.

J'ai pas mal chercher pour mettre en place ce code, mais impossible de trouver quoi que ce soit de convenable, pourriez vous m'aider ?

Merci beaucoup par avance.

[electrons]

Bonjour Jujulb

Pour la mise en forme conditionnelle, il suffit de sélectionner dans la barre du menu (File Edition ...... ) : "Formats", tu sélectionnes "Mise en forme Conditionnelle", tu as une première condition, "La valeur de la cellule est:" tu vas dans la case à coté, tu sélectionnes "égale à" et dans la cellule encore à coté tu mets OK, en dessous, dans la même fenêtre, tu clique sur "Format..." et sur la nouvelle fenêtre, tu vas sur "Motifs" et tu peux choisir la couleur. Tu choisis ensuite "Ajouter et tu mets ta 2ième condition. idem avec "Egale à " -> KO...

ATTENTION, tu dois avoir sélectionné la (les) cellules au préalable pour la(les)quelle tu veux appliquer la condition. Tu ne peux avoir que 3 conditions au maximum pour ta sélection.

Si tu veux du code :

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Macro1()
 
    Range("A4:A18").Select \\sélection de cellules 
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
        Formula1:="=""ok""" \\si le texte dans la cellule est ok
    Selection.FormatConditions(1).Interior.ColorIndex = 50 \\ couleur verte
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
        Formula1:="=""ko"""
    Selection.FormatConditions(2).Interior.ColorIndex = 3 \\couleur rouge
End Sub

Bon travail

[Jujulb]

Merci beaucoup !

Je me replongerai dans mes vieux cours de VBA à l'occasion mais en attendant ça marche nickel (je ne sais pas où j'avais merdé précédemment...)

Encore merci