XL 2016 Macro qui ne s'exécute pas

LoubnaHhch · 11 Janvier 2023

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.

Phil69970 · 12 Janvier 2023

Re

@LoubnaHhch suis je transparent ?

Car j'ai écrit il me semble au post # 11

Phil69970 à dit:
Merci de ton retour

@Phil69970

Hasco · 12 Janvier 2023

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.

Jacky67 · 12 Janvier 2023

LoubnaHhch à dit:
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......
-

Jacky67 · 12 Janvier 2023

Phil69970 à dit:
Re

@Jacky67

J'ai pas trop compris pour le torticolis
Il me semble que j'ai reproduit la feuille conformément à sa demande sans toutes ses complications mais vu l'heure j'ai pu raté un truc ....

@Phil69970

Re..
J'avais cru comprendre.... qu'il y aurait une liste de validation dans ton classeur.

XL 2016 Macro qui ne s'exécute pas

LoubnaHhch

XLDnaute Nouveau

Phil69970

XLDnaute Barbatruc

Hasco

XLDnaute Barbatruc

Pièces jointes

Jacky67

XLDnaute Barbatruc

Jacky67

XLDnaute Barbatruc

Discussions similaires