Suivi du planning du personnel

Pour partager vos applications (Excel, Calc et Google Sheets) avec les autres membres
Avatar du membre
LouReeD
Contributeur
Contributeur
Messages : 7'073
Appréciations reçues : 370
Inscrit le : 14 octobre 2014
Version d'Excel : 2013 FR, 2016 FR
Contact :
Téléchargements : Mes applications

Message par LouReeD » 8 février 2018, 16:39

Bonjour,

merci de vos remerciements ! :)

Pour ce qui est de votre question, normalement c'est ce qui est prévu, non ?
Et non... ce n'est prévu que pour les weekend, là où la couleur de l'activité ne se met pas... ::(
Il faut donc modifier le code VBA de la SUB suivante qui se trouve sur la feuille Planning :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Modifié = True
    Call Vérification_Code_Activité_Valeur
    Dim Trouve As Range, PlageDeRecherche As Range
    Dim Valeur_Cherchee As String, AdresseTrouvee As String
    Dim MaPlage As Range, La_Selection_A_Tester As Range
    Set MaPlage = ThisWorkbook.Sheets(1).ListObjects("Planning").Range
    Set La_Selection_A_Tester = Selection
    If SelectionDansPlage(La_Selection_A_Tester, MaPlage) = True Then
        If Target.Rows.Count = 1 And Target.Row > [Repère].Row + 1 And Target.Column > [Repère].Column Then
            If En_cours = True Then
                Dim C As Range
                If Le_Texte <> "" Then
                    For Each C In Selection
                        With C
                            If Week_End = False Then
                                If Sheets(1).Cells(1, C.Column).Value = 1 Then
                                    .Interior.Color = La_Couleur.Interior.Color
                                    .ClearComments
                                    .Value = Le_Texte
                                Else
                                    .Interior.Color = xlNone
                                    .Value = ""
                                    .ClearComments
                                End If
                            Else
                                .Interior.Color = La_Couleur.Interior.Color
                                'If Sheets(1).Cells(1, C.Column).Value <> 1 Then
                                    .Value = Le_Texte
                                'End If
                                .ClearComments
                            End If
                        End With
                    Next
                Else
                    Selection.Interior.Color = xlNone
                    Selection.Value = ""
                    Selection.ClearComments
                End If
            End If
            'ActiveCell.Select
            Cells(Target.Row, Target.Column).Select
            Modifié = True
        End If
    ElseIf Not Intersect(Target, Range("Activitées")) Is Nothing Then
        With [Positions]
            .Interior.Color = xlNone
            .Font.Bold = False
            .Font.Color = RGB(0, 0, 0)
            .Font.Size = 9
            .HorizontalAlignment = xlLeft
        End With
        With Cells(Target.Row, 1)
            .Interior.Color = [couleur_positions].Interior.Color
            .Font.Bold = True
            .Font.Color = [couleur_positions].Font.Color
            .Font.Size = 11
            .HorizontalAlignment = xlRight
            Le_Texte = .Offset(0, 1).Value
            Set La_Couleur = Cells(Target.Row, 2)
            Set PlageDeRecherche = [Codes_WE]
            Set Trouve = PlageDeRecherche.Cells.Find(what:=Le_Texte, lookat:=xlWhole)
            If Trouve Is Nothing Then
                Week_End = False
            Else
                Week_End = True
            End If
        End With
        En_cours = True
    Else
        En_cours = False
        With [Positions]
            .Interior.Color = xlNone
            .Font.Bold = False
            .Font.Color = RGB(0, 0, 0)
            .Font.Size = 9
            .HorizontalAlignment = xlLeft
        End With
        Le_Texte = ""
    End If
End Sub
Pour y accéder, clic droit sur le nom de l'onglet de la feuille "Planning", puis "afficher code", trouver et remplacez le code de la
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
et remplacez le par celui ci dessus.
Dorénavant les codes s'affichent sur les jours ouvrés et chômés.

@ bientôt

LouReeD
Quelques règles à lire ICI ;;)
______________________________________________________Vous pouvez allez faire un tour sur : Index de "Mes applications" ;;)
r
revemane
Nouveau venu
Nouveau venu
Messages : 3
Inscrit le : 8 février 2018
Version d'Excel : 2016

Message par revemane » 8 février 2018, 16:41

un grand merci pour cette modification
Avatar du membre
LouReeD
Contributeur
Contributeur
Messages : 7'073
Appréciations reçues : 370
Inscrit le : 14 octobre 2014
Version d'Excel : 2013 FR, 2016 FR
Contact :
Téléchargements : Mes applications

Message par LouReeD » 8 février 2018, 16:45

Pas de quoi, j'essaie d'être rapide et efficace... ;;)

Je n'y arrive pas toujours :lol: Mais bon je m'en sort ! :)

@ bientôt et bonne utilisation,

LouReeD
Quelques règles à lire ICI ;;)
______________________________________________________Vous pouvez allez faire un tour sur : Index de "Mes applications" ;;)
r
revemane
Nouveau venu
Nouveau venu
Messages : 3
Inscrit le : 8 février 2018
Version d'Excel : 2016

