Pb de définition des éléments d'une combobox

[thuan]

Bonjour tout le monde, le forum
Je voudrais solliciter votre aide pour faire la chose suivante:
Je voudrais savoir comment se définisse les différents éléments d'une combobox, je m'explique:
Je relève des valeurs dans des cellules, et donc j'ai la chose suivante:
A
B
C
dans ma combobox
L'élement A provient de la case A1 de la feuille1
L'élement B provient de la case A1 de la feuille2
L'élement C provient de la case A1 de la feuille3
la chose que je ne sais pas comment faire est la suivante:
Je ne sais pas comment traduire l'algo suivant:
Pour l'élément 1 de la combo compare le à l'élément 2

MERCI pour votre aide

Thuan

 

[@+Thierry]

Salut Thuan, le Forum

Bon ta question est ambigue... Pour alimenter une Combobox avec des Items de trois feuilles différentes, voici une méthode (parmis d'autres)

Private Sub UserForm_Initialize()
Dim WS As Variant

For Each WS In Array("Feuil1", "Feuil2", "Feuil3")
ComboBox1.AddItem Sheets(WS).Range("A1")
Next
End Sub

Maintenant pour comparer les Items à l'intérieur de la ComboBox, je ne comprends pas ce que tu veux faire ? vérifier des doublons ? ou bien ? et ensuite qu'elle action espères-tu obtenir ?

Juste pour le Fun, car je pense que çà ne sert à rien, mais voici un code :
Private Sub CommandButton1_Click()
Dim i As Byte
Dim SameData As String, Data1 As String, Data2 As String
x = 1
For i = 0 To ComboBox1.ListCount - 1

If x > ComboBox1.ListCount - 1 Then Exit For

Data1 = ComboBox1.List(i, 0)
Data2 = ComboBox1.List(x, 0)

If Data1 = Data2 Then
SameData = SameData & Data1 & vbCrLf
End If
x = x + 1
Next
MsgBox "Items en double " & vbCrLf & SameData
End Sub

Bon Après Midi
@+Thierry