comparer 2 colonnes avece VBA

Bonjour a tous
je voudrais automatiser un contrôle entre 2 colonnes de données.
En colonne A, je stocke un archivage de numéros de dossiers
déja traites.(ex : 112450,113458 etc..)
En colonne B , je colle des nouveaux numéros
En colonne C, je recherche si les nouvelles valeurs de la colonne B existent dans la colonne d'archivage.
Si la valeur existe , un blanc ""
Si la valeur n 'existe pas , j'inscris "nouveau".
La formule "=SI(NB.SI(A:A;B1);"";"NOUVEAU") me donne satisfaction mais je n'arrive pas la traduire avec VBA
merci pour le petit coup de main:zoubi:

Une proposition à mettre dans le module de la feuille (évènement change)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub Worksheet_Change(ByVal Target As Range) Dim c As Range, v As Range If Target.Column = 2 And Target.Row >= 2 Then For Each c In Target Set v = Columns(1).Find(c, LookIn:=xlValues, lookat:=xlWhole) If v Is Nothing Then c.Offset(0, 1) = "Nouveau" Else c.Offset(0, 1).ClearContents End If Next c End If End Sub

---

MERCI mais Évènement change !!! je ne connais pas ..
Comment l associer plutôt a un bouton que j active après avoir recopier mes nouvelles valeurs?

C'est l'occasion de le connaître, tu n'auras pas besoin d'un bouton mais bon, voilà avec un bouton sur la feuille

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub CommandButton1_Click() Dim c As Range, v As Range   For Each c In Range("B2:B100") 'le 100 et le 1000 peuvent être remplacés par la dernière ligne remplie Set v = Range("A2:A1000").Find(c, LookIn:=xlValues, lookat:=xlWhole) If v Is Nothing Then c.Offset(0, 1) = "Nouveau" Else c.Offset(0, 1).ClearContents End If Next c End Sub

---