Bonjour la communauté,
J'ai besoin d'un petit coup de main. J'ai un fichier de gestion de projets en fonction des semaines. En fonction d'un formulaire utilisateur remplis la charge de travail est assuré de la semaine à la semaine dans le fichier. Le probleme c'est que sur plusieurs annees ma logique tombe a l'eau car si j'enregistre un projet en semaine 10 excel va m'intégrer la charge de travail sur toutes les semaines 10 peut importe l'annee. Je ne peux maherusement joindre le fichier trop lourd un modificateur pour cette partie de code.
J'aimerai que le code comprenne qu'il faut d'abord balayer 2020 (de la colonne 15 a 65) puis passer a la plage d'apres et inserer les donnees comme le fait mon code ci dessous.
Ci dessous a quoi ressemble mon fichier avec les semaines en lignes 6 et les pourcentages par semaine en fonction de la charge de travail.
Voici mon code:
Merci par avance pour votre aide!
J'ai besoin d'un petit coup de main. J'ai un fichier de gestion de projets en fonction des semaines. En fonction d'un formulaire utilisateur remplis la charge de travail est assuré de la semaine à la semaine dans le fichier. Le probleme c'est que sur plusieurs annees ma logique tombe a l'eau car si j'enregistre un projet en semaine 10 excel va m'intégrer la charge de travail sur toutes les semaines 10 peut importe l'annee. Je ne peux maherusement joindre le fichier trop lourd un modificateur pour cette partie de code.
J'aimerai que le code comprenne qu'il faut d'abord balayer 2020 (de la colonne 15 a 65) puis passer a la plage d'apres et inserer les donnees comme le fait mon code ci dessous.
Ci dessous a quoi ressemble mon fichier avec les semaines en lignes 6 et les pourcentages par semaine en fonction de la charge de travail.
Voici mon code:
VB:
dim der_colonne as Integer
dim I as Integer
der_colonne = Cells.SpecialCells(xlCellTypeLastCell).Column
For I = 1 To der_colonne
If Cells(6, I) >= Debut And Cells(6, I) <= Fin Then
Cells(Ligne, I) = Wor1
End If
If Cells(6, I) >= Debut2 And Cells(6, I) <= Fin2 Then
Cells(Ligne, I) = Wor2
End If
If Cells(6, I) >= Debut3 And Cells(6, I) <= Fin3 Then
Cells(Ligne, I) = Wor3
End If
If Cells(6, I) >= Debut4 And Cells(6, I) <= Fin4 Then
Cells(Ligne, I) = Wor4
End If
If Cells(6, I) >= Debut5 And Cells(6, I) <= Fin5 Then
Cells(Ligne, I) = Wor5
End If
If Cells(6, I) >= Debut6 And Cells(6, I) <= Fin6 Then
Cells(Ligne, I) = Wor6
End If
Next I
Merci par avance pour votre aide!