Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel question sur combobox

question sur combobox

2 réponses
Avatar
fab
bonjour

j'ai une combobox qui reprend ses valeurs dans une feuille.

comment effectuer un test pour savoir si, quand une nouvelle valeur est
insérée dans la combobox celle-ci existe déjà dans la liste?

merci
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
michdenis
Bonjour Fab,

'Initialer le combobox
'----------------------------
Private Sub UserForm_Initialize()

Dim Tblo As Variant

With Worksheets("Feuil1")
Tblo = .Range("A1:A" & .Range("A65536").End(xlUp).Row)
Me.ComboBox1.List = Tblo
End With

End Sub
'--------------------------------

C'est à partir de la valeur contenue dans un textbox que la valeur
de ce dernier est ajouté si elle n'est pas déjà présente dans le
combobox...
'----------------------------------
Private Sub CommandButton1_Click()

Dim x As Variant, a as variant

'Vérifie le type de contenu du textbox
If IsNumeric(Me.TextBox1) Then
x = CDbl(Me.TextBox1)
Else
x = Me.TextBox1
End If

a = Application.Match(x, Me.ComboBox1.List, 0)
If IsError(a) Then
Me.ComboBox1.AddItem Me.TextBox1
Else
MsgBox "valeur présente dans le combobox"
End If
End Sub
'----------------------------------


Salutations!





"fab" a écrit dans le message de news: 43f86c1d$0$19710$
bonjour

j'ai une combobox qui reprend ses valeurs dans une feuille.

comment effectuer un test pour savoir si, quand une nouvelle valeur est
insérée dans la combobox celle-ci existe déjà dans la liste?

merci
Avatar
fab
Bonjour Fab,

'Initialer le combobox
'----------------------------
Private Sub UserForm_Initialize()

Dim Tblo As Variant

With Worksheets("Feuil1")
Tblo = .Range("A1:A" & .Range("A65536").End(xlUp).Row)
Me.ComboBox1.List = Tblo
End With

End Sub
'--------------------------------

C'est à partir de la valeur contenue dans un textbox que la valeur
de ce dernier est ajouté si elle n'est pas déjà présente dans le
combobox...
'----------------------------------
Private Sub CommandButton1_Click()

Dim x As Variant, a as variant

'Vérifie le type de contenu du textbox
If IsNumeric(Me.TextBox1) Then
x = CDbl(Me.TextBox1)
Else
x = Me.TextBox1
End If

a = Application.Match(x, Me.ComboBox1.List, 0)
If IsError(a) Then
Me.ComboBox1.AddItem Me.TextBox1
Else
MsgBox "valeur présente dans le combobox"
End If
End Sub
'----------------------------------


Salutations!





"fab" a écrit dans le message de news: 43f86c1d$0$19710$
bonjour

j'ai une combobox qui reprend ses valeurs dans une feuille.

comment effectuer un test pour savoir si, quand une nouvelle valeur est
insérée dans la combobox celle-ci existe déjà dans la liste?

merci


Impec ! merci