HELP PLEASE

[harry]

Bonjour à tous !

j'ai besoin de votre aide concernant cette partie de code, qui me fait 'un depassement de capacité. merci

'click bouton mettre a jour, ajouter les jours dans le tableau de recapitulatif
Private Sub CommandButton1_Click()

Dim chaine As String
Dim nomEmploye As String
Dim line As Integer
Dim datedebut As Date
Dim datefin As Date
Dim ligneMois As Integer
Dim ligneMoisSuiv As Integer
Dim ancienNbjours As Integer
Dim nbJrs As Integer
Dim ligne As Integer
Dim line2 As Integer
Dim indiceColonne As Integer

Dim i, j, colonneATraite As Integer
Dim trouve As Boolean
trouve = False
i = 0
j = 0
line = 6

indiceColonne = 0

suite:

'recherche d'un conges accepte dans le tableau des demandes de conges en attente
line = (line + 1)

If ((Feuil4.Range('I' & line) = '') Or (Feuil4.Range('J' & line) = 'oui')) Then GoTo suite
GoTo fin

fin:
datedebut = Feuil4.Range('E' & line)
datefin = Feuil4.Range('F' & line)
nomEmploye = Feuil4.Range('B' & line) + Feuil4.Range('C' & line)
j = 0

chercheNom: 'on cherhce si le nom de l'employe n'a pas déjà une colonne
trouve = False
j = j + 3
If (Feuil2.Cells(1, j) = ' ') Then GoTo finchercheNom

If (Feuil2.Cells(1, j) = nomEmploye) Then
trouve = True
GoTo finchercheNom
Else: GoTo chercheNom
End If

 

[harry]

le depassement de capacité apparait sur :
line = line + 1

merci de votre aide

 

[harry]

salut

dés que je la declare en long, une nouvelle erreur d'execution 1004 'la methode 'range' de l'objet worksheet' apparait...sur cette ligne:

If ((Feuil4.Range('I' & line) = '') Or (Feuil4.Range('J' & line) = 'oui')) Then

 

[AeroPlanneur]

jmps,

>En plus je viens de réaliser que Line est un mot réservé de VBA.
>Renomme ta variable en 'Maligne' ou ce que tu veux mais pas Line

'Maligne' n'est pas un mot déposé France Telecom ?


cordialement

 

[harry]

salut

je viens de changer le nom de ma variable mais j'ai toujours le meme probleme, si je met 'long' j'ai une erreur 1004

 

[AeroPlanneur]

jmps,

>Comment tu fais pour AeroPlanner ? Moi j'y suis pas arrivé

... le secret, garder une vitesse entre celle de la lumière et celle du son !

cordialement