Discussion :

[clementfufu]

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 !

[Philippe Tulliez]

Bonjour,
Je n'ai pas regardé si le reste fonctionne mais je vois déjà un problème.

Code :

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

If Worksheets(1).Range("F" & i).Font.Color = "vbRed" Then

vbRed est une constante et doit être traitée comme une variable donc ne pas être entre guillemets