[XL-2013] Fonction ComboBox.ListIndex renvoyant zéro

Private Sub CommandButton2_Click() 'Bouton valider Sheets("Demandes").Select Dim NoLign As Integer Dim Prio As Long Prio = CLng(Me.TextBox1.Value) NoLign = ComboBox2.ListIndex + 3 Cells(NoLign, 11) = Prio

bonjour,
voila un petit exemple

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Private Sub CommandButton1_Click()
    '-----
    ComboBox2.Clear
    ComboBox2.AddItem ("ligne 01")
    ComboBox2.AddItem ("ligne 02")
    ComboBox2.AddItem ("ligne 03")
    ComboBox2.AddItem ("ligne 04")
    ComboBox2.AddItem ("ligne 05")
    NombreDeLigne = ComboBox2.ListCount
    'MsgBox NombreDeLigne
    '-----
    Data = TextBox1.Value
    'MsgBox Data
    For n = 1 To NombreDeLigne
        If ComboBox2.List(n - 1) = Data Then
            Sheets("Demandes").Cells(5, 3).Value = n
            Exit For
        End If
    Next n
End Sub

@+JP