Bonjour,

Je souhaiterais créer un programme en VBA qui permettrait, quand un vecteur est donné, de supprimer les doublons. Par exemple le vecteur [4,5,2,6,4,5,7,9,8,1,2,3] deviendrait [4,5,2,6,7,9,8,1,2,3]
Voilà si quelqu'un peut me donner une trace d'algo, voire un programme permettant de faire ceci

Merci !

tableau[N];
variables i, j;
Pour i allant de 0 à N
{
      Pour j allant de i+1 à N
      {
         Tant que tableau[i] == tableau[j]
          {
            Supprimer tableau[j];
            j++;
          }
      }
}

A noter que cet algo est en O(n²) donc pas très efficace pour une liste très grande de vecteurs.

Ok je vois à peu près la démarche mais comment faire "Supprimer tableau[j]" en vba ?

Et à quoi correspond "j++"

????

Supprimer un élément d'un tableau correspond à décaler vers la gauche tous les éléments qui suivent cet élément à supprimer (l'élément est immédiatement après lui le remplace), et à réduire la taille du tableau de 1.

Exemple : i est l'indice du tableau dans lequel se trouve l'élément à supprimer.

Pour k allant de i à N
{
      tableau[k]=tableau[k+1];
}

realloc(tableau, N-1);

Concernant mon exemple précédent, il faut enlever le j++.