Discussion :

[Jo-Bifidus]

Bonjour à tous.

J'essaye de créer un fichier de gestion d'utilisation de poste dans lequel je souhaite comptabiliser l'utilisation de chaque utilisateur à chaque passage sur ce poste.

Pour cela plusieurs feuilles.

Ex dans Secteur1 je choisis le nom des personnes dans les 6 listes déroulantes et en cliquant sur le bouton incrémenter je souhaiterais que le nombre d'utilisation dans la feuille Euquipe1 par utilisateur s'incrémente de 1 en face du bon nom et de poste utilisé.

Je mets un fichier joint pour mieux se comprendre.

Fichier xlsx http://cjoint.com/?0CymWf7rfcX

Merci pour vos réponses et bonne journée à tous.

[Daniel.C]

Bonjour,

Est-ce que tu peux expliquer :

Important les cases doivent être effacé avant d'être incrémentées de 1 pour que la date dans DERNIER s'actualise

[Jo-Bifidus]

Dans les feuilles Equipe1, 2, 3 il y a notament 3 colonnes NOMBRE / ECART / DERNIER

DERNIER et la date de la dernière utilisation qui se met à jour lorsque l'on efface la cellule correspondant à la personne dans NOMBRE et l'ECART se met à jour automatiquement à jour des le changement de la date du jour en B7.

L'action dans DERNIER se réalise que si tu effaces le contenu de la cellule se trouvant dans NOMBRE.

Si la valeur dans NOMBRE est changé sans être effacée il n'y aura pas mise à jour auto de la date dans DERNIER.

Maintenant si tu as une autre proposition pour que l'ensemble des actions se réalisent je suis preneur.


@+ Jo-Bifidus

[Daniel.C]

Je ne comprends pas. Si tu effaces la cellule de la colonne "NOMBRE", celle-ci va toujours être égale à 1 ?

[Jo-Bifidus]

Je te comprends,mais si tu as une idée qui va me permettre de voir la colonne DATE se mettre à jour uniquement lorsque l'état de la cellule NOMBRE va changer devant le nom de l'utilisateur je suis aussi preneur.

Maintenant si tu récupères la valeur de la cellule et que tu l'incrémentes de 1, ensuite tu l'éffaces et tu donnes la nouvelle valeur est-ce possible ?

Si tu as une idée différente de celle que j'ai appliqué sur l'ensemble du fichier et qui me permet de gérer l'ensemble de mes objectifs dans ce fichier je suis à ton écoute.



Est-ce que tu penses qu'il existe des solutions ?

Bonne soirée
@+ Jo-bifidus

[Daniel.C]

Bonjour,

J'ai fait un essai avec seulement la cellule E10 de la feuille Secteur1. Dis-moi si ça te convient.

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
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Dim Ligne As Variant
    If Sh.Name = "Secteur1" Then
        If Intersect(Target, Range("E10,K10,E16")) Is Nothing Then Exit Sub
        If Target.Value = "CHOISIR" Then Exit Sub
        Ligne = Application.Match(Target.Value, [Equipe1!B:B], 0)
        Application.EnableEvents = False
        If IsNumeric(Ligne) Then
            With Sheets("Equipe1")
                .Cells(Ligne, 5).Value = .Cells(Ligne, 5).Value + 1
                .Cells(Ligne, 7).Value = Date
            End With
        End If
        Application.EnableEvents = True
    End If
End Sub

[Jo-Bifidus]

Bonsoir Daniel.C

Trés content de lire ton poste, car tu es le seul à t'inrésser à ce sujet.

A ta question " Dis-moi si ça te convient." Pas tout à fait.

Lorsque l'on choisit un nom dans liste déroulante on incrémente de 1 dans la feuille Equipe, si je décide de modifier l'organisation en choisisant un autre nom dans la liste déroulante, je vais de nouveau incrémenter de 1 une autre personne et ainsi de suite.

Le bouton ( Incrémenter de 1 chaque utilisateur) et la pour valider l'organisation finale et que l'incrémentation se réalise uniquement lorsque l'on valide l'organisation.

Si possible lors du clique sur le bouton " Incrémenter de 1 chaque utilisateur" on incrémente pour l'ensemble des 6 listes déroulantes de l'équipe une.

Autrement ton code réalise exactement se que j'attendais dans la feuille Equipe1.


Penses-tu qu'il est possible de valider l'ensemble des listes déroulantes et d'incrémenter chaque personne.


Bonne soirée et encore merci. Jo-Bifidus

[Daniel.C]

Oui. je reprends demain.

[Jo-Bifidus]

Comme tu géres bien le code je me demandais si dans les listes déroulantes il était possible de faire changer la couleur du nom de chaque personne en fonction de sa situation par poste dans la colonne écart.

