Discussion :

[sakhob]

Bonjour,
je me permets de vous écrire pour solliciter votre aide.
je m'explique:

j'ai un fichier (echantillon pour test) avec en colonne A la ident,colonne B la date ,colonne C immat,colonne D corporel(o/n),colonne E statut et en colonne F le %tage de resp
ce que je veux faire c'est ça.
- si j'ai la meme ident en A à la meme date en B avec la meme immat en C alors si en colonne D j'ai du O et N alors je mets tout en "O" sinon je laisse tel quel.
et si en colonne E , j'ai le statut OPEN et Close alors je mets tout en OPEN sinon je laisse tel quel.
ET si en colonne F, j'ai 2 resp qui sont differents je prend le plus grand partout.

je fais ça pour toutes les lignes où j'ai une meme ident,meme date et meme immat.

j'ai commencé à ecrire un code mais ça marche pas.

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
23
24
25
26
27
28
29
Sub test()
Dim Plage As Range, C As Range, Teste
Dim Offset As Long
Dim derlign, i, j, k As Integer
 
derlign = Range("a65536").End(xlUp).Row
'Plage = .Range(.[A1].Offset(i, 1), .Cells(.Rows.Count, 1 + i).End(xlUp))
'With Sheets("New")
 
For j = 2 To derlign + 1
 
If Cells(j - 1, 1) = Cells(j, 1) And Cells(j - 1, 2) = Cells(j, 2) And Cells(j - 1, 3) = Cells(j, 3) Then
 
  If Cells(j - 1, 4).Value <> Cells(j, 4).Value Then Range("d" & j - 1).Value = "O" And Range("d" & j) = "O"
 
    End If
 
  If Cells(j - 1, 5).Value <> Cells(j, 5).Value Then Range("e" & j - 1).Value = "OPEN" And Range("e" & j).Value = "OPEN"
 
 
 
If Cells(j - 1, 6).Value <> Cells(j, 6).Value Then Cells(j - 1, 6).Value = 100 And Cells(j, 4).Value = O
 
End
 
Next
 
 
End Sub

je vous joint le fichier pour plus d'explication
merci de votre aide

[parmi]

Bonjour,

Je n'ouvre pas les fichiers avec macros...

Ici

If Cells(j - 1, 1) = Cells(j, 1) And Cells(j - 1, 2) = Cells(j, 2) And Cells(j - 1, 3) = Cells(j, 3) Then
If Cells(j - 1, 4).Value <> Cells(j, 4).Value Then Range("d" & j - 1).Value = "O" And Range("d" & j) = "O" End If

Tu ne peux pas mettre ce AND
Essaie plutôt

Code :

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

1
2
3
4
5
6
If Cells(j - 1, 1) = Cells(j, 1) And Cells(j - 1, 2) = Cells(j, 2) And Cells(j - 1, 3) = Cells(j, 3) Then
  If Cells(j - 1, 4).Value <> Cells(j, 4).Value Then 
      Range("d" & j - 1).Value = "O" 
      Range("d" & j) = "O"
  End If
End If

[sakhob]

Merci parmi pour l'intervention.
pour info j'ai enlever les macro dans le fichier
pour vérifier la 2 eme et la 3 eme condition c'est la ou je bloque.
je renvoi le fichier sans macro

[parmi]

Tu n'as qu'à utiliser la même méthode que je t'ai mise pour la 1ere condition.
Enlève le AND et mets tes résultats sur plusieurs lignes.

[sakhob]

Bonsoir
j ai fait comme tu as dit mais sa l fait que pour la colonne D mais rien en E et F.
en plus il ne fait rien sur les suivantes.
merci de votre aide

[parmi]

Bon, essaie comme ceci et essaie de comprendre ce que ça fait.

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
23
24
Sub test()
    Dim derlign As Long, j As Long
    Dim Valeur
 
    derlign = Range("a65536").End(xlUp).Row
 
    For j = 2 To derlign + 1
        If Cells(j - 1, 1) = Cells(j, 1) And Cells(j - 1, 2) = Cells(j, 2) And Cells(j - 1, 3) = Cells(j, 3) Then
            If Cells(j - 1, 4).Value <> Cells(j, 4).Value Then
                Range("d" & j - 1).Value = "O"
                Range("d" & j) = "O"
            End If
            If Cells(j - 1, 5).Value <> Cells(j, 5).Value Then
                Range("e" & j - 1).Value = "OPEN"
                Range("e" & j).Value = "OPEN"
            End If
            If Cells(j - 1, 6).Value <> Cells(j, 6).Value Then
                Valeur = Application.WorksheetFunction.Max(Cells(j - 1, 6).Value, Cells(j, 6).Value)
                Range("f" & j - 1).Value = Valeur
                Range("f" & j).Value = Valeur
            End If
        End If
    Next
End Sub