Remplissage d'une liste via une cellule sans doublon

Ilino

XLDnaute Barbatruc

• 4 Janvier 2013

• #2

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

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 4 Janvier 2013

• #3

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

Bonjour Ilino,

Avec une macro évènementielle.

VB:

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

 

Pièces jointes

• Remplissage d'une liste via une cellule sans doublon v1.xls

  25.5 KB · Affichages: 43

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 4 Janvier 2013

• #4

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

 

Vote positif 0 Vote négatif

G

Gareth

XLDnaute Impliqué

• 4 Janvier 2013

• #5

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

Bonsoir,

Ci-joint, une autre interpretation

 

Pièces jointes

• Classeur1.xls

  32.5 KB · Affichages: 47
• Classeur1.xls

  32.5 KB · Affichages: 52
• Classeur1.xls

  32.5 KB · Affichages: 48

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 4 Janvier 2013

• #6

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

re,

Le fichier en format xlsm.

 

Pièces jointes

• Remplissage d'une liste via une cellule sans doublon v1.xlsm

  14.5 KB · Affichages: 55

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 4 Janvier 2013

• #7

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

 

Dernière édition: 4 Janvier 2013

Vote positif 0 Vote négatif

G

Gareth

XLDnaute Impliqué

• 4 Janvier 2013

• #8

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

Re,

Ci-joint une nouvelle version à tester.

 

Pièces jointes

• Classeur2.xls

  32 KB · Affichages: 46
• Classeur2.xls

  32 KB · Affichages: 44
• Classeur2.xls

  32 KB · Affichages: 42

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 4 Janvier 2013

• #9

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

 

Vote positif 0 Vote négatif

G

Gareth

XLDnaute Impliqué

• 4 Janvier 2013

• #10

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

Re,

Voir le fichier joint

 

Pièces jointes

• Classeur2.xls

  32 KB · Affichages: 35
• Classeur2.xls

  32 KB · Affichages: 36
• Classeur2.xls

  32 KB · Affichages: 34

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 4 Janvier 2013

• #11

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

Code:

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

IL se plante ?

 

Dernière édition: 4 Janvier 2013

Vote positif 0 Vote négatif

G

Gareth

XLDnaute Impliqué

• 4 Janvier 2013

• #12

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

Re,

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

 

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 4 Janvier 2013

• #13

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

Gareth à dit:

Re,

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 4 Janvier 2013

• #14

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

Ilino à dit:

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

Code:

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

IL se plante ?

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

G

Gareth

XLDnaute Impliqué

• 4 Janvier 2013

• #15

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

Bonsoir,

Ci-joint une nouvelle version à tester

 

Pièces jointes

• Classeur2.xls

  32.5 KB · Affichages: 42
• Classeur2.xls

  32.5 KB · Affichages: 48
• Classeur2.xls

  32.5 KB · Affichages: 49

Vote positif 0 Vote négatif