Discussion :

[AmbreM]

Bonjour,

Ce que je souhaire faire est:
Si deux cellules ont des donnees identiques dans la colonne C, alors on attribue le serial number de la premiere ligne (en partant de la fin) aux lignes du dessus en colonne A. Voir le fichier joint.

J'ai commencé à écrire ce code.

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
 
Option Explicit
 
Public Sub test()
 
Dim ProjectID As Integer
Dim ProjectID_column As Integer
For ProjectID = 1 To 200
If Worksheets("Purchasing Plan").Cells(2, ProjectID) = "Project ID" Then
ProjectID_column = ProjectID
End If
 
   Next
 
    Dim dataRange As Range
    Dim oneCell As Range
    Set dataRange = Range(.Cells(4, ProjectID_column), .Cells(.Rows.Count, 4).End(xlUp))
    Dim row_counter1 As Integer
 
row_counter1 = 4
 
Do Until row_counter = 7000
....

je ne sais pas si ce début à du sens, en tout cas je ne sais vraiment pas quoi ecrire ensuite. Peut etre qu'une formule est suffisante ?

J'ai regardé des posts sur identifier des doublons et la majorité du temps une formule est proposée mais je n'arrive pas à appliquer à mon cas.

Merci de votre aide
Ambre