[XL-2007] Masquer une image .jpg [Résolu]

[Defter]

Bonjour à tous !

J'ai actuellement 3 images nommées "Image 22" "Image 23" "Image 24" dans une feuille de calcul.

Je souhaite cacher ces images en fonction de la valeur de la cellule "D34".

Si D34 = 2 alors "Image 22" est visible et "Image 23" "Image 24" sont cachées
Si D34 = 3 alors "Image 23" est visible et "Image 22" "Image 24" sont cachées
Si D34 = 4 alors "Image 24" est visible et "Image 22" "Image 22" sont cachées



Mon premier problème viens du faite que lorsque j'enregistre une macro pour voir précisément le nom de l'image, celle-ci n'est pas detectée par la maccro.

Ensuite j'ai essayé avec ce code :

Code :

1
2
3
4
5
6
7
8
Sub test1()
 
If Range("D34").Value = 2 Then
        Sheets("Mur rideau").Shapes("Image 22").Visible = True
        Sheets("Mur rideau").Shapes("Image 23").Visible = False
        Sheets("Mur rideau").Shapes("Image 24").Visible = False
        End If
End Sub

et biensur ... ça ne marche pas. J'avais réussis à gérer des images via ".Visible = False / True" mais impossible de remettre la main sur ce classeur, je me dirige donc vers vous


Cordialement,
Defter

[jfontaine]

Bonjour,

As tu essayé comme cela

Code :

1
2
3
4
5
6
If Range("D34").Value = 2 Then
        Sheets("Mur rideau").Shapes.Range("Image 22").Visible = True
        Sheets("Mur rideau").Shapes.Range("Image 23").Visible = False
        Sheets("Mur rideau").Shapes.Range("Image 24").Visible = False
        End If
End Sub

[Defter]

Bonjour jfontaine,

Je viens d'essayer à l'instant et il me dit :

Erreur d'exécution '9'
L'indice n'appartient pas à la sélection

Je trouve ça bizarre que le nom de l'image n'apparaisse pas lorsque je fais "Enregistrer Macro" aussi, c'est la première fois que ça me le fait.

EDIT : Je viens de remarquer que lorsque je séléctionne mes images présentes sur la feuille de calcul elles ne m'indique pas leur nom mais reste sur la derniere cellule séléctionée. (Dans la zone ou l'on édite le nom d'une cellule/image)

Cordialement,
Defter.

[Daniel.C]

Bonjour,

Mets la macro suivante dans le module de la feuille :

Code :

1
2
3
4
5
6
7
8
9
10
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address <> "$D$34" Then Exit Sub
    If Target.Value < 2 Or Target.Value > 4 Then Exit Sub
    With ActiveSheet
        .Pictures("Image 22").Visible = False
        .Pictures("Image 23").Visible = False
        .Pictures("Image 24").Visible = False
        .Pictures("Image 2" & Target.Value).Visible = True
    End With
End Sub

[Jean-Pierre49]

Bonjour

Es-tu sur que tes images sont bien nommées

Code pour le savoir

Code :

1
2
3
4
    Dim I As Shape
    For Each I In ActiveSheet.Shapes
        I.Name
    Next I

Parce que ton code n'a pas de raison de ne pas fonctionner
Tu dis

[Defter]

Bonjour Daniel.C !

Merci de ton aide !

Alors je suis surement très mauvais mais quand je copie ça dans "MODULE 1" et que je clic sur Lecture pour essayer, il me demande une Macro Oo.
Quand je copie ça dans la feuille aussi directement il me demande ça aussi et ... je ne sais pas comment faire marcher ça :/

Désolé je suis vraiment pas doué.


Cordialement,
Defter

Je pense que ça viens effectivement des images mais même en remettant d'autre je conserve toujours le même soucis de nom

Je vais chercher le pourquoi du comment je vous tiens au courant.

[jfontaine]

Et que te dit l'enregistreur de macro quand tu sélectionnes une image

[Defter]

Rien, il n'y fait meme pas référence,

Par exemple sur le copier coller de l'image 22 il me fait

Code :

1
2
3
4
5
6
7
8
Sub Macro1()
 
' Macro1 Macro
 
    Selection.Cut
    ActiveWindow.SmallScroll Down:=3
    Range("A38").Select
    ActiveSheet.Paste

[jfontaine]

Le code est il le même si l'image n'est pas sélectionnée avant de lancer l'enregistreur de macro ?

[Daniel.C]

Normal, mais recommence en sélectionnant une cellule au départ. Il ne faut pas que l'image soit sélectionnée au démarrage de l'enregistreur.

[Defter]

Oui c'est ça qui est bizarre,

Test sans pré-selection c a d en séléctionnant une cellule à coté :

Sub Macro1()

Code :

1
2
3
4
5
' Macro1 Macro
 Selection.Cut
    Range("M43").Select
    ActiveSheet.Paste
End Sub

Histoire d'apporter plus de précision, mes images sont en .Jpg, je suis passé par insertion -> Image et j'ai été les chercher sur le bureau.

J'ai aussi essayé de les renommer mais le résultat est le même, elles ne sont pas détecte


Merci en tout cas pour votre aide

[Jean-Pierre49]

As-tu tenté de les inserer à partir d'un code style

Code :

1
2
3
4
5
6
7
8
9
    Dim Chemin As String
    Dim Nom As String
    Dim i As Byte
 
    Chemin = "C:\...\"
        For i = 22 To 24
        Nom = "Image " & i & ".jpg"
        ActiveSheet.Pictures.Insert(Chemin & Nom).Name = "Image  & i"
    Next i

Tu dis

[Daniel.C]

C'est bizarre. Essaie de recommencer avec un classeur neuf.

[Defter]

Bonjour Jean-Pierre 49.

Avec ta technique le résultat est le même malheureusement.

Je vais repartir avec un nouveau classeur.


Je vous tiens au courant,
Cordialement
Defter

[Defter]

Re-Bonjour,

Alors je suis repartis d'un classeur vierge en insérant une image Windows par défaut et le résultat est le même :

L'enregistreur de macro ne détecte pas l'image.

J'ai aussi essayé avec le format .Bmp mais ça ne change rien.

Je n'avais jamais eu ce problème avant et je ne vois absolument pas d'ou cela peut il venir.



Defter

[Daniel.C]

Essaie une réparation d'Office.

[jfontaine]

Je ne pense pas que le format de l'image est un rôle.

peux tu faire l'ajout de l'image avec l'enregistreur de macro et nous donner le code

[Defter]

Bonjour,

J'ai essayé de réparer et rien n'y fait, l’informaticien de l'entreprise dit que ça peut venir de la version 2007 qui ne gère plus les même chose que 2003.

Jfontaine, voila la macro qui en sort lorsque j'insere l'image.
Procédure effectuée :
Demarage de l'enregistreur -> insertion -> Image -> choix de l'image -> Ok

Code :

1
2
3
4
5
6
7
Sub Macro1()
'
' Macro1 Macro
'
 
'
End Sub

...

\o/

[Daniel.C]

Deux choses :
1. la macro fonctionne ici avec XL2007
2. Par contre, oui, l'enregistreur de macros n'enregistre rien. C'est un défaut d'Excel 2007.

[Defter]

D'acc donc si l'image ne réagit pas avec ma macro de base, (Voir premier post) c'est donc un problème de synthaxe et/ou de nom.

Seulement je ne vois pas à quel niveau.