Remplissage d'une liste via une cellule sans doublon

[Ilino]

Bonsoir Forum
je vous rejoind encore avec un autre SOUCIS😱
Je veux créer une liste déroulante (sans doublon) cette dernniere remplis par une seule cellule
Exemple
Je veux créer une liste dans la colonne A (a partir de A3)
Chaque fois que je fais rentrer une donnée dans la cellule A2 (par exemple)
Cette donnée elle sera ajoutée automatiquement dans la liste colonne A et ainsi de suite et sans doublons
merci

 

[Ilino]

Re : Remplissage d'une liste via une cellule sans doublon

Re Bonjour Forum
je suis désolé je ne sais pas si je suis claire dans mon soucis
Gracie

 

[mapomme]

Re : Remplissage d'une liste via une cellule sans doublon

Bonjour Ilino,

Avec une macro évènementielle.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim res
Application.EnableEvents = False
  If Target.Address <> Range("a2").Address Then Exit Sub
  res = Application.Match(Target, Range("A3:A" & Rows.Count), 0)
  If IsError(res) Then Cells(Rows.Count, 1).End(xlUp).Offset(1) = Target
Application.EnableEvents = True
End Sub

 

[Ilino]

Re : Remplissage d'une liste via une cellule sans doublon

Salut Ma pomme
Gracie pour la reponse mais elle ne fonctionne pas bien ( peut etre la version 2010)??? moi je bose sur V 2007

 

[Gareth]

Re : Remplissage d'une liste via une cellule sans doublon

Bonsoir,

Ci-joint, une autre interpretation

 

[mapomme]

Re : Remplissage d'une liste via une cellule sans doublon

re,

Le fichier en format xlsm.

 

[Ilino]

Re : Remplissage d'une liste via une cellule sans doublon

Bonjour mapomme, gareth
merci pour la reponse
et si je veux generaliser ce code pour plusieur colonne ( exemple de A au K)
est ce que je dois recopier le code 11 fois et l'adapter a chaque colonne ?
un autre souci : comment faire pour vider la cellule de saisi apres chaque validation ?
merci

 

[Gareth]

Re : Remplissage d'une liste via une cellule sans doublon

Re,

Ci-joint une nouvelle version à tester.

 

[Ilino]

Re : Remplissage d'une liste via une cellule sans doublon

Re bonjour
merci gareth
super c'est exactement ce que je cherchais
si tu permet je veux ajouter un Msgbox( " Donnée existe") dans le cas de doublon ?
merci

 

[Gareth]

Re : Remplissage d'une liste via une cellule sans doublon

Re,

Voir le fichier joint

 

[Ilino]

Re : Remplissage d'une liste via une cellule sans doublon

Re encore merci
j'ai ajouté un code de rappel de texte lde a cellule de saisi

If Not Intersect(Target, Range("A2")) Is Nothing Then
If Target = "" Then Target = "Saisir ici"
End If

IL se plante ?

 

[Gareth]

Re : Remplissage d'une liste via une cellule sans doublon

Re,

Ca doit faire quoi et tu l'as saisi où ?

 

[Ilino]

Re : Remplissage d'une liste via une cellule sans doublon

Re,

Ca doit faire quoi et tu l'as saisi où ?

Re,
MERCI POUR LA REPONSE
voila , mon objectif est d'informer l'utilisteur que toutes les données doivent etre saisi dans la cellule de saisi ( dans notre cas sont des cellules de haut de chaque colonne A2 B2 C2 jusqu au K2) et non pas dans les cellules de la colonne du tableaux;
gracie

 

[Ilino]

Re : Remplissage d'une liste via une cellule sans doublon

Re encore merci
j'ai ajouté un code de rappel de texte lde a cellule de saisi

If Not Intersect(Target, Range("A2")) Is Nothing Then
If Target = "" Then Target = "Saisir ici"
End If

IL se plante ?

Bonjour Forum
si vous permettez je re lance ma demade ci dessus y a t il une possibilité?
merci

 

[Gareth]

Re : Remplissage d'une liste via une cellule sans doublon

Bonsoir,

Ci-joint une nouvelle version à tester