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.

Hasco · 11 Janvier 2023

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

LoubnaHhch · 11 Janvier 2023

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

Je vous remercie de votre aide
Je vous ci-joint un fichier excel avec ce que j'aimerais réaliser.
Vous trouverez l'onglet : "Main"
Quand la valeur de la cellule B1 de cet onglet est égale à 23, l'onglet "Masque" doit disparaitre.

sylvanu · 11 Janvier 2023

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

LoubnaHhch · 12 Janvier 2023

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

Merci beaucoup pour votre aide.
J'ai repris la mm chose que vous, mais le code ne marche pas avec mon fichier, je ne sais pas s'il y a quelque chose qui m'échape

Jacky67 · 12 Janvier 2023

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.

Bonjour à tous **Meilleurs vœux

Il y a aussi

VB:

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

LoubnaHhch · 12 Janvier 2023

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

VB:

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

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

Jacky67 · 12 Janvier 2023

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

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

LoubnaHhch · 12 Janvier 2023

Jacky67 à dit:
Re..
Mettre le classeur à problème en Pj

Ci-joint le fichier

Jacky67 · 12 Janvier 2023

LoubnaHhch à dit:
Ci-joint le fichier

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

Phil69970 · 12 Janvier 2023

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

Jacky67 · 12 Janvier 2023

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

Hello @Phil69970
Oui, tu as certainement raison

Mais dans ton exemple, il va s'attraper un torticolis à chercher la liste de validation.

Phil69970 · 12 Janvier 2023

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

LoubnaHhch · 12 Janvier 2023

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

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

TooFatBoy · 12 Janvier 2023

Il ne faut aucun nombre, si je me souviens bien.

En tout cas, il faut que le nom de la macro soit identique au nom utilisé lors de l'appel de ladite macro.

XL 2016 Macro qui ne s'exécute pas

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Nouveau

Pièces jointes

XLDnaute Barbatruc

Pièces jointes

XLDnaute Nouveau

XLDnaute Barbatruc

Pièces jointes

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Nouveau

Pièces jointes

XLDnaute Barbatruc

Pièces jointes

XLDnaute Barbatruc

Pièces jointes

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Nouveau

XLDnaute Barbatruc

Discussions similaires

Partager cette page

Statistiques des forums