Procédure VBA : arrayDuplicatesDelete

La procédure VBA arrayDuplicatesDelete supprime tous les doublons d'un tableau.

Utilisation :

arrayDuplicatesDelete tableau

Exemple d'utilisation

Suppression des doublons du tableau arrayDuplicatesDelete tableau :

Sub exemple()

    tableau = Array("SI", "RECHERCHEV", "SOMME", "NB", "JOINDRE", "NB", "ESTNUM", "SI", "STXT", "RECHERCHEV", "SOMME", "JOINDRE", "NB")

    arrayDuplicatesDelete tableau 'Suppression des doublons

End Sub

Pour vérifier si cela a bien fonctionné, vous pouvez utiliser arrayDebug pour afficher le contenu du tableau dans une MsgBox :

Sub exemple()

    tableau = Array("SI", "RECHERCHEV", "SOMME", "NB", "JOINDRE", "NB", "ESTNUM", "SI", "STXT", "RECHERCHEV", "SOMME", "JOINDRE", "NB")

    arrayDuplicatesDelete tableau 'Suppression des doublons
    
    arrayDebug tableau, , , Chr(10) 'Affichage du tableau dans une MsgBox pour vérification

End Sub

Remarque : cette fonction nécessite l'installation du pack de fonctions XLP (un add-in gratuit pour Excel qui ajoute 92 nouvelles fonctions).