Microsoft 365 Désactive rune case en modifiant une cellule

MACx

XLDnaute Occasionnel
Bonjour à vous !

Besoin de votre aide svp...

Le but de ma manipulation est le suivant : Décocher à case automatiquement dès que la valeur de la cellule A1 est modifiée.
La valeur de la cellule est contrôlée par le bouton Toupie (à gauche dans a cellule A1).

L'objectif étant de montrer à l'utilisateur que SI la case est décochée, c'est parce que la valeur de la cellule A1 a été modifiée.
Facultatif : Il serait idéal de rendre le bouton ACTUALISER si la case est décochée.

Si vous pouviez SVP m'aider là dessus. J'imagine qu'il faut du code VBA, et je ne suis vraiment pas un spécialiste là dessus mais je sais qu'ici il n'y a jamais d'impossible.

Par avance, merci beaucoup de votre aide et surtout de votre temps dédié.

MACx

1695896914411.png
 
Solution
Bonjour MACx,

J'ai annulé mon message.

Voyez le fichier joint et le code de la feuille :
VB:
Private Sub CommandButton1_Click()
CheckBox1 = True
End Sub

Private Sub SpinButton1_Change()
[A1] = SpinButton1
CheckBox1 = False
End Sub
Les 3 contrôles sont des contrôles ActiveX.

A+

MACx

XLDnaute Occasionnel
Bonjour job75,

J'ai envie de te répondre "Exactement". La case décochée ne servira qu'à informer que la valeur de A1 a été modifiée.
Contexte: En modifiant la valeur de A1, certaines données changent visuellement (sur le tableau à côté), mais toutes les données et informations reliées à la valeur A1 n'apparaîtront que si on clique sur Actualiser.

Merci de ton aide.

MACx
 

job75

XLDnaute Barbatruc
Bonjour MACx,

J'ai annulé mon message.

Voyez le fichier joint et le code de la feuille :
VB:
Private Sub CommandButton1_Click()
CheckBox1 = True
End Sub

Private Sub SpinButton1_Change()
[A1] = SpinButton1
CheckBox1 = False
End Sub
Les 3 contrôles sont des contrôles ActiveX.

A+
 

Pièces jointes

  • Classeur(1).xlsm
    23.5 KB · Affichages: 2

Discussions similaires

Réponses
16
Affichages
480

Statistiques des forums

Discussions
312 215
Messages
2 086 324
Membres
103 178
dernier inscrit
BERSEB50