XL 2019 Boutons + et - pour fiche d'évaluation

  • Initiateur de la discussion Initiateur de la discussion Damiro
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Damiro

XLDnaute Nouveau
Bonjour,

Je suis nouveau sur ce forum et j'y ai fait quelques recherches avant de m'inscrire il y a quelques jours.

J'ai tenté, en vain, de créer un fichier destiné à m'aider à compter le nombre de votes d'une enquête personnelle en 10 questions. J'aimerais que la valeur de la cellule active augmente ou diminue de 1, selon qu'on appuie sur le bouton + ou le bouton -. Pourriez-vous m'aider en affectant une Macro aux boutons. J'ai tenté de bidouiller un script, mais sans succès.

J'aimerais aussi que la valeur de la cellule reste modifiable manuellement. Par la suite, les valeurs seront utilisées pour des calculs simples (pourcentages, additions, etc).

S'il y a une solution plus simple, je suis preneur, mais j'aimerais ne pas passer la le compteur à deux flèches qu'on trouve dans le menu développeur.

Je joins à ce post le modèle de fichier.

Merci beaucoup pour votre aide
 

Pièces jointes

Bonsoir Damiro, et bienvenu sur XLD,
Gérer autant de boutons est toujours fastidieux.
En PJ je vous propose plus simple, de simples cellules.
Quans on clique sur un "-" on décrémente, sur un "+" on incrémente.
Et cela se fait très facilement avec :
VB:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [B3:M12]) Is Nothing Then
        L = Target.Row: C = Target.Column
        If Target = "-" Then Cells(L, C + 1) = Cells(L, C + 1) - 1
        If Target = "+" Then Cells(L, C - 1) = Cells(L, C - 1) + 1
        Cells(L, "A").Select
    End If
End Sub
 

Pièces jointes

Bonsoir Oscar21

1677187270851.png


1677187554412.png


1677187585761.png



Cdt
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
517
Réponses
1
Affichages
1 K
Retour