XL 2016 Macro qui ne s'exécute pas

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 !

LoubnaHhch

XLDnaute Nouveau
Bonjour tout le monde,

j'ai une macro qui doit me masquer un onglet en regardant la valeur d'une cellule qui change de valeur avec une formule.
Voilà mon code :
-----------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)

Dim KeyCells As Range

If Not Application.Intersect(KeyCells, Range("B1")) Is Nothing and [B1]=23 Then

Feuil17.Visible = False

End If

End Sub
------------------------------------------------

Ma cellule B1 contient une formule, et du coup ma macro ne marche pas.
Merci de m'aider à trouver le souci.
 
Bonjour,

Sur la base du fichier et de la demande du post#3, comme B1 est le résultat d'un calcul, possibilité de le faire sur évènement Calculate :
VB:
Private Sub Worksheet_Calculate()
    Feuil3.Visible = Range("B1") <> 23
End Sub
Si vous modifiez des choses dans Worksheet_Calculate, assurez-vous que vos codes n'entraînent pas de recalcul en chaîne.
Dans notre cas aucune valeur de cellule n'est modifiée => pas de recalcul.
 

Pièces jointes

Je vous remercie de votre aide 🙂
J'aimerais juste savoir pourquoi Sub Zonecombinée1_QuandChangement() et non pas Sub Zonecombinée2_QuandChangement() ?
Parce que là j'ai recopié dans mon fichier original et ça marche toujours pas, je ne sais plus quoi faire, c'ets la mm chose que je vous ai déjà envoyé sauf mon fichier contient des données
Merciii
Re..
Bon, on va couper court, puisque tu insistes sur cette méthode
-Supprimer l'ancienne macro
Dans un module
-Colle ceci
VB:
Sub A_selection()
    Feuil17.Visible = [B1] <> 23
End Sub
-Retourne sur la feuille
-Clic droit sur ta box de sélection==>sélectionne "Affecter une macro..."
-Dans la liste==>sélectionne==>"A_selection"
-Ok
Test......
-
 
- 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
14
Affichages
370
  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
250
  • Question Question
Microsoft 365 Probléme VBA
Réponses
8
Affichages
233
Réponses
1
Affichages
182
Réponses
7
Affichages
105
Retour