Discussion :

[totoza]

Bonjour,
Je souhaiterais faire apparaitre une image suivant l'état vérouillé ou pas d'une feuille:
voici mon code, mais ca ne marche pas!!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
Sub deverouiller_feuil1()
 
    ActiveSheet.Unprotect
    Application.Run "etat_feuil1_verouille"
End Sub
 
 
Sub verouiller_feuil1()
    Range("J3").Select
    ActiveCell.FormulaR1C1 = "=TODAY()"
 
    Application.Run "etat_feuil1_verouille"
 
    ActiveSheet.Protect
 
End Sub
 
 
Sub etat_feuil1_verouille()
 
 
    ActiveSheet.Shapes("Picture 21").Select
    Selection.Copy
    Range("H14").Select
    ActiveSheet.PasteSpecial Format:="Image (JPEG)", Link:=False, _
    DisplayAsIcon:=False
 
    End With
 
 
End Sub
 
Sub etat_feuil1_deverouille()
 
    ActiveSheet.Shapes("etat1").Select
    Selection.Delete
 
    ActiveSheet.Shapes("Picture 22").Select
    Selection.Copy
    Range("H14").Select
    ActiveSheet.Paste
 
    ActiveSheet.PasteSpecial Format:="Image (JPEG)", Link:=False, _
    DisplayAsIcon:=False
 
 
End Sub

[SfJ5Rpw8]

oups... il y as du travail... ..

- en vrac un end With tous seul en plein milieu sans son copain with,
- tes images elles sont ou sur la même feuille ? la feuille active au lancement d'une de tes 2 macros ... ?
- tes 2 fonctions deverouiller_feuil1() et verouiller_feuil1() font appel toutes les 2 à "etat_feuil1_verouille"
- ton shape "Etat1" que tu efface , il sort d'ou ?


comment compte tu appeller ces 2 fonctions ...? un bouton sur feuil1?...

[totoza]

oups... il y as du travail... ..

- en vrac un end With tous seul en plein milieu sans son copain with,
- tes images elles sont ou sur la même feuille ? la feuille active au lancement d'une de tes 2 macros ... ?

oui mes images sont dans la feuille active au lancement de mes deux macros.

- tes 2 fonctions deverouiller_feuil1() et verouiller_feuil1() font appel toutes les 2 à "etat_feuil1_verouille"

- ton shape "Etat1" que tu efface , il sort d'ou ?

en fait, ce que je voulais faire, c'est quand je suis dans l'état 1, supposons, état feuille vérouillé, qu'il supprime d'abord l'image de départ (etat2, dévérouillé) et qu'il colle la nouvelle image de l'état 1.

comment compte tu appeller ces 2 fonctions ...? un bouton sur feuil1?...

oui, en cliquant sur deux boutons différents
- 1 pour vérouiller
- 1 pour dévérouillé, c'est vrai que dans l'idéal, un bouton suffirait.. mais je suis loinnnnn encore dan sla programmation pour réussir à faire ca!!

[SfJ5Rpw8]

plutôt que copier coller tes images ... tu place l'une sur l'autre à la position désirée puis tu joue avec la propriétée visible du shape..., par exemple , avec sur ta feuille un contrôle bouton issu de la boite à outils contrôle "commandButton1" et tes deux images l'une sur l'autre renommé "ImgVerr" et "imgDever" ... voici un peu de code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Private Sub CommandButton1_Click()
 Dim s As Worksheet
 Set s = ActiveSheet
  If s.ProtectContents Then
   CommandButton1.Caption = "Verrouiller"
   s.Unprotect
  Else
    CommandButton1.Caption = "Deverouiller"
     s.Protect
  End If
  s.Shapes("ImgVerr").Visible = s.ProtectContents
  s.Shapes("ImagDeVer").Visible = Not s.ProtectContents
 
End Sub

à place dans le code relatif à la feuille excel concernée .. (l'endroit ou tu arrive en double-cliquant sur le bouton en mode création..)