Discussion :

[chris_ij32]

Bonjour,
J'ai un formulaire contenant une date (ex : date de début de stage) et une zone de texte dans laquelle je tape la durée du stage en semaines. Je voudrais que dans une nouvelle zone de texte s'affiche la date de fin de stage.
J'ai essayé avec la fonction DateAdd :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 v_durée_stage = f_gestion_contacts.txt_durée_stage
        v_date_stage = f_gestion_contacts.txt_date_stage
        v_date_fin_stage = cnum(v_date_stage) + (v_durée_stage * 7)
        DateAdd("w", v_durée_stage,v_date_stage)
       MsgBox "voilà la date fin" & Format("dd/mm/yy", v_date_fin_stage)

Mais cela ne fonctionne pas du tout.
Merci pour votre aide.


Cordialement
Chris

[Philippe Tulliez]

Bonjour,
Pour ajouter des semaines avec DateAdd, l'argument est "ww" et pas "w"
Voici un code avec une date en A2 en B2 le nombre de semaine et en C2 le résultat.
Code à adapter suivant la demande spécifique.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 Dim DateDebut As Date, DateFin As Date
 DateDebut = Range("A2")
 DateFin = DateAdd("ww", Range("B2"), DateDebut)
 ' ou DateFin = DateAdd("ww", Range("B2"), Range("A2"))
 MsgBox DateFin

Ou plus simple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 Range("C2") = DateAdd("ww", Range("B2"), Range("A2"))
 MsgBox Range("C2")

[mercatog]

Essaies comme ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Dim v_durée_stage As Integer
Dim v_date_stage As Date, v_date_fin_stage As Date
 
v_durée_stage = Val(f_gestion_contacts.txt_durée_stage)
If IsDate(f_gestion_contacts.txt_date_stage) Then v_date_stage = CDate(f_gestion_contacts.txt_date_stage)
v_date_fin_stage = DateAdd("ww", v_durée_stage, v_date_stage)
MsgBox v_date_fin_stage

[chris_ij32]

Ça fonctionne nickel.
Merci beaucoup.
Bien cordialement
Chris

[chris_ij32]

Maintenant il me faut écrire tout ça dans la feuille planning, et cette fois je dois renvoyer les numéros de semaines pour le début et la fin de stage.
Actuellement j'ai dans mes formules, elles fonctionnent très bien :
- pour la date début en D4, la formule du n° de semaine en E4 est :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SI($D4<40543;0;(NO.SEMAINE($D4;2)-1))

- pour la date fin en F4, la formule du n° de fin de semaine en G4 est :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SI($F4>40908;52;(NO.SEMAINE($F4;2)-1))

Cependant je voudrais inscrire mon nouveau stagiaire "automatiquement" et j'ai essayé de transcrire ça en VBA, voici le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 ActiveCell.Value = v_id
        ActiveCell.Offset(0, 1) = v_id_tuteur
        ActiveCell.Offset(0, 2) = v_service
        'date début stage
        ActiveCell.Offset(0, 3) = v_date_stage
        'numéro de la semaine du début du stage
        v_num_sem_début = WeekNum(v_date_stage)
        ActiveCell.Offset(0, 4) = v_num_sem_début
        'date fin stage
        ActiveCell.Offset(0, 5) = v_date_fin_stage
        'numéro de la dernière semaine de stage
        v_num_sem_fin = WeekNum(v_date_fin_stage)
        ActiveCell.Offset(0, 6) = v_num_sem_fin
        'remplissage du planning semaines 1 à 52
        ActiveCell.Offset(0, 7) = "=IF(AND(R2C>=RC5,R2C<=RC7),LEFT(RC3,1),"""")"
        MsgBox "Le traitement de la feuille planning est terminé !"

Il me dit que la fonction WeekNum n'existe pas, quand au remplissage des semaines 1 à 52 avec le code de service, par exemple : je voudrais remplir de C les semaines 6 à 12 (selon la durée du stage), là c'est la catastrophe, je me vois mal écrire 52 if pour remplir le tableau.

Merci pour votre aide.
Cordialement
Chris

[mercatog]

Utilise DatePart (regarde l'aide)
exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim Dte As Date
 
Dte = "5/4/2011"
MsgBox DatePart("ww", Dte, vbMonday, vbFirstFourDays)

[chris_ij32]

Ça fonctionne merci .
Une dernière petite question enfin pour cette fois !
Maintenant que j'ai le début et la fin de semaine de mon stage, je voudrai remplir mon planning sur cette durée.
En ligne 2, colonnes H à BG j'ai mes numéros de semaine,
et en colonnes :
C : le nom des services
E : le début du stage
et en G : la fin du stage.
Je souhaite remplir les colonnes H à BG en fonction des sem début et fin de stage par le premier caractère de la colonne service. La formule dans le tableau est, pour mon stagiaire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SI(ET(H$2>=$E4;H$2<=$G4);GAUCHE($C4;1);"")

Comment faire pour remplir automatiquement à partir du VBA les colonnes H à BG ?
D'avance merci
Chris
ps : la cerise sur le gâteau serait d'avoir une couleur différente en fonction du service, j'ai conscience d'abuser

[mercatog]

Ci-joint un exemple commenté à adapter à tes besoins
Attention quand même aux conditions au limites (première semaine de l'année et dernière semaine de de l'année)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Dim Dd As Date, Df As Date
Dim Sd As Byte, Sf As Byte, i As Byte
Dim LastLig As Long, j As Long
 
With Sheets("Feuil1")                            'à adapter
    LastLig = .Cells(.Rows.Count, "C").End(xlUp).Row    'dernière cellule remplie de la colonne C
    With .Range("H2:BH" & LastLig)               'On efface la plage du planning
        .ClearContents
        .Interior.ColorIndex = xlNone
    End With
    For j = 2 To LastLig
        Dd = CDate(.Range("D" & j).Value)        'date de début en colonne D
        Df = CDate(.Range("F" & j).Value)        'date fin en colonne F
        Sd = DatePart("ww", Dd, vbMonday, vbFirstFourDays)    'N° semaine de de début
        Sf = DatePart("ww", Df, vbMonday, vbFirstFourDays)    'N° semaine fin
        .Range("E" & j).Value = Sd               'on écrit en E le n° semaine de de début
        .Range("G" & j).Value = Sf               'on écrit en G le n° semaine de de fin
        For i = Sd To Sf                         'On boucle et en remplit (semaine 1 en colonne 8:H
            .Cells(j, 7 + i).Value = Left(.Range("C" & j).Value, 1)
            .Cells(j, 7 + i).Interior.Color = RGB(10 * j, Abs(256 - 20 * j), 20 * j)
            'Tu peux colorier le service en colonne C, cette couleur sera reportée dans le planning
            '.Cells(j, 7 + i).Interior.Color = .Range("C" & j).Interior.Color
        Next i
    Next j
End With

[chris_ij32]

Cela fonctionne parfaitement.
Encore merci, tu es vraiment un as .
Cordialement
Chris
ps : en fait, il reste un souci, j'ai un stagiaire qui commence le 15/12/2011 et termine son stage le 31/01/2012.