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
Partager