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