Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

HELP PLEASE

  • Initiateur de la discussion harry
  • Date de début
H

harry

Guest
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
 
H

harry

Guest
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

XLDnaute Junior
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
 

Discussions similaires

Réponses
2
Affichages
205
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…