Discussion :

[thibautf2206]

Bonjour,

Je souhaite obtenir le numéro de ligne d'une cellule contenant la valeur de ma textbox&

Or, dans ma formule, ComboBox.ListIndex renvoit la valeur Zéro

Ou est le problème ,

Merci beaucoup !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
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

[mjpmjp]

bonjour,
voila un petit exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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