limiter saisie à 2 valeurs identiques avec combobox

[SOM58]

bonjour

j'efectue le remplissage d'une colonne à l'aide d'une combobox ,j'aimerais eviter de saisir plus de 2 fois la meme valeur dans cette colonne

merci de votre aide et bon dimanche à tous

 

[excalibur]

Re : limiter saisie à 2 valeurs identiques avec combobox

bonjour SOM58 le forum un ex: a adapter

 

[SOM58]

Re : limiter saisie à 2 valeurs identiques avec combobox

merci jean pierre pour ton aide
Malheureusement je n'arrive pas à adapter ton code dans mon exemple j'ai du manquer quelque chose ,si tu peux repasser par là

cordialement som

 

[excalibur]

Re : limiter saisie à 2 valeurs identiques avec combobox

re, je pensais que tu voulais une liste unique !!
fait moi un exemple en colonne a ta liste en colonne b le resultat excompte pour la combo

 

[kjin]

Re : limiter saisie à 2 valeurs identiques avec combobox

Bonjour, bonjour Jean Pierre
Si j'ai compris,

Private Sub UserForm_Initialize()
With Sheets("Feuil2")
    For i = 1 To .Range("A65000").End(xlUp).Row
    ComboBox1.AddItem .Cells(i, 1).Value
    Next
End With
End Sub

Private Sub CommandButton1_Click()
With Sheets("Feuil1")
L = .Range("a65536").End(xlUp).Row + 1
    If Application.CountIf(.Range("A2" & ":A" & L), ComboBox1.Value) = 2 Then
    MsgBox "valeur déjà présente 2 fois"
    Else
    .Range("A" & L).Value = ComboBox1
    End If
End With
Unload Me
End Sub

A+
kjin

 

[excalibur]

Re : limiter saisie à 2 valeurs identiques avec combobox

re, bonjour l ami kjin tu as raison c est excatement ce qu il cherche a cote de mes pompes aujourd hui passe un bon dimanche

 

[SOM58]

Re : limiter saisie à 2 valeurs identiques avec combobox

impeccable kjin c'est exactement le code désiré
merci jean pierre et kjin
bon dimanche à vous
som