Copie selective de valeurs

  • Initiateur de la discussion Initiateur de la discussion Renaud
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

R

Renaud

Guest
Bonjour,

J'ai une liste de valeurs (sans doublons) dans la colonne A, une autre liste de valeurs (sans doublons) dans la colonne B.

Comment faire pour avoir (copier) dans la colonne C, les valeurs de la colonne A qui ne sont pas dans la colonne B.


Merci

renaud
 
En inversant les colonnes A et B (la fonction rechercheV d'Excel ne fonctionne que sur la première colonne).
Tu veux alors les valeurs de B qui ne sont pas dans A

en C1
=SI(ESTERREUR(RECHERCHEV(B1;A:A;1;0));B1;'')
recopie la formule vers le bas.

Avec cette fonction, Excel ne recopiera en C que les valeurs qu'ils n'aura pas trouvé dans la colonne A. L'inconvénient, c'est qu'on se retrouve avec plein de cellules vides : toutes celles de B qui sont contenues dans A.

Un filtrage 'non vide' permet de réctifier le tir.

Sinon, une macro serait bien plus efficace :
prendre chaque valeur de la colonne A la comparer aux valeurs de l'autre colonne et la copier en C si elle n'existe pas en B.
quelques compteurs feront l'affaire.
J'imagine aussi que la gestion de listes serait encore mieux, mais je ne connaîs pas du tout, c'est au programme des prochains jours.
 
Bonjour renaud, le forum

Voila un bout de code VB

Dim cola As String
Dim x As Integer
Dim y As Integer
Dim z As String
Dim condi As Boolean

Feuil1.Columns(3).Clear
z = 1

For x = 1 To Feuil1.Range('a65536').End(xlUp).Row
cola = Feuil1.Cells(x, 1)
condi = True
For y = 1 To Feuil1.Range('B65536').End(xlUp).Row
If Feuil1.Cells(y, 2) = cola Then condi = False: Exit For
Next

If condi = True Then Feuil1.Cells(z, 3) = cola: z = z + 1

Next x


Cordialement
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
12
Affichages
353
Réponses
5
Affichages
244
R
  • Question Question
Réponses
3
Affichages
102
regis6460
R
Retour