Discussion :

[DébutantVBA75]

Bonjour,

étant débutant en VBA, j'aimerais créer un programme qui permette de comparer deux colonnes. Je m'explique : j'ai un fichier excel avec deux colonnes différentes A et B, de plusieurs centaines voire milliers de lignes chacune. Le but est de savoir si toutes les valeurs comprises dans B sont également présentes dans A. Si non, renvoyer un message en explicitant les valeurs qui ne sont pas dans A. (La colonne A comporte plus de valeurs que la B)

Par exemple : prendre la valeur de la cellule B1, la rechercher dans la colonne A (et dire si elle est présente ou pas), puis prendre la valeur de la cellule B2, la rechercher dans la colonne A, etc.

Cela semble assez simple mais mes compétences étant pour l'instant limitées, votre aide serait la bienvenue.

Merci d'avance !

[Menhir]

Pas besoin de VBA pour faire ça.

En supposant que tes données commencent en ligne 1, mets en C1 la formule :

Code :

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

=SI(ESTNA(EQUIV(B1;A:A;0));"XXXXX";"-")

Tu copies C1 vers le bas autant que tu as de valeurs en B.
Tu fais un tri sur B:C en prenant C comme clé de tri, histoire de regrouper les valeurs de B qui ne sont pas en A (marquées XXXXX).

En une minute c'est réglé.
Pas besoin de sortir l'artillerie lourde du VBA pour ça.

[DébutantVBA75]

Merci Menhir pour ta réponse.

Effectivement, c'est très rapide. J'ai oublié de préciser que la longueur des valeurs n'est pas la même entre les deux colonnes. Par exemple, en A, on peut trouver "200221-00001-01/01" alors qu'en B on a "200221-00001-01". Pour moi, ce sont des valeurs "identiques", donc la valeur de B est à considérer comme présente en A (malgré le "/01").

Les longueurs des valeurs n'étant pas les mêmes, la formule ne fonctionne pas... Ce sont les 13 premiers chiffres (donc les 15 premiers caractères) qui m'intéressent pour la comparaison.

Comment faire ?

[LeBo74]

Bonjour,

Si se sont les treize premier caractère de la colonne B qui t'intéresse et qu'en colonne A tes valeurs sont une chaîne texte (pas des nombres) tu peux utiliser la fonction gauche pour limiter la chaîne évalué à 13 caractères. (cette fonction renvoie une chaîne texte de la longueur spécifié par l'argument).

exemple (inspiré de menhir)

Code :

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

=SI(ESTNA(EQUIV(Gauche(B1;13);A:A;0));"XXXXX";"-")

Bonne suite