Discussion :

[breiz56]

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

[mercatog]

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

Code :

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

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

[breiz56]

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?

[mercatog]

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 :

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

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