XL 2016 Macro qui ne s'exécute pas

Hasco à dit:

Bonsoir,

Vous déclarez une variable Range "KeyCells" que vous ne valorisez jamais qui est donc égal à nothing quand vous vous en servez.

Dans les lignes ci-dessous si Target est B1 alors la feuille Feuil17 sera cachée si Target (B1) est = 23
Peut-être est-ce le contraire qu'il fallait mais comme votre demande n'est pas claire sur ce point, je vous laisse corriger.

Tout ça est bien entendu dans le module de code de la feuille concernée (celle de B1). Hein ???
vous savez c'est pas pour les embêter qu'on demande des classeurs exemple aux demandeurs ?
Ca nous évite des questions et du travail inutiles

VB:

Private Sub Worksheet_Change(ByVal Target As Range)

'Si Target (cellule quichange) est B1 Alors Feuil17 sera visible si B1 <>23 sinon invisible
If Target.Address(0, 0) = "B1" Then Feuil17.Visible = Target <> 23

End Sub

Cliquez pour agrandir...

sylvanu à dit:

Bonjour LoubnaHhch, Hasco,
Un essai en PJ avec :

VB:

Sub Zonecombinée2_QuandChangement()
    Application.ScreenUpdating = False
    If [B1] = 23 Then
        Feuil3.Visible = False
    Else
        Feuil3.Visible = True
    End If
End Sub

J'ai supposé que quand B1 était différent de 23 alors Masque devait être visible, sinon changez avec :

Code:

Sub Zonecombinée2_QuandChangement()
    Application.ScreenUpdating = False
    If [B1] = 23 Then Feuil3.Visible = False
End Sub

Cliquez pour agrandir...

LoubnaHhch à dit:

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.

Cliquez pour agrandir...

Sub Zonecombinée2_QuandChangement()
    Feuil3.Visible = [B1] <> 23
End Sub

Jacky67 à dit:

Bonjour à tous **Meilleurs vœux
Il y a aussi

VB:

Sub Zonecombinée2_QuandChangement()
    Feuil3.Visible = [B1] <> 23
End Sub

Cliquez pour agrandir...

LoubnaHhch à dit:

Merci, meilleurs vœux à vous aussi
J'ai copié collé le code dans Module et ça marche pas, pourtant ça marche dans votre fichier.
Je ne comprend rien

Cliquez pour agrandir...

Jacky67 à dit:

Re..
Mettre le classeur à problème en Pj

Cliquez pour agrandir...

LoubnaHhch à dit:

Ci-joint le fichier

Cliquez pour agrandir...

Phil69970 à dit:

Bonjour @LoubnaHhch , le forum

Perso je comprends pas trop toutes ces complications alors qu'une simple validation des données suffit.
C'est vouloir se faire du mal !!!!

Merci de ton retour

@Phil69970

Cliquez pour agrandir...

Jacky67 à dit:

Re..
Dans ce classeur c'est
Sub Zonecombinée1_QuandChangement()
et non pas
Sub Zonecombinée_QuandChangement()

Cliquez pour agrandir...