Bonjour,
Je débute avec VBA et les macros et je souhaite créer une macro de mise en forme conditionnelle. Lorsque je l'enregistre elle ne marche pas. J'ai donc décidé de la créer moi même et c'est un rattage total. Voilà donc mon problème:
Je souhaite que sur toute une colonne (O), et ce, jusqu'à ce que les cellules soient vides, la macro execute les conditions suivantes:
Si la cellule = "A", alors mettre un fond vert clair et une écriture vert foncé
Si la cellule = "B", alors fond jaune et écriture orange
Si la cellule = "C", alors fond rosé et écriture bordeaux
Sinon, fond rouge et écriture noire
J'ai tenté ça, mais évidemment ça ne marche pas:
Range("O2").Select
n = 1
Do
n = n + 1
If [O2] = " Efficace" Then
Selection.ColorIndex = 11 And Selection.Font = 35
End If
If vcellule = " Défectueux" Then Selection.ColorIndex = 21 And Selection.Font = 54
End If
If vcellule = " Critique" Then Selection.ColorIndex = 1 And Selection.Font = 30
Else: Selection.ColorIndex = 45 And Selection.Font = 36
End If
Loop Until IsEmpty(Cells(n, 1))
Merci beaucoup pour votre aide....
Je débute avec VBA et les macros et je souhaite créer une macro de mise en forme conditionnelle. Lorsque je l'enregistre elle ne marche pas. J'ai donc décidé de la créer moi même et c'est un rattage total. Voilà donc mon problème:
Je souhaite que sur toute une colonne (O), et ce, jusqu'à ce que les cellules soient vides, la macro execute les conditions suivantes:
Si la cellule = "A", alors mettre un fond vert clair et une écriture vert foncé
Si la cellule = "B", alors fond jaune et écriture orange
Si la cellule = "C", alors fond rosé et écriture bordeaux
Sinon, fond rouge et écriture noire
J'ai tenté ça, mais évidemment ça ne marche pas:
Range("O2").Select
n = 1
Do
n = n + 1
If [O2] = " Efficace" Then
Selection.ColorIndex = 11 And Selection.Font = 35
End If
If vcellule = " Défectueux" Then Selection.ColorIndex = 21 And Selection.Font = 54
End If
If vcellule = " Critique" Then Selection.ColorIndex = 1 And Selection.Font = 30
Else: Selection.ColorIndex = 45 And Selection.Font = 36
End If
Loop Until IsEmpty(Cells(n, 1))
Merci beaucoup pour votre aide....