Bonjour à tous,
Plutôt que de tourner en rond, je pense gagner du temps en m'adressant à vous:
ce code me donne 0 aux 2 variables, mais je comprends pas pourquoi.
Private Sub CommandButton_valider_click()
Dim dern As Integer
Dim cpt As Integer
Dim debSalarie As Integer
Dim finSalarie As Integer
dern = Sheets("cascade").Range("A65000").End(xlUp).Row
For i = 2 To dern
'1ere ligne du salarié
If Sheets("cascade").Range("C" & i) = ComboBox_salarie.Value Then
debSalarie = i '2
'recherche salarié
For p = debSalarie To dern
If Sheets("cascade").Range("C" & p) <> ComboBox_salarie.Value Then
finSalarie = p - 1
GoTo ligne8 'ligne8
End If
'en derniere ligne cascade
If Sheets("cascade").Range("C" & p) = Sheets("cascade").Range("C" & dern) Then
finSalarie = dern
End If
Next p
End If
Next i
ligne8:
MsgBox debSalarie & " " & finSalarie
merci
fronck