Bonjour "LaClac", "MilkShaker" (sacrés pseudos là !!! ), Bonjour le Forum
Je ne sais pas trop dans quoi tu travailles, mais imaginons un UserForm avec une ComboBox (ComboBox1) et un CommandButton (CommandButton1), voici ce que ça donnerait comme code dnas le Private Module du UserForm en question:
Option Explicit
Private Sub UserForm_Initialize()
Dim i As Byte
With Me.ComboBox1
For i = 1 To 3
.AddItem "Test" & i
Next
End With
End Sub
Private Sub CommandButton1_Click()
Dim i As Byte
Dim TabVar() As String
Dim TabIndex As Byte
ReDim TabVar(3)
For i = 0 To 2
TabVar(i) = "Bonjour " & i + 1
Next
If ComboBox1.ListIndex = -1 Then Exit Sub
TabIndex = ComboBox1.ListIndex
Range("A1") = TabVar(TabIndex)
End Sub
Bon appétit
@+Thierry