Bonsoir à tous, le forum,
Pour les élections annoncées ce dimanche je viens de faire un petit tableau pour le dépouillement.
Il me reste la partie que je n’ai toujours pas pris le temps d’approfondir les macros.
Pour synthétiser, il s’agit d’élection avec deux listes de 15 personnes pour une commune de moins de 1000 habitants.
Sauf qu’il est possible de panacher les listes pour les électeurs.
Du coup je souhaiterais pouvoir cliquer sur la case liste 1 ou 2 afin que la voix soit prise en compte pour la liste en question, ainsi qu’une voie aux 15 personnes inscrite sur la liste.
Puis si il y a un panachage où des noms rayés je souhaite attribuer la voie aux personnes cités par l’électeur.
A la fin du dépouillement lorsque l’on clique sur la case résultat il faudrait ressortir les 15 premiers noms avec le score où un texte annonçant qu’un second tour est à effectuer pour les ex aequo final.
Dans les scores je souhaite ainsi que la voie soit additionné aux cellules concernée avec effacement du score précédent.
Les cellules sont mise en forme et prête à être utilisé, après deux ajustement final de ma part. Effacement des titres de cellules et protection de la page sans mot de passe ne laissant que les cases à cocher libre, le nombre total d’électeur inscrit, et la case de résultat.
Des commentaires sont présentés sur le fichier pour mieux comprendre.
Il y a peu de formules, mais si vous constatez une(ou des) erreur(s) où une simplification je suis preneur. Il n’y a qu’une MFC pour le nombre de votant qui ne peut être supérieur au nombre d’inscrit.
J’espère que ce tableau sera utile à d’autres.
Merci d’avance aux personnes qui auront la gentillesse de m’aider.
Cordialement
Samuel
tout d'abord pour l'erreur de formule sur le nombre des votant, non je ne vois pas mon erreur puisque si je reprend la ligne 5 je compte double les vote de liste complète. Où n'ai-je pas bien compris votre remarque!
Dans l'essai réalisé, lorsque je clique sur les cellules 8, 9 et 14, le résultat me conviens. Pour les autres en tête de liste ligne 5 disparais la sommes des résultat par police transparente. Cellule ligne 6 boite de dialogue qui me dérange.
Est ce que cela serais beaucoup de travail de refaire le bouton ligne 14 pour toutes les lignes des deux listes. Pour les formules le calcul est le bon par contre pas de boite de dialogue, pas de police transparente. Et le simple clic me suffit car le dépouillement risque de ce faire sur une dalle avec stylet.
@ST007, finalement je viens de voir une chose qui me plais mieux en liste 2 lorsque l'on clique sur la cellule d'un candidat cela compte une voie. Idéalement il faudrait la même chose pour la tête de liste qui compte donc une voie sur la ligne correspondante et sur toutes le lignes de la liste concerné.
Seule modification si possible je souhaiterais pouvoir cliquer sur le nom de la liste où des personnes concernés pour comptabiliser les voix.
Pour cette macro je suis prêt à vous dire chapeau, même si lorsque l'on parle le VBA cela n'est peut être pas si compliqué???
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set isect = Application.Intersect(Range("C7:C21,H7:H21"), ActiveCell)
If isect Is Nothing Then
Else
ActiveCell.Offset(, 1).Value = ActiveCell.Offset(, 1).Value + 1
End If
End Sub
Je sais comment ouvrir les macros mais je viens de trouver commet ouvrir une feuille de code.
Le code fonctionne, je l'ai modifié pour les têtes de listes, vote blanc et nul:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set isect = Application.Intersect(Range("C5,C7:C22,H5,H7:H22"), ActiveCell)
If isect Is Nothing Then
Else
ActiveCell.Offset(, 1).Value = ActiveCell.Offset(, 1).Value + 1
End If
End Sub
par contre comment faire pour que lorsque l'on clique sur la tête de liste pour q'une voie soit rajouté au personnes de cette liste. Je pense que le même code serais adapté mais il faudrait modifier la ligne qui indique ou ajouter la voie.
comment supprimer le carré ligne 14? je ne peux que cliquer dessus mais pas le sélectionner!
Effectivement j'ai ouvert seulement le dernier travail. Tout ce que j'ai put essayer fonctionne mis à part deux choses .
La première, on ne peut pas cliquer deux fois de suite sur une même cellule. Quel solution serait envisageable?
La deuxième je reconnais et comprend enfin mon erreur, il vaudrait mieux je pense une macro, où un code qui compte le nombre de clics.
Après j'aurais aimer modifier la page des scores mais j'ai peur que cela complique le travail surtout en cas d'égalité pour le milieux de liste. Du coup je pense que cela restera tel que.
Et juste une dernière question si je protège ma feuille cela ne posera pas de problème par rapport aux macro?
Après quoi cela serais parfait! Déjà un très grand merci à vous ST007
Que cette ligne de code n'intervient pas si elle est précédée d'une apostrophe (on s'en sert pour commenter un code)
sur ce dernier fichier, clic sur un nom, les voix se comptabilisent, mais tu reste sur la cellule et donc recliquer dessus n'a aucun effet
clic droit sur le nom de l'onglet puis visualiser le code
supprime les deux apostrophes (lignes vertes)
et re-clic pour voter,
dès que tu clic, la voix s'ajoute et la cellule active devient B2 ce qui te permet de voter x fois de suite pour le même nom ou liste ou blanc ou nul ....