Macro pour faire des additions?

Version imprimable

20/07/2018, 09h29
dollylevi

Macro pour faire des additions?

Bonjour,

Je vous explique. J'ai un tableau dans lequel je calcule les ventes journalière de salariés. Il s'agit de petites quantité et du coup je fais par exemple=1+2+1
Je voudrais savoir s'il existe une macro (un macro?) pour en gros, cliquer sur la cellule de la personne concernée et rajouter ses ventes du jour pour que la somme se calcule seule, sans avoir à faire ce calcul laborieux, et éviter de risque de tout effacer.

Merci d'avance et bonne journée
20/07/2018, 09h33
halaster08

Bonjour,

Pourquoi vouloir faire une macro ?
Ce serait plus facile a faire via un Tableau Croisé Dynamique ou même simplement un fonction somme.si
20/07/2018, 09h35
jerome.vaussenat

Salut,

Pas mieux que Halaster08 mais avec des liens
Vers les TCD
https://silkyroad.developpez.com/excel/tcd/

Vers les SOMME.SI
https://fauconnier.developpez.com/tu...mmeprod/#LII-B

Bonne lecture
20/07/2018, 09h50
dollylevi

Et bien en fait j'ai une collègue qui a fait un tableau similaire et elle m'a dit que c'est ce qu'elle avait fait...
Après s'il y a un autre moyen je suis preneuse, je cherche simplement à éviter de faire 1+1+1+1

Merci pour les liens que j'ai parcouru, mais je ne trouve pas ma solution.
Sur le tableau de ma collègue, lorsqu'elle cliquait par exemple sur le salarié 102 s'ouvrait une fenêtre où elle rentrait ses ventes du jour, puis en fermant la fenêtre, dans la cellule donc du salarié 102, la somme se calculait seule. C'est ce que je recherche si vous pouvez m'aider :)
20/07/2018, 10h06
Menhir

Si tu mettais dans un message une copie d'écran de tes données, il serait peut-être possible de comprendre plus précisément ce que tu souhaites faire.
20/07/2018, 10h15
dollylevi

1 pièce(s) jointe(s)

Pièce jointe 397981

Voilà.
Donc sur le salarié 157, j'ai saisie ses ventes. Comme justif on me donne des tickets de caisse en fait, donc c'est pour ça que je me retrouve à faire des additions, je n'ai jamais le total du jour.

J'aimerai cliquer sur la cellule B43 et n'avoir qu'à rentrer les ventes, sans faire une SOMME en fait, est ce que c'est possible?

1 pièce(s) jointe(s)

Bonjour
si j'ai bien compris tu cherche à faire double clic sur la valeur à modifier et que tu aura un userform...tu saisie la quantité additionnelle qui s'ajoute à l'ancienne
si c'est le cas tu as un exemple si joint à adapter
dans la feuille appropriée

Code:

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With Sheets("Employe")
Set plage = .Range("A3:D" & .Range("A65536").Row)
If Not Intersect(Target, plage) Is Nothing And Target.Cells.Count = 1 Then
UserForm1.Show
Cancel = True
End If
End With
End Sub

et un userform avec 4 textbox et deux bouton de commande

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub CommandButton1_Click()
Unload Me
End Sub
 
Private Sub CommandButton2_Click()
ActiveCell.Value = ActiveCell.Value + CDbl(TextBox4.Value)
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
End Sub
 
Private Sub UserForm_Initialize()
Dim Lig As Long
Lig = ActiveCell.Row
UserForm1.TextBox1.Text = Cells(1, ActiveCell.Column)
UserForm1.TextBox2.Text = Cells(Lig, 1)
UserForm1.TextBox3.Text = ActiveCell.Value
End Sub

20/07/2018, 10h58
Igloobel

Bonjour,

si tu mets un apostrophe (') avant le = tu vois la formule sans qu'elle s'exécute

Est-ce que c'est cela que tu veux ?
20/07/2018, 11h32
Menhir

Citation:

Envoyé par dollylevi

Donc sur le salarié 157, j'ai saisie ses ventes. Comme justif on me donne des tickets de caisse en fait, donc c'est pour ça que je me retrouve à faire des additions, je n'ai jamais le total du jour.
J'aimerai cliquer sur la cellule B43 et n'avoir qu'à rentrer les ventes, sans faire une SOMME en fait, est ce que c'est possible?

En gros, si j'ai bien compris, tu as plusieurs valeurs qui, une fois additionnées, vont donner la valeur d'une des cases, par exemple B43.

Je ne vois pas de solution plus simple qu'une addition.
De toute façon, il faudra forcément appuyer sur une touche pour séparer une valeur de la suivante. Si ce n'est pas "+", ce sera "Entrée" ou "Tab", il y aura forcément quelque chose.
A moins que ces valeurs soient déjà saisie ailleurs dans la feuille mais ça ne semble pas être le cas, puisque tu dis qu'elles proviennent de tickets (je suppose que c'est du papier).

A la limite, si le prix est intégré à un code-à-barre, il est possible de créer une application qui va le saisir juste avec une douchette.

Mais je ne vois vraiment pas de solution pour simplifier ton processus, à part faire l'addition de tête.

Citation:
Envoyé par BENNASR
Bonjour
si j'ai bien compris tu cherche à faire double clic sur la valeur à modifier et que tu aura un userform...tu saisie la quantité additionnelle qui s'ajoute à l'ancienne
si c'est le cas tu as un exemple si joint à adapter
dans la feuille appropriée
Code:

1 2 3 4 5 6 7 8 9 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) With Sheets("Employe") Set plage = .Range("A3:D" & .Range("A65536").Row) If Not Intersect(Target, plage) Is Nothing And Target.Cells.Count = 1 Then UserForm1.Show Cancel = True End If End With End Sub
et un userform avec 4 textbox et deux bouton de commande
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Private Sub CommandButton1_Click() Unload Me End Sub Private Sub CommandButton2_Click() ActiveCell.Value = ActiveCell.Value + CDbl(TextBox4.Value) TextBox1.Value = "" TextBox2.Value = "" TextBox3.Value = "" TextBox4.Value = "" End Sub Private Sub UserForm_Initialize() Dim Lig As Long Lig = ActiveCell.Row UserForm1.TextBox1.Text = Cells(1, ActiveCell.Column) UserForm1.TextBox2.Text = Cells(Lig, 1) UserForm1.TextBox3.Text = ActiveCell.Value End Sub
Je te remercie!!!! C'est exactement ce que je cherchais. Je vais étudier ça.
Merci à tous pour vos réponses et bonne journée