OVH Cloud OVH Cloud

Comparer une donnée dans deux ComboBox

3 réponses
Avatar
Xavier
Bonjour à tous,

J'ai deux ComboBox (ComboBox1 et ComboBox2) et un bouton (CommandButton1)

Comment faire pour :
Lorsque qu'on sélectionne une données (index) dans la ComboBox1, VBA
contrôle si la même donnée existe dans la ComboBox2 (un doublon quoi).

du genre :
Private Sub CommandButton1_Click()
Contrôle si la donnée indexée ComboBox1 est également dans la ComboBox2...
si oui => Macro1
si non => Macro2
End Sub

Merci pour votre aide.
A bientôt

Xavier

3 réponses

Avatar
Poulpor
Bonjour,

If Me.ComboBox2.List(Me.ComboBox2.ListIndex) =
Me.ComboBox1.List(Me.ComboBox1.ListIndex) Then
MsgBox "doublon"
End If

Poulpor


Bonjour à tous,

J'ai deux ComboBox (ComboBox1 et ComboBox2) et un bouton (CommandButton1)

Comment faire pour :
Lorsque qu'on sélectionne une données (index) dans la ComboBox1, VBA
contrôle si la même donnée existe dans la ComboBox2 (un doublon quoi).

du genre :
Private Sub CommandButton1_Click()
Contrôle si la donnée indexée ComboBox1 est également dans la ComboBox2...
si oui => Macro1
si non => Macro2
End Sub

Merci pour votre aide.
A bientôt

Xavier




Avatar
anonymousA
Bonjour,


en supposant que c'est à partir du combobox1 que tu veux controler si
l'item existe dans la combobox2

With Me
For I = 0 To .ComboBox2.ListCount - 1
If .ComboBox1.List(.ComboBox1.ListIndex) = .ComboBox2.List(I)
Then
MsgBox "doublon"
Exit For
End If
Next
End With

A+

Xavier wrote:
Bonjour à tous,

J'ai deux ComboBox (ComboBox1 et ComboBox2) et un bouton (CommandButton1)

Comment faire pour :
Lorsque qu'on sélectionne une données (index) dans la ComboBox1, VBA
contrôle si la même donnée existe dans la ComboBox2 (un doublon quo i).

du genre :
Private Sub CommandButton1_Click()
Contrôle si la donnée indexée ComboBox1 est également dans la Com boBox2...
si oui => Macro1
si non => Macro2
End Sub

Merci pour votre aide.
A bientôt

Xavier


Avatar
Xavier
Bonjour,
C'est exactement la macro dont j'avais besoin, merci beaucoup.
Xavier


Bonjour,


en supposant que c'est à partir du combobox1 que tu veux controler si
l'item existe dans la combobox2

With Me
For I = 0 To .ComboBox2.ListCount - 1
If .ComboBox1.List(.ComboBox1.ListIndex) = .ComboBox2.List(I)
Then
MsgBox "doublon"
Exit For
End If
Next
End With

A+

Xavier wrote:
Bonjour à tous,

J'ai deux ComboBox (ComboBox1 et ComboBox2) et un bouton (CommandButton1)

Comment faire pour :
Lorsque qu'on sélectionne une données (index) dans la ComboBox1, VBA
contrôle si la même donnée existe dans la ComboBox2 (un doublon quoi).

du genre :
Private Sub CommandButton1_Click()
Contrôle si la donnée indexée ComboBox1 est également dans la ComboBox2...
si oui => Macro1
si non => Macro2
End Sub

Merci pour votre aide.
A bientôt

Xavier