bonjour a tous,
je n'arrive pas a résoudre mon erreur et j'esppere que vous pourrez m'aider
j'ai mis en evidence la ligne surlignée en jaune pas le debogage.
il me met erreur 91 : variable objet ou variable de block with non definie.
voila le code :
Do While i <= Subscript
d = Ref.Cells(i, DATE_EVENEMENT)
E = UCase(Ref.Cells(i, EVENEMENT))
If E = "SORTIE" Then
'Le collaborateur a quitté l'entreprise
IgnorerTaux = True
End If
If EstDansPériode(d) = APRES Then
If i = IDeb Then
'le collaborateur est entré après la fin de période
Ignorer = True
End If
Exit Do
End If
If EstDansPériode(d) = AVANT Then
If E = "SORTIE" Then
'le collaborateur est sorti avant le début de période
Ignorer = True
Exit Do
End If
'Le collaborateur était déjà présent avant le début de période
AncienSalaire = Ref.Cells(i, SALAIRE)
DernierSalaire = Ref.Cells(i, SALAIRE)
Ancien = True
End If
If EstDansPériode(d) = DEDANS Then
If i = IDeb Then
'le collaborateur est entré pendant la période
Entré = True
SalaireEntrée = Ref.Cells(i, SALAIRE)
End If
DernierSalaire = Ref.Cells(i, SALAIRE)
If E = "SORTIE" Then
'le collaborateur est sorti pendant la période
Sorti = True
Exit Do
End If
End If
i = i + 1
Loop
en esperant que vous pourez m'aider !!!
merci d'avance a tous ceux qui se pencheront sur le sujet !
je l'ai déclaré en integer, je me suis trompé?
UCase n'est pas un tableau mais une fonction qui retourne une chaîne de caractères en majuscule. Donc il y a un bémol si E est de type Interger !!!
Il faudrait savoir comment les variables ont été déclarées ainsi que l'instanciation des objets avant de pouvoir dire quoique se soit sur ce code.