Incrementation à partir d'un bouton

[philmaure]

Bonjour,
Je souhaite a partir d'une feuille excel cliquer sur un bouton pour incrementer une cellule dans une autre feuille.
Je travaille dans un service client, je voudrais lorsque j'ai termine un appel cliquer sur un bouton qui va comptabiliser dans une autre feuille mon nombre d'appel.
Ex : feuille 1
Bouton appel ok
bouton appel NOK

Si je clique sur bouton ok j'aurai dans la feuille 2 : appel ok : 1
Idem si c'est un clic sur le bouton NOK

Et les compteur évoluerai au fur et a mesure des appels pris

Merci d'avance pour vos réponses
Cdlt
Philippe

 

[Paritec]

Re : Incrementation à partir d'un bouton

bonsoir philmaure,
dans ton bouton tu mets pour incrémenter la cellule A1 de la feuille 2

Sub CommandButton1_Click()
feuil2.cells(1,1)= feuil2.cells(1,1) +1
end sub

a+
papou 🙂

EDIT ; et si tu sais pas faire tu fais un petit fichier avec ce que tu veux et ou tu le veux, et on te fera cela

 

[philmaure]

Re : Incrementation à partir d'un bouton

Merci beaucoup pour cette réponse.
Je joins un fichier avec ce que je souhaiterai.
Merci d'avance
Philippe

 

[philmaure]

Re : Incrementation à partir d'un bouton

Papou
Je ne parviens pas à envoyer la pj (je suis nouveau sur le site et j'ai pas encore tout compris.
Est il possible de prendre en compte la date du jour pour que le lendemain tout s'efface et on repart à Zero

Feuille 1 j'aurai 2 boutons

Feuille 2 un tableau avec les dates du mois et 2 colonnes pour le compteur de chacun des boutons

Je ne sais pas si c'est compréhensible.
Merci Papou

 

[philmaure]

Re : Incrementation à partir d'un bouton

Papou,
Je crois que voici la pj
Philippe

 

[Staple1600]

Re : Incrementation à partir d'un bouton

Bonsoir

Une proposition simple

Colle ces deux macros dans la feuille 1
(Clic-droit sur l'onglet -> Visualiser le code)

Sub Formeautomatique3_QuandClic()
Dim d As Date, o As Range
d = Date
Set o = Sheets("Feuil2").Cells.Find(what:=d)
o.Offset(, 1) = o.Offset(, 1) + 1
End Sub

Sub Formeautomatique4_QuandClic()
Dim d As Date, o As Range
d = Date
Set o = Sheets("Feuil2").Cells.Find(what:=d)
o.Offset(, 2) = o.Offset(, 2) + 1
End Sub

Et affectes à chaque bouton la macro afférente.
(Clic-droit sur la forme automatique -> Affecter une macro)

 

[philmaure]

Re : Incrementation à partir d'un bouton

Bonjour et un grand merci.
Philippe