Discussion :

[12_darte_12]

Bonjour,

On m'a demandé dans un tabbleau excel de modifier la couleur des case de la colonne 1 si sur la ligne correspondante la colonne 10 etait egale a 1.

J'ai commencé par ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
         If (Range("J1") = 1) Then
                Range("A1").Select
            With Selection.Interior
                .ColorIndex = 3
                .Pattern = xlSolid
            End With
        Else
                Range("A1").Select
            With Selection.Interior
                .ColorIndex = 2
                .Pattern = xlSolid
            End With
        End If

Mon problème est que je ne m'y connais pas en vb et je ne vois pas comment parcourir mon tableau a la recherche de ma valeur 1 et comment remplacer le range("A1").

[12_darte_12]

Personne n'a d'idée?

[jmfmarques]

Personne n'a d'idée?

Bien sur : faire par exemple une recherche avancée sur ce forum avec les mots :

couleur AND cellule

[DarkVader]

Exact
sinon sans programmation voir la mise en forme conditionnelle ( Alt TD )

[12_darte_12]

Moi tout ce que j'arrive a faire c'est si A1=1 alors A1 est bleu, je n'arrive pas a dire A8 est bleu.

[Megaxel]

Pour parcourir, utilise une boucle "For... Next".
Mais franchement, si tu veux faire du VB(A), commence par lire les cours et tutoriels, sinon, tu n'arriveras à rien.
Ça ressemblera à ça:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
For i = 1 To 20
  If (Range("J"&i).Value = 1) Then 
           With Range("A"& i).Interior
                .Pattern = xlSolid 
           End With 
        Else
            With Range("A"&i).Interior 
                .ColorIndex = 2 
                .Pattern = xlSolid 
            End With 
   End If
Next i

[DarkVader]

Moi tout ce que j'arrive a faire c'est si A1=1 alors A1 est bleu, je n'arrive pas a dire A8 est bleu.

il faut utiliser En condition « la formule est » et non « La valeur de la cellule est »
A ce moment il est possible d'utiliser n'importe quelle condition attachée à la feuille active.[/list]