Discussion :

[RabiK33]

Bonjour à Tous,

Je suis nouveau sur le Forum, et j'ai un peu de mal avec VBA car je suis débutant.
Je dois créer un outil de Suivi où je dois quantifier plusieurs indicateur: Ma question porte sur la quantification des reprise de réceptions de projet:
Le fichier est issue d'un export d'une appli web et contient des milliers de lignes, de plus le choix des colonnes ne vient pas de moi.

Dans mon cas, je cherche à quantifier les reprise de réception.
En Colonne R j'ai un projet, LiAuA-374 Qui apparait sur 3 ligne car il a été réceptionné 3 FOIS:
Je voudrais différencier la 1er réception des 2

C'est pourquoi, j'ai rajouté une colonne reprise de réception (voir pièce jointe ci dessous):
NON = lorsqu'il s'agit de la 1er réception
OUI = Lorsqu'il s'agit de la 2eme réception du même projet, ou de la 3eme, voir de la 4eme.

Les n° d'actions sont classés par ordre chronologique, du bas vers le haut.

En somme, je voudrais créer une function qui automatise la colonne A:

SI colonne D = Réception, et dans la colonne R, le projet apparait plus de 2 fois alors on les différencie.
le 1er on met NON dans la colonne A
le 2eme on met OUI dans la colonne A
le 3eme on met OUI dans la colonne A

Merci d'avance pour votre Aide, n'hésitez pas à me poser des questions si j'ai pas été claire.

testex.xlsm.xlsx.

[thebenoit59]

Bonjour RabiK33.

Je te joins une proposition.

Le code en détail :

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
Option Explicit
 
Sub reprise()
Dim c As Variant
Dim d As Object
Dim l As Integer, li As Integer
 
l = Cells.Find("*", , , , xlByRows, xlPrevious).Row
Set d = CreateObject("scripting.dictionary")
    For li = l To 2 Step -1
        If Cells(li, 4).Value = "Réception" Then
            If d.exists(Cells(li, 18).Value) Then
                Cells(li, 1).Value = "Oui"
                    Else: d(Cells(li, 18).Value) = "": Cells(li, 1).Value = "Non"
            End If
        End If
    Next li
End Sub

Edit: Je n'avais pas pris en compte ton ordre chronologique.

[RabiK33]

Merci beaucoup Benoit c'est ce que je voulais