Discussion :

[bigmousse69]

Bonjour
Sous VBA excel savez-vous comment à l'interieur d'une variable de type tableau peut-on supprimer les doublons.
Je me rappelle qu'il existe une routine mais je ne me rappelle plus, j'ai cherché sur le site, mais j'avoue que je suis pressé, alors si quelqu'un a une tuyau je vous remercie
Merci

[ouskel'n'or]

Effectivement, il me semble avoir vu passer ça. Pour le principe, regarde ici. Tu pourrais adopter le même principe.
Consiste à créer une collection des données de ton tableau. Tout doublon crée une erreur -> Si erreur on passe à la donnée suivante. Ta collection créée, il te reste à la parcourir pour mettre ton tableau sans doublon à jour.
Tu t'en sortiras ?
Bonne soirée

[bigmousse69]

Salut
Merci pour la reponse mais je ne sais pas ce qu'est une collection, j'ai seulement des notions en VB. Mais j'ai trouvé une autre methode un peu plus compliqué mais je m'en sorts...
là voilà et dite moi ce que vous en pensez :

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
For a = 0 To nligne - 1
    b = 0
    f = True
        For b = 0 To nligne - 1
            If agence(b) = tableau(a) Then
                f = False
            Else
                f = True * f
            End If
        Next b
    If f = True Then
    agence(c) = tableau(a)
    c = c + 1
    End If
Next a

je transferts un tableau avec doublons nommé tableau dans un autre tableau nommé agence sans doublon

merci et bonne soirée

[ouskel'n'or]

Ce que j'en pense ? C'est une méthode ! Mais qu'elle est plus lente
Il y a souvent plusieurs solutions pour parvenir au même résultat. Cependant j'ajouterais une petite correction bien que là encore tu as deux solutions. Dans cette partie du code, soit tu mets

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
    f = True ' En vba True = - 1
        For b = 0 To nligne - 1
            If agence(b) = tableau(a) Then
                f = False ' = 0
            Else
                f = True * f ' True * True => -1 * -1 = 1
            End If
        Next b
    If f = True Then
    agence(c) = tableau(a)
    c = c + f ' c = c + (True * True) => c = c + (-1 * -1) => c = c + 1

soit tu mets

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
            Else
                f = True 'en supprimant "* f"
            End If

Juste pour t'embêter
Bonne journée