EX dans la feuille Equipe1 - colonne F - Poste1 il y a dans chaque cellule une mise en forme conditionnelle. Si l'écart se trouve de 0 à 30 jours couleur verte / 30 à 60 jaune / 60 à 90 rouge clair / 90 et + rouge foncé.

@+ Jo-Bifidus

[Daniel.C]

Non. Les listes déroulantes sont quelque chose de sommaire et tu ne peux rien changer (police etc.).

[Daniel.C]

J'ai attaché cette macro au bouton :

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
Sub test()
    Dim Ligne As Variant, C As Range, Sh As Worksheet
    Dim Lig As String, Equipe As String, Secteur As String
    With Sheets("Secteur1")
        For Each C In .Range("E10,E12,K10,K12,E16,E18,E27,E29,K27,K29,E33,E35,E44,E46,K44,K46,E50,E52")
                If C.Column = 5 And (C.Row = 10 Or C.Row = 27 Or C.Row = 44) Then
                    Lig = C.Offset(-3, -1)
                    Equipe = Replace(C.Offset(-6, -2), " ", "")
                    Secteur = C.Offset(-4, -2)
                Set Sh = Sheets(Equipe)
                End If
            If C.Value <> "CHOISIR" Then
                Ligne = Application.Match(C.Value, Sh.[B:B], 0)
                col = Application.Match(Lig, Sh.[4:4], 0) + 1
                If IsNumeric(Ligne) Then
                    With Sh
                        .Cells(Ligne, col).Value = .Cells(Ligne, col).Value + 1
                        .Cells(Ligne, col + 2).Value = Date
                        Var = .Cells(Ligne, col + 2).Address
                    End With
                End If
            End If
        Next C
    End With
End Sub

Dis-moi si ça te convient, je n'ia pas eu le temps de tester.

[Jo-Bifidus]

Alors Daniel.C j'ai fait la même manip, on incrémante bien en face de chaque nom, mais tous dans la même colonne.

C'est à dire Ligne1 , Ligne2 et ligne 3 dans la colonne D.

Je me suis peut être mal expliqué, l'incrémentation doit se faire :

Ligne1 poste1 colonne E / Ligne1 poste 2 colonne I

Ligne2 poste 3 colonne M / Ligne2 poste 4 colonne Q

et ainsi de suite.

Je souhaiterai aussi séparer les 3 équipes par 3 boutons, ici avec un bouton on incrémente les 3 équipes.


Je me disais qu'à la fin de ton code je pouvais certainement mettre celui du bouton RAZ des listes déroulantes, aprés l'incrémentation les listes revient sur CHOISIR.

Merci @+ Jo-Bifidus

[Daniel.C]

Fournis-moi un classeur potable, c'est à dire avec le même nombre de lignes entre le libellé d'une ligne et les boîtes déroulantes.

[Jo-Bifidus]

Bonjour Daniel.C

Classeur complet.

Pour info :

Les feuilles Equipe 1, 2 et 3 sont identiques 2 et 3 sont la copie de 1 avec les modifs nécessaires au bon fonctionnement de chaque feuille.

Secteur 1 et 2 identiques sur les zones communes et différentes sur les + du secteur 2.

Merci @+ Jo-Bifidus

[Daniel.C]

Je n'y comprends rien. Sur la feuille Secteur2, il y a des postes concernant Ligne 1, quui n'existe pas sur les feuilles Equipex. Je laisse tomber.

[Jo-Bifidus]

Il est possible de faire des erreurs laisse moi corriger, mais s'il te plait ne laisse tomber.

je regarde ce que tu as écris, quand le fichier correspondra tu pourras placer ton code.

Merci pour ta réponse. Jo-Bifidus

[Jo-Bifidus]

J'espère avoir bien compris ta remarque en espérant que tu as changé d'avis je poste le fichier avec les corrections.


Par tes postes tu m'as donné l'espoir d'arriver à construire ce fichier. Merci

[Jo-Bifidus]

Je pense avoir vu ce que tu disais dans ton poste peux-tu regarder ce fichier. Merci

[Daniel.C]

Teste le classeur joint. Je n'ai fait le bouton que pour l'équipe 1. Pour les autres, recopie la macro en changeant le nom des feuilles et les adresses des cellules contenant les listes de validation.

[Jo-Bifidus]

Bonjour Daniel.C

Merci d’avoir changé d’avis.

J’ai réorganisé ton code de façon à avoir 1 bouton de gestion par équipe et par secteur.
Tout fonctionne très bien.

Un grand merci pour l’aide que tu m’as apporté.

J’ai une dernière question, dans les feuilles des équipes en colonne C je souhaiterais gérer par 1 ou 0 les personnes présentes ou absentes et retirer des listes déroulantes les personnes absentes .
Avec ce qui est déjà construit pour filtrer les listes déroulantes y a-t-il une solution ? Ou faut-il tout repenser et utiliser le vba ?


Bonne journée Jo-Bifidus