Gérer des images sur une feuille
Résolu
Philou9906
-
Philou9906 -
Philou9906 -
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é.
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é.
1 réponse
-
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
