Problème de syntaxe fonction "IF" avec fonction "ET"

Jacky67

XLDnaute Barbatruc

• 26 Septembre 2017

• #2

Bonsoir,
Essaye avec en début de macro

Code:

Private Sub Worksheet_Change(ByVal r As Range)
If [b2] = "" And [b4] = "" Then
ActiveSheet.Shapes("Groupe 1").Visible = False
ActiveSheet.Shapes("Groupe 2").Visible = False
Exit Sub
End If
Application.EnableEvents = 0

-----
------

 

Vote positif 0 Vote négatif

G

GUGUSSE2

XLDnaute Occasionnel

• 27 Septembre 2017

• #3

Bonsoir,

Je ne risquais pas de trouver ça !
J'ai essayé, mais cela ne fonctionne pas :

Ai-je fait une erreur ou ai-je mal placé le code ?
Une solution ?

Cordialement,
GUGUSSE2

 

Vote positif 0 Vote négatif

Jacky67

XLDnaute Barbatruc

• 27 Septembre 2017

• #4

GUGUSSE2 à dit:

Bonsoir,

Je ne risquais pas de trouver ça !
J'ai essayé, mais cela ne fonctionne pas :
Regarde la pièce jointe 997505
Ai-je fait une erreur ou ai-je mal placé le code ?
Une solution ?

Cordialement,
GUGUSSE2

Cliquez pour agrandir...

Re--
Il y a 2 fois
Private Sub Worksheet_Change(ByVal r As Range)
Supprime le deuxième

 

Pièces jointes

• Diviseur 40-45 (1).xlsm

  39.2 KB · Affichages: 16

Vote positif 0 Vote négatif

G

GUGUSSE2

XLDnaute Occasionnel

• 27 Septembre 2017

• #5

Ca marche !
Reste à reprogrammer les mise en forme conditionnelles, mais je devrais y arriver.

Cordialement,
GUGUSSE2

 

Vote positif 0 Vote négatif