Gérer les Redondance VBA

Bonjour,

Je rencontre quelques soucis pour créer une nouvelle variable sous VBA.
En gros j'ai plusieurs clients qui ont plus de une commande et j'aimerais créer une variable redondance.
Si un Client a plus de 1 ticket alors "Non redondant "
Si un Client a plus de 1 ticket , son premier ticket et "1er Redondance" et les autres sont " Redondant"

Exemple :


Client 1 | 1er Redondance
Client 1 | Redondant
Client 2 | Non redondant
Client 3 | 1er Redondance
Client 4 | Non redondant
Client 1 | Redondant
Client 5 | Non redondant
Client 3 | Redondant

J'avais pensé peut_être à le faire sur deux colonnes pour que ce soit plus simple

Merci

Bonjour,

Où sont les valeurs de ticket ?

Pièce jointe 474814

En gros le Numéro ND c'est le numéro client et il peut être plusieurs fois

Bonjour,
Par formule en supposant que le numéro client soit en colonne A, attention les dollars sont importants:
=SI(NB.SI($A:$A;$A2)=1;"non redondant";SI(NB.SI($A$1:$A2;$A2)>1;"redondant";"1ère occurrence"))

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Option Explicit   Sub redondance() Dim nblig As Long nblig = WorksheetFunction.CountA(Columns.Item("A")) Dim lig As Integer     For lig = 2 To nblig If Application.CountIf(Range("A:A"), Cells(lig, 1)) = 1 Then Cells(lig, 2).Value = "Non redondant"   ElseIf Application.CountIf(Range(Cells(2, 1), Cells(lig, 1)), Cells(lig, 1)) > 1 Then Cells(lig, 2).Value = "Redondant" Else Cells(lig, 2).Value = "1ère occurence" End If Next End Sub

---

Merci halaster08 ça m'a vraiment bcp aidé !

Citation:

---

Envoyé par halaster08

Bonjour,
Par formule en supposant que le numéro client soit en colonne A, attention les dollars sont importants:
=SI(NB.SI($A:$A;$A2)=1;"non redondant";SI(NB.SI($A$1:$A2;$A2)>1;"redondant";"1ère occurrence"))

---