Microsoft 365 Plusieurs conditions avec Sub Worksheet_Activate() ou Change

T

ThierryP

XLDnaute Occasionnel

• 5 Octobre 2023

• #2

Bonjour pat66,

Quelque chose comme ça peut-être :

VB:

Sub Geographie()
If InStr("nordsudestouest", LCase(Worksheets("Feuil1").Range("F30"))) <> 0 Then
    If Worksheets("Feuil2").Range("AQ17") <> 0 Then
        Worksheets("feuil2").Shapes("Rectangle : coins arrondis 101").Visible = True
    Else
        Worksheets("feuil2").Shapes("Rectangle : coins arrondis 101").Visible = False
    End If
Else
    Worksheets("feuil2").Shapes("Rectangle : coins arrondis 101").Visible = False
End If
End Sub

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 5 Octobre 2023

• #3

Bonjour.
Essayez ce genre dans le module de l'objet Worksheet représentant la feuille2 :

VB:

Private Sub Worksheet_Activate()
   Me.Shapes("Rectangle : coins arrondis 101").Visible = InStr("nord|sud|est[ouest", _
      Worksheets("Feuil1").[F30].Value) > 0 And Me.[AQ17].Value <> 0
   End Sub

Utilisez comme opérateur :
And si les deux condition doivent être vraies,
Or si elles ne doivent être fausses toutes les deux,
Xor si les deux conditions doivent être dans des états différents,
Eqv si elles doivent être dans des états identiques.

 

Dernière édition: 5 Octobre 2023

Vote positif 0 Vote négatif

T

ThierryP

XLDnaute Occasionnel

• 5 Octobre 2023

• #4

On devrait toujours laisser les gourous répondre.......

 

Vote positif 0 Vote négatif

P

pat66

XLDnaute Impliqué

• 5 Octobre 2023

• #5

Dranreb à dit:

Bonjour.
Essayez ce genre dans le module de l'objet Worksheet représentant la feuille2 :

VB:

Private Sub Worksheet_Activate()
   Me.Shapes("Rectangle : coins arrondis 101").Visible = InStr("nord|sud|est[ouest", _
      Worksheets("Feuil1").[F30].Value) > 0 And Me.[AQ17].Value <> 0
   End Sub

Utilisez comme opérateur :
And si les deux condition doivent être vraies,
Or si elles ne doivent être fausses toutes les deux,
Xor si les deux conditions doivent être dans des états différents,
Eqv si elles doivent être dans des états identiques.

Cliquez pour agrandir...

Dranreb,

j'ai testé votre solution mais la condition suivante n'est pas respectée ?
si sur la feuille1 la cellule F30 est différente de "nord", "sud", "est", "ouest", et que la cellule AQ17 de la feuille2 = 0, on masque la forme

merci d'avance

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 5 Octobre 2023

• #6

Avec ma proposition poste #3 elle est masquée dans ce cas.

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 5 Octobre 2023

• #7

… du moins à l'activation de la feuille2. Mais pas en tapant quelque chose ou en effaçant sa cellule AQ17.
Pour que ça le fasse à ce moment là il faudrait aussi :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
   If Intersect(Me.[AQ17], Target) Is Nothing Then Exit Sub
   Me.Shapes("Rectangle : coins arrondis 101").Visible = InStr("nord|sud|est|ouest", _
      Worksheets("Feuil1").[F30].Value) > 0 And Me.[AQ17].Value <> 0
   End Sub

 

Vote positif 0 Vote négatif

P

pat66

XLDnaute Impliqué

• 5 Octobre 2023

• #8

ok,

est ce que Worksheets("D.S.I").[F30].Value) > 0 signifie que la cellule F30 doit être supérieure à 0 ou excel considère qu'une si une de ces valeurs n'est pas renseignée, il traduit par 0 ?
car dans cette cellule in ne peut y avoir que ("nord|sud|est[ouest")

J'ai toujours le même problème comme décrit au post #5 , ("Rectangle : coins arrondis 101") reste visible avec activate, alors que AQ17 est à 0 et que Worksheets("Feuil1").[F30] ne contient pas ("nord|sud|est[ouest") ??

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 5 Octobre 2023

• #9

La valeur Empty d'une cellule vide est en effet convertie en 0 dans une expression arithmétique ou une expression logique combinant d'autre valeurs numériques. Mais avec la fonction Instr ça ne va pas si le terme de droite est une chaine vide: elle retourne 1. Dans ce cas :

VB:

Private Sub Worksheet_Activate()
   Me.Shapes("Rectangle : coins arrondis 101").Visible = InStr("|nord|sud|est|ouest|", _
      "|" & Worksheets("Feuil1").[F30].Value & "|") > 0 And Me.[AQ17].Value <> 0
   End Sub

 

Dernière édition: 5 Octobre 2023

Vote positif 0 Vote négatif

Solution

P

pat66

XLDnaute Impliqué

• 5 Octobre 2023

• #10

ok,

c'est une excellente idée d'avoir pensé à "change", je vous remercie car c'est vrai que je dois pouvoir changer la valeur de AQ17

et j'ai coller dans activate
Me.Shapes("Rectangle : coins arrondis 101").Visible = InStr("|nord|sud|est|ouest|", _
"|" & Worksheets("Feuil1").[F30].Value & "|") > 0 And Me.[AQ17].Value <> 0

ca à l'air de fonctionner, je fais encore quelques tests ...

 

Dernière édition: 5 Octobre 2023

Vote positif 0 Vote négatif

P

pat66

XLDnaute Impliqué

• 5 Octobre 2023

• #11

ça fonctionne nickel !!

un grand merci à vous Dranreb, vos compétences n'ont d'égal que votre générosité, (je sais pas si c'est français mais j'avais envie de le dire)

Et merci aussi à ThierryP pour avoir essayer de m'aider....

bonne soirée

 

Vote positif 0 Vote négatif