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

[GUGUSSE2]

Bonjour,

Je voulais qu'aucune image n'apparaisse si les deux cases d'introduction des données (B2 & B4) étaient "vides".
Il y a dans le programme une ligne qui rend invisibles les images (groupe 1 et groupe 2) quand la division est impossible (alors la case "B1" est positive).
Je ne suis pas arrivé à ajouter [B2="" AND B4=""] à la fonction "IF" de ce programme malgré mes recherches et mes tentatives multiples d'écriture (pas d'affichage si "B1>0 ou si "B2 & B4 vides).
J'ai contourné le problème en "forçant" la case "B1" à la valeur "10" quand "B2 & B4 sont vides", et même si "ça marche", j'aimerai que cela soit fait en complétant le programme déjà écrit.

Merci de votre aide,
cordialement,
GUGUSSE2.

 

[Jacky67]

Bonsoir,
Essaye avec en début de macro

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

-----
------

 

[GUGUSSE2]

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

 

[Jacky67]

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

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

 

[GUGUSSE2]

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

Cordialement,
GUGUSSE2