Si couleur alors

[pachi44]

Bonjour j'ai un petit problème sur ma macro.
Je ne trouve pas le code pour dire :

Si mon remplissage de cellule est differente de aucun remplissage alors ...

En gros je veux trouver comment faire pour trouver dans mon tableau les cellules qui sont en couleur.

Mais je trouve pas comment l'écrire merci beaucoup pour votre aide .

[pachi44]

Peu être que je me suis tres mal expliqué et si c'est le cas desolé à tout ceux qui on lu se poste lol.

Alors pour essayer de trouver les cellules qui étaient en couleur j'ai essayé ca :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
For x = 10 To 47
 
    If Range("B" & x).Select <>
         With Selection.Interior
            .Pattern = xlNone
            .TintAndShade = 0
            .PatternTintAndShade = 0
         End With
         Then
         Range("C" & x) = 1
     End if
 
Next x

Comme vous pouvez l'imaginé sa ne marche pas du tout du tout !! lol mais je trouve pas la syntaxe pour le faire marché
Encore merci d'avance.

[tedo01]

Bonjour,
La bonne syntaxe serait plutôt

Code :

1
2
3
4
5
6
7
For x = 10 To 47
    With Range("B" & x).Interior
        If .Pattern <> xlNone Or .TintAndShade <> 0 Or .PatternTintAndShade <> 0 Then
             Range("C" & x) = 1
        End If
    End With
Next x