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