VBA - Problème de mise à jour

[Nicole05]

Bonjour à tous,

Afin de comprendre mon problème, je vous ai joint un fichier d'exemple en annexe.

En fait j'aimerais que les opérations suivantes soient réalisées à chaque fois qu'un nom est rajouté en fin de liste sur la feuille 1 :
1) Copier la liste de noms en feuille 1 dans la feuille 2
2) Dans la feuille 2, insérer un filtre qui supprime les doublons
3) A partir de cette liste sans doublons, nommer cette plage de données
J'utilise cette plage de données dans une liste déroulante.

Comme vous le verrez, j'ai tenté de rédiger un code, mais il ne marche pas et je ne comprends pas vraiment pq.

Cijoint.fr - Service gratuit de dépôt de fichiers

Merci d'avance pour votre aide!

 

[pierrejean]

Re : VBA - Problème de mise à jour

bonsoir Nicole

Teste ceci:

Sub Worksheet_Change(ByVal Target As Range)
Sheets("Feuil2").Range("B3:B" & Sheets("Feuil2").Range("B65536").End(xlUp).Row).ClearContents
ligne = 3
For n = 3 To Sheets("Feuil1").Range("B65536").End(xlUp).Row
  If Application.WorksheetFunction.CountIf(Sheets("Feuil2").Range("B2:B" & Sheets("Feuil2").Range("B65536").End(xlUp).Row), Sheets("Feuil1").Range("B" & n)) = 0 Then
    Sheets("Feuil2").Range("B" & ligne) = Sheets("Feuil1").Range("B" & n)
    ligne = ligne + 1
  End If
Next n
ActiveWorkbook.Names.Add Name:="NOMS", RefersToR1C1:="=Feuil2!R3C2:R" & ligne - 1 & "C2"
End Sub

 

[Nicole05]

Re : VBA - Problème de mise à jour

J'ai essayé et ça a marché.
Merci infiniment
Bonne nuit

Nicole05