Discussion :

[alternant31]

Salut, je viens de m'inscrire car j'ai besoin d'aide urgente pour finaliser mon planning excel, je travaille pour une antenne d'une grosse boîte an alternance, je suis en licence pro CIMM, on m'a donné comme projet de planifier les différentes absences des salariés, des ETALONS.

J'ai déjà fait un planning automatisé que vous trouverez en P.J, mais je n'arrive pas à faire en sorte que les cellules concerné par la date se mettent à la couleur des étalons ou employés absents.

En gros j'aimerai qu'an allant dans la feuille ETALONS par exemple, je n'ai qu'à aller sur la ligne de l’étalon concerné et mettre la date de quand il sera plus sur site et quand il reviendra, cela doit apparaître sur le planning général en surlignant les cellules date concernés.

Mais j'aimerais en plus que ces infos restent sur le planning même si je programme une autres absence du même étalon dans l'année.

Pareil pour les employés.

Merci de votre aide!

[Menhir]

J'ai déjà fait un planning automatisé que vous trouverez en P.J,

Pour info, beaucoup de participants à ce forum n'ouvrent pas les fichiers joints.
Lire ceci : https://www.developpez.net/forums/d8...s-discussions/

Mais j'aimerais en plus que ces infos restent sur le planning même si je programme une autres absence du même étalon dans l'année.

Dans ce cas, il faudra passer par une macro en VBA.

[alternant31]

Pour info, beaucoup de participants à ce forum n'ouvrent pas les fichiers joints.
Lire ceci : https://www.developpez.net/forums/d8...s-discussions/


Dans ce cas, il faudra passer par une macro en VBA.

Ok mais comment, je suis frenchement nul sur excel

[Menhir]

Sans savoir à quoi ressemblent tes données sources et tes données de destinations, je ne vois pas comment il serait possible d'apporter même un embryon de réponse.

[MarcelG]

Salut,

Sans savoir à quoi ressemblent tes données sources et tes données de destinations, je ne vois pas comment il serait possible d'apporter même un embryon de réponse.

C'est vrai.
Je me suis permis d'ouvrir le classeur de notre amie.

Remarque préliminaire.
La fonction N°Semaine attend un 2ème argument d'importance (le 1er jour considéré).
S'il n'est pas informé, celui-ci est considéré comme dimanche.
Pour le lundi, il faut informer "2".

Le code suivant est relatif à un bouton de commande placé sur la feuille de travail des étalons.
Tu adaptes pour l'autre feuille.
C'est volontairement que je n'ai pas mis de commentaire.

Un conseil pour tes prochains projets, évite les cellules fusionnées.
L'adressage des cellules devient vite une galère!

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Option Explicit
 
Private Sub Btn_maj_étalons_Click()
 
Dim i As Byte
Dim dern As Byte
Dim numétalon As Byte
Dim lacouleur As Long
Dim dernsem As Integer
Dim semdéb As Byte, jourdéb As Byte
Dim semfin As Byte, jourfin As Byte
Dim dtdéb As Range, dtfin As Range
 
With Worksheets("Planning_ABSENCES")
        dernsem = .Cells(8, .Columns.Count).End(xlToLeft).Column
End With
 
With Worksheets("PRESENCES ABSENCES ETALONS")
        dern = .Cells(.Rows.Count, 2).End(xlUp).Row
        For i = 5 To dern - 1 Step 2
                If Len(.Cells(i, 4)) > 0 Then
                        With .Cells(i, 2)
                                numétalon = .Value
                                lacouleur = .Interior.Color
                                With .Offset(0, 1)
                                        semdéb = Application.WorksheetFunction.WeekNum(.Value, 2)
                                        jourdéb = Weekday(.Value, vbMonday)
                                End With
                                With .Offset(0, 4)
                                        semfin = Application.WorksheetFunction.WeekNum(.Value, 2)
                                        jourfin = Weekday(.Value, vbMonday)
                                End With
                        End With
                        With Worksheets("Planning_ABSENCES")
                                Set dtdéb = .Range(.Cells(8, 6), .Cells(8, dernsem)).Find("Sem " & semdéb, LookIn:=xlValues).Cells(1, 1)
                                .Cells(dtdéb.Row + numétalon + 2, dtdéb.Column + jourdéb - 1).Interior.Color = lacouleur
                                Set dtdéb = Nothing
                                Set dtfin = .Range(.Cells(8, 6), .Cells(8, dernsem)).Find("Sem " & semfin, LookIn:=xlValues).Cells(1, 1)
                                .Cells(dtfin.Row + numétalon + 2, dtfin.Column + jourfin - 1).Interior.Color = lacouleur
                                Set dtfin = Nothing
                        End With
                End If
        Next i
End With
End Sub

[Pierre Fauconnier]

Salut.

Un tuto pour un planning/calendrier sans VBA avec mise en forme conditionnelle des cellules...; Peut-être des idées à glaner...