XL 2021 Afficher & Masquer Connecteur

achraf26 · 17 Octobre 2024

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

sylvanu · 17 Octobre 2024

Bonjour Achrat, Dranreb,
Rssayez avec :

VB:

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

par ex avec ceci en feuil1 :

Code:

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

Dranreb · 17 Octobre 2024

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 · 17 Octobre 2024

Dranreb à dit:
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 · 17 Octobre 2024

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 · 17 Octobre 2024

bonjour le fil

VB:

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 · 17 Octobre 2024

Bonjour Achrat, Dranreb,
Rssayez avec :

VB:

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

par ex avec ceci en feuil1 :

Code:

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 · 17 Octobre 2024

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

VB:

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 · 17 Octobre 2024

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 · 17 Octobre 2024

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

VB:

If Target.Count > 1 Then Exit Sub

sylvanu · 17 Octobre 2024

Re,
Petite variante avec :

VB:

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

crocrocro · 17 Octobre 2024

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

Code:

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 · 17 Octobre 2024

sylvanu à dit:
Bonjour Achrat, Dranreb,
Rssayez avec :

VB:

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

par ex avec ceci en feuil1 :

Code:

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 · 17 Octobre 2024

jurassic pork à dit:
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 · 17 Octobre 2024

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

VB:

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

XL 2021 Afficher & Masquer Connecteur

achraf26

XLDnaute Occasionnel

sylvanu

Dranreb

XLDnaute Barbatruc

achraf26

XLDnaute Occasionnel

Dranreb

XLDnaute Barbatruc

crocrocro

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

Pièces jointes

achraf26

XLDnaute Occasionnel

jurassic pork

XLDnaute Occasionnel

crocrocro

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

Pièces jointes

crocrocro

XLDnaute Occasionnel

achraf26

XLDnaute Occasionnel

achraf26

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

Pièces jointes

Discussions similaires