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