comptage nombre de click sur un bouton

[matou49]

Bonjour,

Voici mon problème : j'ai un tableau avec 12 ligne et un bouton vote par ligne , lorsque les gens clique dessus il apparaît un userform avec deux cases a cocher "pour et contre" et un bouton valider.
j'aimerais que chaque click sur le bouton valider soit comptabilisé dans la colonne "nb de votant" pour savoir combien de personne auront voter.

pourriez vous s'il vous plait m'aider a créer le code vba.

merci d'avance

 

[Dranreb]

Re : comptage nombre de click sur un bouton

Bonjour.

Un msgbox avec un bouton "Oui" et un bouton "Non" ne ferait-il pas l'affaire ?

 

[13GIBE59]

Re : comptage nombre de click sur un bouton

Bonjour,

Sans vba, tout simple : en H5, rentre = ABS(F5).

 

[matou49]

Re : comptage nombre de click sur un bouton

Bonjour,

Sans vba, tout simple : en H5, rentre = ABS(F5).

Ca ne marchera pas car lorsque les gens réponde "pour "ca fait plus 1 et "contre" ca fait -1 donc je peux me retrouver avec en F5 le nombre 1 alors que j'aurais eu par exemple 3 réponse (1,-1,1).

 

[Dranreb]

Re : comptage nombre de click sur un bouton

Affectez cete même procédure à tous les boutons :

Sub Vote()
Dim PlgL As Range
Set PlgL = Me.Shapes(Application.Caller).TopLeftCell.EntireRow
If MsgBox(PlgL.Columns("C") & vbLf & "Êtes vous pour cette proposition ?", _
   vbYesNo, "Vote") = vbYes Then PlgL.Columns("F").Value = PlgL.Columns("F").Value + 1
PlgL.Columns("H").Value = PlgL.Columns("H").Value + 1
End Sub

 

[matou49]

Re : comptage nombre de click sur un bouton

Affectez cete même procédure à tous les boutons :

Sub Vote()
Dim PlgL As Range
Set PlgL = Me.Shapes(Application.Caller).TopLeftCell.EntireRow
If MsgBox(PlgL.Columns("C") & vbLf & "Êtes vous pour cette proposition ?", _
   vbYesNo, "Vote") = vbYes Then PlgL.Columns("F").Value = PlgL.Columns("F").Value + 1
PlgL.Columns("H").Value = PlgL.Columns("H").Value + 1
End Sub

C'est génial beaucoup plus simple que ce que j'avais fait.
Merci beaucoup pour votre aide

Bonne journée

 

[phlaurent55]

Re : comptage nombre de click sur un bouton

Bonjour à tous,

Encore plus simple avec un seul userform et une seule procédure

j'ai ajouté une colonne de comptage

à+
Philippe

 

[phlaurent55]

Re : comptage nombre de click sur un bouton

Re,

une petite amélioration car il était possible de voter à la fois POUR et CONTRE (il aurait été préférable d'utiliser de OptionButton)

........... j'ai également supprimé le bouton "VALIDER" sur l'userform

à+
Philippe

 

[phlaurent55]

Re : comptage nombre de click sur un bouton

Re,

une autre solution sans bouton et sans userform

à+
Philippe

 

[herve62]

Re : comptage nombre de click sur un bouton

Bonjour
une Proposition simple car Matou veut peut être faire une Stat. totale ??
Voir code dans "Valider" USF 1 et donc à recopier

 

[herve62]

Re : comptage nombre de click sur un bouton

Oubli : la variable CL peut servir en affichage , s'inscrire dans une cellule ...etc
Pour une RAZ mettre CL=0 puis faire le SAVE ( c'est la base de registres)

 

[gilbert_RGI]

Re : comptage nombre de click sur un bouton

Bonjour,

comme ceci peut-être

 

[matou49]

Re : comptage nombre de click sur un bouton

merci a tous pour vos réponses

j'ai finalement opter pour celle de Dranreb mais celle de Gilbert_RGI fonctionnait également très bien.
pour les autres je n'avait pas le comptage total des votes dans la dernière colonne.

Re merci quand même à tous pour le temps passé sur mon problème et bonne semaine à tous.