Microsoft 365 Macro qui permet d'afficher ou pas des Shapes

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 14 Septembre 2023

• #2

Bonjour Pat,
Regardez ceci : Lien
Vous avez Visible/invisible en feuille Propriétés.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 14 Septembre 2023

• #3

Bonjour le fil

Une piste à étudier
(deux feuilles dans un classeur)
Dans la feuille 1, ce code VBA

Code:

Private Sub Worksheet_Activate()
test = Application.CountBlank(Sheets(2).Range("D12:F13"))
If test <= 6 Then
DrawingObjects.Visible = False
End If
End Sub

C'est un chouia radical mais test OK chez moi.
Les shapes de la feuille 1 seront masquées quand on active la feuille 1

 

Vote positif 0 Vote négatif

P

pat66

XLDnaute Impliqué

• 14 Septembre 2023

• #4

Staple1600 à dit:

Bonjour le fil

Une piste à étudier
(deux feuilles dans un classeur)
Dans la feuille 1, ce code VBA

Code:

Private Sub Worksheet_Activate()
test = Application.CountBlank(Sheets(2).Range("D12:F13"))
If test <= 6 Then
DrawingObjects.Visible = False
End If
End Sub

C'est un chouia radical mais test OK chez moi.
Les shapes de la feuille 1 seront masquées quand on active la feuille 1

Cliquez pour agrandir...

Bonsoir Staple1600

je ne souhaite masquer que les shapes 1,2, 3 et pas les autres, merci

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 14 Septembre 2023

• #5

Re, bonsoir Staple,
Ne manque t-il pas un Else, car si les shapes sont masquées, vous ne les rendez pas visibles.

VB:

Private Sub Worksheet_Activate()
test = Application.CountBlank(Sheets(2).Range("D12:F13"))
If test <= 6 Then
DrawingObjects.Visible = False
Else
DrawingObjects.Visible = True
End If
End Sub

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 14 Septembre 2023

• #6

pat66 à dit:

je ne souhaite masquer que les shapes 1,2, 3 et pas les autres, merci

Cliquez pour agrandir...

Alors donnez nous un fichier test car il faut le nom des shapes.

 

Vote positif 0 Vote négatif

P

pat66

XLDnaute Impliqué

• 14 Septembre 2023

• #7

sylvanu à dit:

Bonjour Pat,
Regardez ceci : Lien
Vous avez Visible/invisible en feuille Propriétés.

Cliquez pour agrandir...

Bonsoir Sylvanu,
je vais essayer de comprendre
merci beaucoup

 

Vote positif 0 Vote négatif

P

pat66

XLDnaute Impliqué

• 14 Septembre 2023

• #8

re,

les shapes qui seront pas concernées sont 4,5,6

je vais faire un fichier excel

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 14 Septembre 2023

• #9

Bonjour @pat66

@pat66
J'ai bien compris
D'ou les mots employés dans mon message
une piste
à étudier

Donc il suffit en suite d'adapter , non ?

@sylvanu
J'attendais le fichier fourni par le demandeur avant d'aller plus loin

PS: j'avais ceci sous le coude
Sub itoPresto()
ActiveSheet.DrawingObjects.Visible = True
End Sub

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 14 Septembre 2023

• #10

Re

@sylvanu
Toujours en mode : faisons des test dans VBE

Code:

Private Sub Worksheet_Activate()
test = Application.CountBlank(Sheets(2).Range("D12:F13"))
DrawingObjects.Visible = IIf(test > 0 And test < 6, False, True)
End Sub

Semble permettre de s'affranchir du If/Else/End if

 

Vote positif 0 Vote négatif

P

pat66

XLDnaute Impliqué

• 15 Septembre 2023

• #11

Bonsoir le fil,

désolé un petit problème de santé, rien de grave mais je tenais à être correct avec vous

je reviens vers vous dès que possible

bonsoir

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 15 Septembre 2023

• #12

Re

@pat66
Toujours sur le même principe mais en ciblant 3 shapes spécifiques

Code:

Private Sub Worksheet_Activate()
Dim a, i%
a = Array("shp_1", "shp_2", "shp_3")
test = Application.CountBlank(Sheets(2).Range("D12:F13"))
For i = 0 To 2
Worksheets(1).Shapes(a(i)).Visible = IIf(test > 0 And test <= 6, False, True)
Next
End Sub

NB: Ici les 3 formes sont nommées shp_1, shp_2 et shp_3

 

Vote positif 0 Vote négatif

Solution

P

pat66

XLDnaute Impliqué

• 16 Septembre 2023

• #13

bonjour le fil,

la solution de Staple qui cible nominativement les shapes est parfaite pour résoudre mon problème, je peux ainsi l'adapter assez facilement si dans d'autres circonstances je dois renommer les shapes

je vous remercie tous pour votre aide, mon problème est résolu

 

Vote positif 0 Vote négatif