doublons empecher la saisie

[Francois]

bonjour,

dans une colonne ou le choix de chaque cellule est limitè de 0 a 200 (plus la lettre X) comment puis-je faire pour empecher la saisie de doublons ??


aucune idée du chemin à suivre... je bosse dans une auberge à Rome et meme si je ne veux pas monneyer l aide de qui que se soit vous pourrez compter sur ma gratitute si vous pouvez m' aider svp


merci d'avance
cordialement

Francois

 

[andré]

Salut François,

J'aurais préféré pouvoir compter sur ta gratuité (à l'auberge) que sur ta gratitude (lol) !

Comment opères-tu tes saisies ?
Si c'est une simple imputation (directement depuis ton clavier), il me semble que c'est par validation / message d'erreur que tu resolveras simplement le problème.
Si c'est par liste de validation, regarde le petit exemple que j'ai ce matin (9:33) à une question similaire (complément).

Si tu ne t'en sors pas, fais signe, je te ferai un petit exemple.

Ândré.

 

[JEAN MICHEL]

bonjour francois andre et le forum

ci joint un code a mettre dans la propriete de ta feuille
ce code interdit la saisie d'une valeur si elle est deja presente dans la colonne avec un petit message de signalement

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

If Target.Column = 2 Then' pour vérifier si la saisie n'existe pas déjà dans la colonne ici la colonne 2


If Application.WorksheetFunction. _
CountIf(Range("b1:b1000"), Target.Value) > 1 Then'plage de cellule a definir selon l'application
MsgBox "saisissez une autre valeur, celle-ci existe déjà"
Target.Value = ""
Target.Select
End If
End If
End Sub

 

[Un voyeur]

Bonjour a tout le forum

Il est possible avec l'option de validation de faire la meme chose.

Par exemple pour ne saisir dans la plage A1:A10 :
Cliquer sur la cellule A1, selectionner en ce deplacant les autres cellules.
Cliquer sur le menu Donnees/Validation...
Dans la boîte cliquer sur le choix, et selectionner personnalise
Dans le champ saississable, mettre la formule =SI(NB.SI($A$1:$A$10;A1)=1;A1;0). Valider.

Bonne journee a tous

Jean-Marie

 

[JEAN MICHEL]

bonjour jean marie

je trouve ta formule interessante mais je ne suis pas sur que ca marche avec tu texte dans les cellules je vais essayer
a bientot

 

[Un voyeur]

Re...

Pour que cela fonctionne avec du texte, change la formule par celle-ci =NB.SI($A$1:$A$10;A1)=1

@+Jean-Marie

 

[JEAN MICHEL]

merci jean marie et bonne journee

 

[Pat5]

Bonjour tout le monde

Ci-joint un fichier de @+Thierry

Bon dimanche

Pat5 ;o)