XL 2021 Afficher & Masquer Connecteur

[achraf26]

Bonjour tout le monde,
je ne sais comment masquer un connecteur quand la valeur n'est pas correcte, j'ai mis en code vba pour afficher mais pour masquer je ne sais pas le faire, si quelqu'un peut m'aider.
Shapes("Connecteur droit 2").Visible = [B5] = "F"

Bien à vous

 

[Dranreb]

Bonjour.
En principe la propriété Visible d'un objet permet aussi bien de le masquer que de l'afficher selon que l'expression affectée est False ou True.

 

[achraf26]

Bonjour.
En principe la propriété Visible d'un objet permet aussi bien de le masquer que de l'afficher selon que l'expression affectée est False ou True.

Bonjour Darnerb
merci pour ton message, malgré que la valeur change en B5 le connecteur est toujours visible.

 

[Dranreb]

Je suis fondé à supposer que c'est parce que l'instruction n'a pas d'occasion de s'exécuter. Est elle bien écrite dans une Private Sub Worksheet_Change ?

 

[crocrocro]

bonjour le fil

Private Sub Worksheet_Change(ByVal Target As Range)
Dim MaShape As Shape
    Set MaShape = ActiveSheet.Shapes("Connecteur droit 2")
    If [B5] = "F" Then
        MaShape.Fill.Visible = True
        MaShape.Line.Visible = True
    Else
        MaShape.Fill.Visible = False
        MaShape.Line.Visible = False
    End If
    Set MaShape = Nothing
End Sub

 

[sylvanu]

Bonjour Achrat, Dranreb,
Rssayez avec :

ActiveSheet.Shapes("Essai").Visible = [B5] = "F"

par ex avec ceci en feuil1 :

Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fin: If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [B5]) Is Nothing Then
        ActiveSheet.Shapes("Essai").Visible = [B5] = "F"
    End If
Fin:
Application.ScreenUpdating = True
End Sub

on obtient cela :

E

 

[achraf26]

j'avais trouvé cette solution, mais je ois repeter à chaque fois pour chaque connecteur.

Shapes("Connecteur droit 2").Visible = [B5] = "F"
   Shapes("Connecteur droit 3").Visible = [B5] <> "F"
   Shapes("Connecteur droit 4").Visible = [B5] <> "F"
   Shapes("Connecteur droit 5").Visible = [B5] <> "F"
   Shapes("Connecteur droit 6").Visible = [B5] <> "F"
   Shapes("Connecteur droit 7").Visible = [B5] <> "F"
   Shapes("Connecteur droit 8").Visible = [B5] <> "F"
   Shapes("Connecteur droit 9").Visible = [B5] <> "F"
   Shapes("Connecteur droit 10").Visible = [B5] <> "F"

 

[jurassic pork]

Hello,
c'est tous les connecteurs droits que tu veux traiter ? Il y a d'autres shapes dans la feuille ?
Ami calmant, J.P

 

[crocrocro]

Rebonjour le fil,
avec le code de Sylvanu, si on sélectionne plusieurs cellules dont B4 et qu'on efface la forme reste visible.
Je supprimerai la ligne

If Target.Count > 1 Then Exit Sub

 

[sylvanu]

Re,
Petite variante avec :

        For i = 1 To 4
            Nom = "Essai" & i
            ActiveSheet.Shapes(Nom).Visible = [B5] <> "F"
        Next i

 

[crocrocro]

Si, comme le demande @jurassic pork , toutes les shapes sont concernées :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim MaShape As Shape
    For Each MaShape In ActiveSheet.Shapes
        If [B5] = "F" Then
            MaShape.Visible = True
        Else
            MaShape.Visible = False
        End If
    Next MaShape
    Set MaShape = Nothing
End Sub

 

[achraf26]

Bonjour Achrat, Dranreb,
Rssayez avec :

ActiveSheet.Shapes("Essai").Visible = [B5] = "F"

par ex avec ceci en feuil1 :

Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fin: If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [B5]) Is Nothing Then
        ActiveSheet.Shapes("Essai").Visible = [B5] = "F"
    End If
Fin:
Application.ScreenUpdating = True
End Sub

on obtient cela :
Regarde la pièce jointe 1205440
E

la solution est parfaite, avec ce code je peux rajouter des shapes en fonction de la valeur de la cellule.
Merci à toi

 

[achraf26]

Hello,
c'est tous les connecteurs droits que tu veux traiter ? Il y a d'autres shapes dans la feuille ?
Ami calmant, J.P

Bonjour Jurrasic,
il y'a plusieurs connecteurs et shapes.

 

[sylvanu]

Re,
Une autre approche serait de grouper tous les shapes, cela simplifie le code de masquage à sa plus simple expression :

ActiveSheet.Shapes("Groupe").Visible = [B5] <> "F"