Microsoft 365 Afficher Masquer des images en boucle

[pat66]

Bonjour le forum,

J'ai besoin d'aide pour rédiger une macro qui permette d'afficher soit 2 images, soit 4 images soit aucune image, sachant qu'à l'ouverture de la page aucune image n'est visible, ci joint un fichier explicatif

je vous remercie d'avance pour votre aide et vous souhaite une bonne après midi

cdt

 

[sylvanu]

Bonjour Pat,
Un essai en PJ avec une macro générale :

Sub Visibilité(F1, F2, F3, F4)
With Sheets("feuil1")
    .Shapes("bateau").Visible = F1
    .Shapes("ancre").Visible = F2
    .Shapes("tresor").Visible = F3
    .Shapes("jacquot").Visible = F4
End With
End Sub

dans ThisWorkbook :

Private Sub Workbook_Open()
    Visibilité False, False, False, False
    Flag = 0
End Sub

pour le bouton :

Public Flag
Sub ON_OFF()
    If Flag = 0 Then
        Visibilité True, True, False, False
        Flag = Flag + 1
    ElseIf Flag = 1 Then
        Visibilité True, True, True, True
        Flag = Flag + 1
    ElseIf Flag = 2 Then
        Visibilité False, False, False, False
        Flag = 0
    End If
End Sub

 

[sylvanu]

Re,
Un chouia plus simple pour ON_OFF :

Public Flag
Sub ON_OFF()
    Select Case Flag
        Case 0: Visibilité True, True, False, False
        Case 1: Visibilité True, True, True, True
        Case 2: Visibilité False, False, False, False
    End Select
    Flag = Flag + 1: If Flag = 3 Then Flag = 0
End Sub

 

[pat66]

bonjour Sylvanu,

c'est parfait, exactement ce dont il me fallait

un grand merci pour ton aide et une belle journée

pat66