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

Damiro · 21 Février 2023

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 · 21 Février 2023

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

OKBI · 21 Février 2023

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

Damiro · 22 Février 2023

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 · 22 Février 2023

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 · 23 Février 2023

sylvanu à dit:
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 · 23 Février 2023

OKBI à dit:
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 · 23 Février 2023

Bonsoir Oscar21

Cdt

Oscar21 · 24 Février 2023

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

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

Damiro

XLDnaute Nouveau

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

OKBI

XLDnaute Junior

Pièces jointes

Damiro

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Pièces jointes

Damiro

XLDnaute Nouveau

Oscar21

XLDnaute Nouveau

OKBI

XLDnaute Junior

Oscar21

XLDnaute Nouveau

Discussions similaires