Discussion :

[nacereddine.mourad]

Bonjour:

Je voudrai vérifier si le texte écrit dans ComboBox correspond à la liste du même ComboBox (RowSource)

Merci

[Docmarti]

Bonjour

Avec la propriété ComboBox1.MatchEntry = 1, le texte écrit affecte la propriété .ListIndex. Donc tu testes si .ListIndex est différent de -1.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub UserForm_Initialize()
 
ComboBox1.MatchEntry = 1 'fmMatchEntryComplete
 
ComboBox1.RowSource = "Feuil1!A1:A11"
 
End Sub
 
Private Sub ComboBox1_Change()
 
If ComboBox1.ListIndex >= 0 Then
  Cells(1, 3) = ComboBox1.ListIndex & " Correspond"
 Else
  Cells(1, 3) = ComboBox1.ListIndex & " Ne correspond pas"
End If
 
End Sub

[nacereddine.mourad]

Bonjour et pardon pour le retarde
Merci Docmarti

Pour ma part j'ai mie

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub ComboBox6_Exit(ByVal Cancel As MSForms.ReturnBoolean)
 
Dim plage As Range
Set plage = Sheets("BDD equipements").Range("D3:D65536")
 
If ComboBox6.Text = plage(1 + ComboBox6.ListIndex, 1) Then
MsgBox "L'équipement existe, veuillez changer le tag"
ComboBox6 = ""
 
End If
End Sub

encore merci Docmarti et bonne continuation