Microsoft 365 Comptabilisation de commandes

[Brassmick59]

Bonjour à toutes et à tous.
Dans le cadre de mon activité, je dois comptabiliser toutes mes commandes (prises manuellement). Mes connaissances très basiques sur Excel me faisaient faire des manipulations consequentes et longues pour comptabiliser mes commandes.
Est il possible de creer un tableau où chaques references se comptabilise en cliquant sur la référence dediée, et ensuite chaque clic dans la cellule dediée est totalisée dans une autre cellule.
Je joins un fichier (sans formule) peut être plus explicite que mon paragraphe.
Merci pour vos eventuelles réponses.

 

[sylvanu]

Bonjour Brassmick,
Rien compris. Sorry.
Que doit on comptabiliser ?
Y a t-il une autre feuille où il y a les différentes commandes ? Si oui mettez la dans le fichier ( anonymisée bien sur )
Ou alors chaque clic dans une cellule jaune incrémente la valeur dans la cellule correspondante en blanc ?
( si oui il faudra une macro en VBA, si vous acceptez le VBA )

 

[Brassmick59]

Bonjour Brassmick,
Rien compris. Sorry.
Que doit on comptabiliser ?
Y a t-il une autre feuille où il y a les différentes commandes ? Si oui mettez la dans le fichier ( anonymisée bien sur )
Ou alors chaque clic dans une cellule jaune incrémente la valeur dans la cellule correspondante en blanc ?
( si oui il faudra une macro en VBA, si vous acceptez le VBA )

oui c'est bien celà, un clic sur une cellule jaune incrémente dans la cellule correspondante en blanc. Alors oui evidemment je pense que le VBA est de mise.

 

[sylvanu]

Re,
J'ai opté pour la présentation de la Feuil2 qui me semble plus claire, avec :

Sub Efacer()
[F:F].ClearContents
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Fin
    If Target.Count > 1 Or Target = "" Then Exit Sub
    If Not Intersect(Target, [A2:A100]) Is Nothing Then
        Dim L%
        L = Application.Match(Target, [E1:E100], 0)
        Cells(L, "F") = Cells(L, "F") + 1
        Cells(L, "B").Select
    End If
Fin:
End Sub

( évidemment on peut rajouter d'autres buches, mais il faut le faire dans les deux colonnes )
Ou encore celle de la Feuil3 qui me semble plus simple, avec :

Sub Efacer()
[B2:B100].ClearContents
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Fin2
    If Target.Count > 1 Or Target = "" Then Exit Sub
    If Not Intersect(Target, [A2:A100]) Is Nothing Then
        Dim L%
        L = Target.Row
        Cells(L, "B") = Cells(L, "B") + 1
        Cells(L, "C").Select
    End If
Fin2:
End Sub

Si vous tenez à la présentation de la Feuil1, j'adapterais.

 

[Brassmick59]

Merci à vous, c'est tout à fait ce genre de feuille. Le VBA m'est totalement etranger.
Selon vous, imaginons que je clique une fois de trop sur une cellule, possible de deduire, par exemple avec clic droit ?

 

[vgendron]

hello

une proposition en pj
double clic sur une cellule jaune pour incrémenter le total en dessous
deux plages nommmées:
ZoneClic
ZoneCommande

et il faut que les intitulés soient identiques
dans la zone clic: CLIC NomProduit
et l'équivalent: NomProduit

 

[sylvanu]

Re,

possible de deduire

Peut être ainsi :

Sub Efacer()
[D2:D100].ClearContents
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Fin2
    If Target.Count > 1 Or Target = "" Then Exit Sub
    If Not Intersect(Target, [B2:C100]) Is Nothing Then
        Dim L%, C%
        L = Target.Row: C = Target.Column
        If C = 2 Then
            Cells(L, "D") = Cells(L, "D") + 1
        Else
            Cells(L, "D") = Cells(L, "D") - 1
            If Cells(L, "D") <= 0 Then Cells(L, "D") = ""
        End If
        [D1].Select
    End If
Fin2:
End Sub