J'ai un problème à résoudre en VBA et je n'y connais vraiment rien voici les questions :
J'espère que vous pourrez m'aider merci merci merci
1) Dans le programme annexé l’heure dans le fichier MS-Excel ne s’affiche jamais, pourquoi?
2) Le calcul du nombre d’heures n’est pas juste, pourquoi ?
3) Le compilateur me dit qu’il y a une erreur de syntaxe dans l’écriture d’une boucle, où est-ce ?
While Sheets(NBF).Cells(4, lig) <> ""
ydate = 6
Do
ydate = ydate + 1
date1 = Sheets(NBF).Cells(ydate, 1)
Loop date1 = datedebut
nbh = 0
ydate = ydate - 1
Do
ydate = ydate + 1
date2 = Sheets(NBF).Cells(ydate, 1)
nbh = Sheets(NBF).Cells(ydate, i)
Loop Until date2 = datefin
If nbh > 0 Then
Cells(analig, 6) = Sheets(NBF).Cells(4, lig)
Cells(analig, 7) = nbh
analig = analig + 1
End If
lig = lig + 1
i = i + 1
Wend
