Discussion :

[ascef]

Bonjour à tous,

Je débute en VBA et je bute sur un point.
Voici un exemple de mon fichier :

Colonne A------Colonne B------Colonne C--------Colonne D
01/02/2010-----Personne1-----TARTEMPION-----XXX
05/04/2010-----Personne1-----TARTEMPION-----AAA
06/04/2010-----Personne1-----TARTEMPION-----XXX
25/04/2010-----Personne1-----TARTEMPION-----XXX
01/02/2010-----Personne1-----DUPONT----------XXX
15/04/2010-----Personne1-----DUPONT----------XXX
06/05/2010-----Personne1-----DUPONT----------AAA
12/05/2010-----Personne1-----DUPONT----------XXX

Le tableau est au préalable trié par colonne B, Colonne C puis Colonne A et celui-ci ne peut pas changer.

Ce que je veux faire c'est comparer pour le couple ColonneB+ColonneC la valeur de la Colonne D.

Si pour un même couple ColonneB+ColonneC on a Colonne D = XXX mais que pour la ligne suivante et pour le même couple nous avons XXX pour la colonne D alors la première ligne doit apparaitre en bleu.

Le résultat attendu :

Colonne A------Colonne B------Colonne C-------Colonne D
01/02/2010-----Personne1-----TARTEMPION-----XXX
05/04/2010-----Personne1-----TARTEMPION-----AAA
06/04/2010-----Personne1-----TARTEMPION-----XXX
25/04/2010-----Personne1-----TARTEMPION-----XXX
01/02/2010-----Personne1-----DUPONT---------XXX
15/04/2010-----Personne1-----DUPONT---------XXX
06/05/2010-----Personne1-----DUPONT---------AAA
12/05/2010-----Personne1-----DUPONT---------XXX

J'espère que ma demande est assez claire.
Merci de bien vouloir m'aider je suis un peu perdue.

J'attends impatiemment vos réponses

A+

[tarnx]

C'est peut être pas optimisé mais dans l'idée, ça pourrait être ça.
(Si quelqu'un maîtrise le With mieux que moi, je l'invite à me corriger )

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Dim Ws as Excel.WorkSheet
Dim nbRow as Integer
Dim cpt as Integer

Set Ws = ThisWorkbook.Worksheets("TaFeuille")
 
nbRow = Ws.Range("A").End(xlDown).Row

For cpt = 3 To nbRow

   If Ws.Range("B" & cpt).value = Ws.Range("B" & cpt - 1).value & Ws.Range("C" & cpt).value = Ws.Range("C" & cpt - 1).value then
      
      If Ws.Range("D" & cpt).value = "XXX" & Ws.Range("D" & cpt - 1).value = "XXX" Then

         Ws.Range("B" & cpt).Interior.Color = Le code de la couleur

      End If

   End If

Next cpt

Par contre, je ne suis pas sur pour le Interior.Color, j'ai un gros doute.

[gFZT82]

Bonjour ascef, bonjour tarnx,

J’ai juste rajouté mon grain de sel au code de tarnx

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub Test()
 
Dim nbRow As Integer
Dim cpt As Integer
 
    'avec With pour faire plaisir à tarnx
    With Worksheets("Feuil1") ' A adapter
    'On recherche le nombre de lignes
    nbRow = .Range("A1").End(xlDown).Row
    'En supposant que la première ligne est une ligne d'en-tête et que les données débutent en ligne 2.
    For cpt = 3 To nbRow
        'On concatène les cellules en colonne B et colonne C puis on compare la ligne n-1 et la ligne n
        If .Cells(cpt - 1, 2) & .Cells(cpt - 1, 3) = .Cells(cpt, 2) & .Cells(cpt, 3) Then
            'On compare la valeur des cellules des lignes n et n-1 de la colonne D
            If .Range("D" & cpt).Value = "XXX" And .Range("D" & cpt - 1).Value = "XXX" Then
                .Range("B" & cpt - 1).EntireRow.Font.Color = RGB(0, 0, 255) 'Le code de la couleur
            End If
        End If
    Next cpt
    End With
 
End Sub

Cordialement.