Bonjour à tous,

J'ai besoin de votre aide car je suis un peu "coincé"

Je souhaiterai effectuer un test après avoir cliqué sur un bouton.
J'ai un fichier excel de plusieurs pages, quand j'appui sur le bouton, un test de couleur sur la colonne F pour les ligne 2 a 50 fait :

si couleur Fi=rouge alors valeur Ai =0

je ne comprends pas pourquoi ça ne fonctionne pas

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CommandButton19_Click()
 
Dim i As Integer
For i = 2 To 50
If Worksheets(1).Range("F" & i).Font.Color = "vbRed" Then
 
Worksheets(1).Range("A" & i).Value = 0
 
End If
Next i
 
End Sub
Merci d'avance !