M
maneos
Guest
Bonjour a tous !
Je viens chercher un peu d'aide car je sèche un peu devant l'erreur que m'affiche VB (erreur de compilation fonction non définie):
J'ai un planning du mois avec pour chaque projet le temps que la personne a et va passer sur chaque projet. (les projets correspondant aux lignes et les dates aux colonnes)
Je cherche à calculer le temps effectué pour chaque projet entre le 1 jour du planning et la date à laquelle on regarde le fichier 🙂
Pour cela j'ai écrit les lignes suivantes :
Sub calculresteactuel()
Dim i As Integer, indcol As Integer, j As Integer, k As Integer
indcol = ""
For i = 8 To 70 'recherche de la date actuelle (je veux savoir à quelle colonne la date correspond)
If Cells(6, i) = Cells(1, 4).Value Then
indcol = i 'je garde l'indice de la colonne dans une variable
Exit For
End If
Next i
For j = 8 To indcol 'du premier jour du planning à aujourd'hui
For k = 8 To 50
Cells(i, 4).FormulaR1C1 "=SUM(R" & k & "C" & j & ":R" & k & "C" & indcol & ")" 'je fais la somme du temps passé sur le projet = somme de toutes les cases remplies de la ligne entre le premie jour et le jour actuel
Next k
Nextj
End Sub
Voila, quand j'essai de le faire fonctionner, VB me dit que ma fonction n'est pas définie 😕
J'espère que j'ai été assez clair pour que vous puissiez m'aider🙂
Merci !!!!
Je viens chercher un peu d'aide car je sèche un peu devant l'erreur que m'affiche VB (erreur de compilation fonction non définie):
J'ai un planning du mois avec pour chaque projet le temps que la personne a et va passer sur chaque projet. (les projets correspondant aux lignes et les dates aux colonnes)
Je cherche à calculer le temps effectué pour chaque projet entre le 1 jour du planning et la date à laquelle on regarde le fichier 🙂
Pour cela j'ai écrit les lignes suivantes :
Sub calculresteactuel()
Dim i As Integer, indcol As Integer, j As Integer, k As Integer
indcol = ""
For i = 8 To 70 'recherche de la date actuelle (je veux savoir à quelle colonne la date correspond)
If Cells(6, i) = Cells(1, 4).Value Then
indcol = i 'je garde l'indice de la colonne dans une variable
Exit For
End If
Next i
For j = 8 To indcol 'du premier jour du planning à aujourd'hui
For k = 8 To 50
Cells(i, 4).FormulaR1C1 "=SUM(R" & k & "C" & j & ":R" & k & "C" & indcol & ")" 'je fais la somme du temps passé sur le projet = somme de toutes les cases remplies de la ligne entre le premie jour et le jour actuel
Next k
Nextj
End Sub
Voila, quand j'essai de le faire fonctionner, VB me dit que ma fonction n'est pas définie 😕
J'espère que j'ai été assez clair pour que vous puissiez m'aider🙂
Merci !!!!