ComboBox

[Bruno]

Bonjours a tous

Comment faire pour que lorsque je saisie du texte dans un combobox :

1 – aller vérifier que ce texte existe ou pas dans une base de donnée
2 - Si il existe on quitte
3- si il n’y ai pas de pouvoir le rajouter

Merci a tous

@+

 

[@+Thierry]

Salut Bruno,

Voici un code de userform avec une combobox que je viens de mettre au point qui devrait faire exactement ce que tu veux... A savoir :
Il liste tous les items de la source (feuil1 colonne "A", quel que soit le nombre de lignes)
Il permet d'ajouter des items à la même source
Il empêche de saisir une duplication.

L'INITIALISATION
Private Sub UserForm_Initialize()
ligne = Sheets(1).Range("a65536").End(xlUp).Row
Sheets(1).Range("A1:A" & ligne).Select
For Each Cell In Selection.Cells
ComboBox1.AddItem (Cell.Value)
Next
End Sub

ACTION SUR COMMANDBUTTON
Private Sub CommandButton1_Click()
Dim data As String
Dim ligne As Long
Dim Cell As Object
ligne = Sheets(1).Range("a65536").End(xlUp).Row
Sheets(1).Range("A1:A" & ligne).Select
data = ComboBox1.Value
For Each Cell In Selection.Cells
If Cell.Value = data Then GoTo Sortie
Next
Sheets(1).Range("A" & ligne + 1).Value = data
Exit Sub
Sortie:
MsgBox "Cette Entrée :" & data & " existe déjà"
End Sub

Est-ce que c'est ce que tu veux ?
Tiens moi au courant
Bon après midi
@+Thierry

 

[Bruno]

Merci @+Thierry

C'est exactement ce que je voulais, maintenant a mois de le mettre en fonction dans mon Userform.

A+

 

[@+Thierry]

De rien Bruno
Bonne Journée
@+Thierry