Valeurs zéro à 2 variables

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

Bonjour,

Pour les 2 variables à 0 ... si tu parles de la fenêtre qui s'affiche quand l'on clique sur Valider ...

Est-ce que le salarié, sélectionné dans le userform, existe dans le mois concerné ?

ric

Bonjour ric

heureusement que tu me suis partout

beh non c'est pour çà

merci

fronck

Bonjour,

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

Or, Eric n'existe pas dans la feuille "cascade".

ric

bonjour,

ok, j'ai fait comme çà pour le renvoyer à l'enregistrement:

Dim cpt As Integer

dern = Sheets("cascade").Range("A65000").End(xlUp).Row
cpt = 0
    For i = 2 To dern
         If Sheets("cascade").Range("C" & i) = ComboBox_salarie.Value Then
            debSalarie = i
            cpt = cpt + 1
                'recherche autres enreg
                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
   Next i
            If cpt = 0 Then
            GoTo ligne2
            End If
ligne8: