Gérer des images sur une feuille Résolu

Question

Bonjour, 
Sur une page "Formulaire", j'ai mis 3 images. Elles ont une utilité macro qui est lié à cette page. Les 2ères images sont là pour le remplissage du formulaire. La 3ème est utile lors du classement de ce formulaire rempli.

Ma question est donc, comment faire pour faire neutraliser le 3ème bouton en premier, puis de l'activer et de neutraliser les 2ers

J'ai essayé ce qui suit sans succès.

'Cacher et bloquer Image 1 et 2 et activer la 3ème
            ActiveSheet.Shapes.Range(Array("Image1")).Locked = True
            ActiveSheet.Shapes.Range(Array("Image2")).Locked = True
            ActiveSheet.Shapes.Range(Array("Image3")).Locked = False
            ActiveSheet.Shapes.Range(Array("Image1")).Visible = False
            ActiveSheet.Shapes.Range(Array("Image2")).Visible = False
            ActiveSheet.Shapes.Range(Array("Image3")).Visible = True


' Ni même cela ( qui me déplaît )
ActiveSheet.Shapes.Range(Array("Image1")).Delete

 Merci de votre aide qui m'a déjà été très très très TRES précieuse par le passé.



Configuration: Windows / Chrome 54.0.2840.87

Philou9906 · Answer

Merci, j'ai pu trouver une solution. Peut être pas très académique mais elle fonctionne. Cette macro est mise à la Feuille Formulaire

Private Sub Worksheet_Change(ByVal Target As Range)
'Gestion des images
With Worksheets("Formulaire")
'Image 1 et 2
If .[B3] <> "" And .[C34] <> "" And .[D42] <> "" Then
'Cacher les image1-2 et apparaître image 3
Image1.Locked = True
Image2.Locked = True
Image3.Locked = False
Image1.Visible = False
Image2.Visible = False
Image3.Visible = True
End If
End With
End Sub

Bonne journée à vous

Gérer des images sur une feuille

1 réponse

Votre réponse

Discussions similaires