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

[Damiro]

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

 

[sylvanu]

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 :

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

 

[OKBI]

Bonsoir
un essai sans VBA
réglage actuel 10000 maxi
Cdt

 

[Damiro]

Merci beaucoup à vous deux ^_^
Je suis un novice complet dans ce domaine, mais j'ai essayé.

@sylvanu Comment remettre à zéro ou encoder un chiffre manuellement? La cellule chiffrée n'est pas éditable. Merci

 

[sylvanu]

Bonsoir,
Rectifié en PJ. De plus un bouton permet de tout remettre à zéro.
Plus une variante de présentation en Feuil3, peut être plus facile à exploiter car moins de mouvements de souris.

 

[Damiro]

Rectifié en PJ. De plus un bouton permet de tout remettre à zéro.
Plus une variante de présentation en Feuil3, peut être plus facile à exploiter car moins de mouvements de souris.

Merci beaucoup pour ces rectifications.

Bonne journée ^_^

 

[Oscar21]

Bonsoir
un essai sans VBA
réglage actuel 10000 maxi
Cdt

Bonjour OKBI, je suis curieux, car cela peut-être très utile. Cette icône qui permet l'incrémentation, comment l'avez-vous crèer ?

 

[OKBI]

Bonsoir Oscar21

Cdt

 

[Oscar21]

Bonjour OKBI,
Super, je ne connaissais pas cette fonctionnalité
Merci pour l'explication.
Cordialement