Excel récupérer les noms d'une colonne
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:
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 |