Entrées à l'aide d'un Userform et SANS DOUBLONS

Salut,

un truc vite fait :

Sub essai()
Sheets("Amies").Select
Range("A65536").Select
Selection.End(xlUp).Select
FINLIGNE = ActiveCell.Row

For I = 1 To FINLIGNE
If Range("A" & num).Value = TextBox1.Value Then
TOTO = MsgBox("EXISTE DEJA", vbOKOnly)
Exit Sub
End If
Next I
'TON CODE
End Sub

@+

Michel.


P.S. : si ca ne marche pas, trouve plutot qu'une seule copine..... :o)

"Jean Pierre Belfort" <JeanPierreBelfort@discussions.microsoft.com> a écrit
dans le message de news:
1AF79C38-91D1-4898-B107-0E95811FAE43@microsoft.com...

Bonjour Amis,

J'ai fait userform pour entrer les noms de mes petites amies dans une base
de donnée à l'aide d'un Sub comme ceci :

num = Sheets("Amies").Range("C65536").End(xlUp).Row + 1
Sheets("Amies").Activate
Range("A" & num).Value = TextBox1.Value
Range("B" & num).Value = ComboBox2.Value
Range("C" & num).Value = TextBox3.Value

Unload UserForm1
End Sub

Le problème est que je peux entrer 2 fois le même nom.
Comment faire apparaitre une MsgBox : "Déjà entrée" ?

Merci
JPB

Bonsoir,

Pour une BD importante, + rapide avec Find:

Set result = Sheets("Amies").Range("A9:A10000").Find(What:=Me.nom,
LookIn:=xlValues, lookat:=xlWhole)
If Not result Is Nothing Then
MsgBox "Existe déjà"
Exit Sub
End If

http://cjoint.com/?ipwMMxYZd5

Cordialement JB

Bonjour Amis,

J'ai fait userform pour entrer les noms de mes petites amies dans une base
de donnée à l'aide d'un Sub comme ceci :

num = Sheets("Amies").Range("C65536").End(xlUp).Row + 1
Sheets("Amies").Activate
Range("A" & num).Value = TextBox1.Value
Range("B" & num).Value = ComboBox2.Value
Range("C" & num).Value = TextBox3.Value

Unload UserForm1
End Sub

Le problème est que je peux entrer 2 fois le même nom.
Comment faire apparaitre une MsgBox : "Déjà entrée" ?

Merci
JPB

Bonjour,

Tu peux aussi t'inspirer de ça. La source est une colonne de feuille de
calcul et le résultat est un ListBox rempli, mais c'est l'objet Dictionary
qui fait la job.:

http://www.excelabo.net/xl/listes.php#listesansdoublon




"Jean Pierre Belfort" <JeanPierreBelfort@discussions.microsoft.com> a écrit
dans le message de news:
1AF79C38-91D1-4898-B107-0E95811FAE43@microsoft.com...

Bonjour Amis,

J'ai fait userform pour entrer les noms de mes petites amies dans une base
de donnée à l'aide d'un Sub comme ceci :

num = Sheets("Amies").Range("C65536").End(xlUp).Row + 1
Sheets("Amies").Activate
Range("A" & num).Value = TextBox1.Value
Range("B" & num).Value = ComboBox2.Value
Range("C" & num).Value = TextBox3.Value

Unload UserForm1
End Sub

Le problème est que je peux entrer 2 fois le même nom.
Comment faire apparaitre une MsgBox : "Déjà entrée" ?

Merci
JPB

Oui! Merci pour vos réponses, je n'y avait pas pensé

Bonne Nuit