Je bloque sur un test logique

Version imprimable

29/03/2011, 19h36
wyzer

Je bloque sur un test logique

Bonjour,

Depuis tout à l'heure je me casse la tête sur un problème de logique :?

Je voudrais affecter une couleur de fond sur chaque ligne par alternance

Exemple :

Colonne A

2001 (rouge)
1996 (bleu)
2009 (rouge)
1995 (bleu)
1995 (bleu)
2007 (rouge)
2007 (rouge)
1994 (bleu)
2000 (rouge)

Mais je ne sais pas comment construire mes conditions IF

Merci par avance
29/03/2011, 19h42
chyanon

Bonjour,

Y a t il un lien logique entre le contenu et la couleur?

Si il n'y a pas de lien, il a ce genre de code:

Code:

1
2
3
4
5
6
 
Sub color()
For i = 1 To 15
Rows(i).Interior.color = RGB(Int(Rnd * 256), Int(Rnd * 256), Int(Rnd * 256))
Next
End Sub

Bonsoir

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim LastLig As Long, i As Long
Dim Klr(0 To 1) As Long
Dim k As Byte
 
 
Klr(0) = vbRed: Klr(1) = vbBlue
Application.ScreenUpdating = False
With Sheets("Feuil1")
    LastLig = .Cells(.Rows.Count, "A").End(xlUp).Row
    .Range("A1").Interior.Color = Klr(0)
    For i = 2 To LastLig
        If .Range("A" & i).Value <> .Range("A" & i - 1).Value Then k = IIf(k = 1, 0, 1)
        .Range("A" & i).Interior.Color = Klr(k)
    Next i
End With

Edit:
Le même code à l'aide d'une variable booléenne

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim LastLig As Long, i As Long
Dim Klr(-1 To 0) As Long
Dim k As Boolean
 
Klr(-1) = vbBlue: Klr(0) = vbRed
Application.ScreenUpdating = False
With Sheets("Feuil1")
    LastLig = .Cells(.Rows.Count, "A").End(xlUp).Row
    .Range("A1").Interior.color = Klr(0)
    For i = 2 To LastLig
        If .Range("A" & i).Value <> .Range("A" & i - 1).Value Then k = Not k
        .Range("A" & i).Interior.color = Klr(k)
    Next i
End With

Entre temps, j'ai fais un code avec mes connaissances.
Certainement qu'il y a plus simple mais ça marche

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Sub color()
 
Dim R As Integer
Dim B As Integer
Dim C As Byte
 
For i = 1 To 15
C = (1 * Rnd)
R = C * 256
If R = 256 Then
B = 0
Else
B = 256
End If
 
Rows(i).Interior.color = RGB(R, 0, B)
Next
End Sub

29/03/2011, 22h34
wyzer

Citation:

Envoyé par chyanon

Bonjour,

Y a t il un lien logique entre le contenu et la couleur?

Non il n'y a pas de lien

Merci à vous tous pour vos codes, ça fonctionne très bien !!! :ccool: