Discussion :

[Henrique92]

Bonjour,
J'ai deux listes (en A et B) avec des noms.
En A, il s'agit de l'original.
En B, il y a eu des ajouts mais je ne sais pas lesquels.

Comment avoir en C ceux qui sont en B mais pas dans A ?

Merci, je débute -encore.

H

[SfJ5Rpw8]

tiens un peu de code

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
16
17
18
Sub Macro2()
 Dim i As Integer ' Numero de ligne dans colonne c.
 Dim A As Range
 Dim B As Range
 Dim r As Range
 Dim f As Range
 Set B = Range(Range("B1"), Range("B1").End(xlDown))
 Set A = Range(Range("A1"), Range("A1").End(xlDown))
 i = 1
 For Each r In B ' pour chaque cellules de la selection B
    Debug.Print r
  Set f = A.Find(r) ' Recherche R dans La plage "A"
   If f Is Nothing Then ' Si on ne trouve pas ... on le rajoute
    Range("C" & i) = r
     i = i + 1
   End If
    Next
End Sub

[Henrique92]

Oui,
Je l'ai testée c'est génial mais j'ai oublié de mentionner une précision:
Il faut différencier en fonction de la casse.

Pierre est différent de pierre....

Sinon, c'est exactement ça, bravo.

H

[SfJ5Rpw8]

jette un oeil dans l'aide de la fonction Find ...

[Henrique92]

Je suis trop fort!!!

j'ai ajouté

Set f = A.Find(r, , , , , , 1)

Et ça marche parfaitement !!!!

Je deviens vraiment bon!!!

Tu peux me confirmer que c'est bien ce qu'il fallait faire ou pas?

Merci Bbil !
H

[SfJ5Rpw8]

oui ...