Bonjour,
Je cherche à récupérer les noms d'une colonne, où il y a plusieurs fois la même valeur, sur un fichier excel et copier uniquement une fois les noms sur une autre feuille.
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
fdomaine.cells(22,1).value="domaine"
i=2
k=1
trouve=False
Do While (PlandeCharge.cells(i,2).value<>Nothing)
j=2
Do While j<=k And trouve=False
If PlandeCharge.cells(i,2).value=fdomaine.cells(j,1).value Then
trouve=True
End If
j=j+1
Loop
If trouve=False Then
k=k+1	
fdomaine.cells(k,1).value=PlandeCharge.cells(i,2).value
End If
i=i+1
Loop