Message par revemane » 9 février 2018, 13:25

merci celà fonctionne à merveille

je me demandais aussi mais çà dépasse mes compétences,
si ce serait possible que lorsque l'on à attribué un code à une cellule du planning qu'il ne soit plus possible de la modifier ( par exemple , changer de code , ou via le code effacement) et que si on veut modifier une cellule, une popup avec mot de passe apparaisse et ce afin de laiser libre choix à chaque utilisateur de marquer son pointage me que seulement une personne connaissant le mot de passe puisse faire les modifications

merci d'avance
Avatar du membre
LouReeD
Contributeur
Contributeur
Messages : 7'073
Appréciations reçues : 370
Inscrit le : 14 octobre 2014
Version d'Excel : 2013 FR, 2016 FR
Contact :
Téléchargements : Mes applications

Message par LouReeD » 11 février 2018, 21:09

Bonsoir,

là, pour moi, cela devient compliqué... Une autorisation de modification pour chaque personnel...
Désolé. :oops:

@ bientôt

LouReeD
Quelques règles à lire ICI ;;)
______________________________________________________Vous pouvez allez faire un tour sur : Index de "Mes applications" ;;)
Avatar du membre
LouReeD
Contributeur
Contributeur
Messages : 7'073
Appréciations reçues : 370
Inscrit le : 14 octobre 2014
Version d'Excel : 2013 FR, 2016 FR
Contact :
Téléchargements : Mes applications

Message par LouReeD » 9 octobre 2018, 21:54

Bonsoir,

j'avoue ce n'est pas le meilleur nom d'application que j'ai trouvé, c'est ce qui ma provoqué ce spasme ! ;-)
Quand je pense aux internautes qui font des recherches sur le net et qui tombe sur celle là, combien regarde réellement ce à quoi elle sert ?Elle totalise tout de même à ce jour 15 306 téléchargements !
Merci @ vous ! :-)

@ bientôt

LouReeD
Quelques règles à lire ICI ;;)
______________________________________________________Vous pouvez allez faire un tour sur : Index de "Mes applications" ;;)
j
jeromeB
Membre habitué
Membre habitué
Messages : 95
Inscrit le : 17 avril 2016
Version d'Excel : 2013

Message par jeromeB » 11 mai 2019, 16:47

bonjour,
bravo pour votre planning
j'ai un petite problème ::o
la routine " aujourd'hui" fonctionne lorsque j'appuis sur le bouton aujourd'hui mais ce déclenche pas lors de l'ouverture du classeur ou lorsque j'ouvre la feuille "planning"

je ne comprends pas :cry:
merci d'avance à vous
Avatar du membre
LouReeD
Contributeur
Contributeur
Messages : 7'073
Appréciations reçues : 370
Inscrit le : 14 octobre 2014
Version d'Excel : 2013 FR, 2016 FR
Contact :
Téléchargements : Mes applications

Message par LouReeD » 11 mai 2019, 18:37

Bonjour,

merci de l'intérêt que vous portez sur SPASME ! :-)

Pour ce qui est de votre problème : je ne comprend pas ! :-)
En fait si le bouton fonctionne alors vu que c'est la même procédure qui est lancée à l'ouverture du fichier, je me répète je ne comprend pas pourquoi cela ne marche pas...
Par contre lors de l'activation de la feuille planning c'est normal, la procédure n'est pas appelée...

Envoyez moi votre fichier à l'adresse indiquée dans vos message "privé", je regarderais voir s'il n'y a pas "autre chose" qui coince...

@ bientôt

LouReeD
Quelques règles à lire ICI ;;)
______________________________________________________Vous pouvez allez faire un tour sur : Index de "Mes applications" ;;)
j
jeromeB
Membre habitué
Membre habitué
Messages : 95
Inscrit le : 17 avril 2016
Version d'Excel : 2013

Message par jeromeB » 11 mai 2019, 23:10

bonsoir,
là, c'est le mystère ....
j'ai mis le fichier sur une clé puis un autre ordi est cela a fonctionné .... OOOO
donc je l'ai remis sur le 1er ordinateur idem le programme a fonctionné. :():
la seule chose qui a changé j'avais un autre fichier excel d'ouvert ... je ne vois que cela
merci pour votre réponse
si j'ai d'autres pb je reviens vers vous
d'avance merci :wink:
jb
Avatar du membre
LouReeD
Contributeur
Contributeur
Messages : 7'073
Appréciations reçues : 370
Inscrit le : 14 octobre 2014
Version d'Excel : 2013 FR, 2016 FR
Contact :
Téléchargements : Mes applications

Message par LouReeD » 12 mai 2019, 00:15

Bonsoir,

il est vrai que mes applications en général, ne "gèrent" pas les ouvertures multiple de classeur, c'est un "bug" souvent rencontré à mon niveau... Mes codes ne sont pas assez consolidés dans ce sens, merci de me l'avoir rappelé, cela évitera des recherches ultérieures...

@ bientôt

LouReeD
Quelques règles à lire ICI ;;)
______________________________________________________Vous pouvez allez faire un tour sur : Index de "Mes applications" ;;)
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message