Macro pour vérifier un élément nouveau dans la liste

[anasimo]

bonjour
J'ai une feuille "utilisateurs" où sont inscrits les numéros des vendeurs .......dans la feuille 2 "BD_CLMT je vais copier quotidiennement un fichier avec plus de 2000 lignes...je cherche une macro qui me permet de vérifier s'il y a un nouveau vendeur qui apparaît et qui ne figure pas dans la liste figurant dans la feuille "utilisateurs". Le but est de le dénicher et l'ajouter à la liste.

......

Merci beaucoup

 

[danielco]

Bonjour, quel est le format du fichier source ?

Daniel

 

[anasimo]

Bonjour, quel est le format du fichier source ?

Daniel

c'est un fichier excel...je dois copier tout son contenu et le mettre dans la feuille BD_CLMT

 

[danielco]

Quel est son format ? Est-ce qu'il est identique au fichier cible ?

Daniel

 

[anasimo]

Quel est son format ? Est-ce qu'il est identique au fichier cible ?

Daniel

oui tous des fichiers excel

 

[danielco]

Est-ce que les données sont au même endroit sur les deux fichiers ?

Daniel

 

[anasimo]

oui exactement ....ils seront les endroits indiquées sur les image

 

[danielco]

Si je trouve un nouveau vendeur, quelle est la colonne correspondant à "Entité" (colonne G) ?

Daniel

 

[anasimo]

Si je trouve un nouveau vendeur, quelle est la colonne correspondant à "Entité" (colonne G) ?

Daniel

non pour ne pas compliquer les choses ...il doit m'avertir qu'il y a un nv vendeur qui ne figure pas dans ta liste colonne H (ignore maintenant la colonne G)
Merci

 

[danielco]

Mets cette macro dans un module standard et exécute-la après la copie sur la feuille "BD_CLMT" :

Sub Alerte()
  Dim Ligne As Long, C As Range, Plage As Range, Tabl As Variant, I As Long, Teste As Boolean
  With Sheets("BD_CLMT")
    Set Plage = .Range("J2", .Cells(.Rows.Count, 10).End(xlUp))
  End With
  With Sheets("Utilisateurs")
    Ligne = .Cells(.Rows.Count, 8).End(xlUp).Row
    Tabl = Application.Transpose(.Range("H2:H" & Ligne))
    For Each C In Plage
      For I = 1 To UBound(Tabl)
        Teste = False
        If C = Tabl(I) Then
          Teste = True
          Exit For
        End If
      Next I
      If Teste = False Then
        Ligne = Ligne + 1
        .Cells(Ligne, 8) = C.Value
        Tabl = Application.Transpose(.Range("H2:H" & Ligne))
      End If
    Next C
  End With
End Sub

Daniel

 

[anasimo]

Merci beaucoup Daniel ...marche impec

 

[anasimo]

Est ce qu'on ne peut pas avoir un message box m'indiquant par exemple qu'un nouveau vendeur n'est pas présent dans la liste vendeurs habituelle pour aller vérifier dans la liste ceux qui sont joutés ou au cas contraire aucun vendeur n'est ajouté...Merci infiniment

 

[danielco]

Sub Alerte()
  Dim Ligne As Long, C As Range, Plage As Range, Tabl As Variant, I As Long, Teste As Boolean
  Dim Tot As Long
  With Sheets("BD_CLMT")
    Set Plage = .Range("J2", .Cells(.Rows.Count, 10).End(xlUp))
  End With
  With Sheets("Utilisateurs")
    Ligne = .Cells(.Rows.Count, 8).End(xlUp).Row
    Tabl = Application.Transpose(.Range("H2:H" & Ligne))
    For Each C In Plage
      For I = 1 To UBound(Tabl)
        Teste = False
        If C = Tabl(I) Then
          Teste = True
          Exit For
        End If
      Next I
      If Teste = False Then
        Ligne = Ligne + 1
        .Cells(Ligne, 8) = C.Value
        Tabl = Application.Transpose(.Range("H2:H" & Ligne))
        Tot = Tot + 1
      End If
    Next C
    If Tot > 0 Then
      MsgBox Tot & " nouveaux vendeur(s)"
    Else
      MsgBox "Pas de nouveau vendeur"
    End If
  End With
End Sub

Daniel

 

[anasimo]

Très très satisfait c'est exactement ce que je cherche........ Merci beaucoup Daniel

 

[anasimo]

re bonjour Daniel

j'ai ajouté deux autre feuilles CF et CCT et les numéros des nouveaux vendeurs que je veux vérifier se trouvent dans la colonne F pour la feuille CF et la colonne L pour la feuille CCT ....est ce que vous pouvez les ajouter à la macro
NB: dans notre macro les vendeurs à vérifier se trouvaient dans la colonne F de la BD_CLMT

Merc d'avance