Discussion :

[electrons]

Bonjour,
N'ayant toujours pas résolu mon problème sur l'exécution automatique d'une macro, je réitère une demande d'aide.
J'aimerais simplement qu'une macro toute simple s'exécute automatiquement si une cellule contient "faux".
Voici la macro :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub Worksheet_Change(ByVal Target As Range)
 
  If Sheets("Donnees").Range("J1") = FAUX Then
 
    Sheets("Patient").Range("F14").ClearContents
    Sheets("Patient").Range("F15").ClearContents
    Sheets("Patient").Range("H14").ClearContents
    Sheets("Patient").Range("H15").ClearContents
 
  End If
End Sub

J'ai placé cette macro dans toutes les feuilles du projet mais impossible de l'exécuter même en mode "pas à pas", même si je place mon curseur devant le "If" et que je demande l'exécution jusqu'au curseur, rien ne se passe.
Le code du "If Sheets.... End if" fonctionne lorsque je le place dans une autre macro.

Merci d'avance pour votre aide.

[Jean-Philippe André]

Salut,

alors pour commencer Faux en VBA c'est False

Ensuite, tu mets ton code avec l'évènement worksheet_Change, mais peux-tu nous dire exactement à quel moment tu voudrais que cette macro se déclenche ?

[joe.levrai]

Bonjour,

écrire "FAUX" dans une cellule, revient (évaluations et conversions implicites excel/vba) à lui assigner un opérateur booléen False

D'une part, tu as écrit FAUX sans guillemets donc c'est une variable non déclarée, variant, et vide !
D'autre part, à mon humble avis, remplace ce FAUX par False et ça devrait maintenant fonctionner

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub ioi()
    If ActiveCell.Value = False Then MsgBox "toto"
End Sub

Attention, si la cellule contient le chiffre 0, c'est considéré aussi comme FAUX

Je déconseille le mélange des genres (écrire un "mot" qui est évalué comme un autre type)

[electrons]

Bonjour,

Pour être plus précis, le VRAI ou FAUX
est simplement créé par un 'Bouton de Contrôle' dont la cellule liée est le "Donnees!J1" et c'est en cliquant sur ce bouton que cette cellule met le mot "VRAI" si coché et "FAUX" si décoché.
Comme je le dis dans mon message, le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("Donnees").Range("J1") = FAUX

fonctionne parfaitement dans une autre macro, j'aimerais simplement qu'il s'exécute automatiquement en "décochant ce bouton.
J'espère que ces informations pourront vous aider à voir plus clair
Merci

[Philippe Tulliez]

Bonjour,

j'aimerais simplement qu'il s'exécute automatiquement en "décochant ce bouton.

Utilise tout simplement le bouton ActiveX ToggleButton
Exemple d'un code à placer dans le module de la feuille où se trouve le bouton

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub ToggleButton1_Click()
 With Me.ToggleButton1
  Sheets("Donnees").Range("J1") = .Value
  .Caption = Not (.Value) ' Affiche la valeur inverse
 End With
End Sub

[clementmarcotte]

Bonjour Philippe,

Bonjour,

Utilise tout simplement le bouton ActiveX ToggleButton

Je n'ai pas essayé avec ton ToggleButton, mais dans son autre question d'hier sur le même sujet, c'est qu'il veut que le passage à False d'une cellule déclenche automatiquement sa macro. Sans compter le fait qu'il veut tester son booléen False en utilisant "Faux" (String). Sauf que la modification de la cellule de True à False avec son bouton liée ne déclenche pas l'événement Worksheet_Change, (pareil chez-moi (Excel 2016)), même si son bouton lié fonctionne. Donc si ton ToggleButton ne provoque pas le déclenchement de l'événement, il va revenir dire que cela marche pas...

Probablement que s'il assignait une macro de remise à zéro à son bouton et qu'il abandonnait son idée de cellule liée, cela marcherait. À la condition de tester un booléen et pas un texte.

Ajouté: Oui, le clic sur le ToggleButton déclenche le Worksheet_change

[electrons]

Bonjour,

Désolé de répondre seulement maintenant (Vacances oblige....).
Je suis sur un autre ordi (un mac) et j'essayerai demain le "ToggleButton".

Merci beaucoup pour vos interventions.

Michel