Gérer des images sur une feuille

Résolu
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é.



A voir également:

1 réponse

Réponse 1 / 1
Philou9906
 
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
0

Discussions similaires

Feuille de score belote
nulleeninfo -
brucine -

7 réponses
Les feuilles Diddl
TiiteBaakaa -
soso -

8 réponses
feuille excel de gestion belote
SiFaSiLa -
frank -

2 réponses
comment avoir une page blanche pour écrire
heudebert 57 -
iglou -

2 réponses