Microsoft 365 Supprimer une image si contenu d'une autre cellule vide

Arthur EXL · 5 Juillet 2021

Bonjour le forum,

J'aurai besoin d'un peu d'aide pour résoudre mon problème.
Dans un précédent topic (Précédent topic), j'ai voulu faire apparaître une image selon le contenu d'une cellule depuis un fichier extérieur, ce que j'ai réussi à faire avec votre aide.
Mon problème est le suivant :
Une fois l'image affichée, si je change de recherche dans les listes déroulantes, l'image reste affichée, mais je souhaiterais l'enlever tout simplement.

Si vous voulez mon fichier pour mieux comprendre, n'hésitez pas à me demander...
Merci par avance pour vos réponse,

@Arthur EXL

Arthur EXL · 7 Juillet 2021

Bonjour,

Modifications de mon sujet, je pense ne pas avoir été assez précis.
Lorsque j'ouvre le fichier, je voudrais que les images présentes dans le fichier soient supprimée, vu qu'elles apparaissent automatiquement avec sélection dans une liste déroulante.
Le code pour afficher l'image :

VB:

Sub AfficheImage()
    Application.ScreenUpdating = False
    On Error Resume Next
    xNomGénériqueImage = "MonImage"
    ActiveSheet.Shapes.Range(Array("" & xNomGénériqueImage & "")).Delete
    xRépertoireImage = "lienversimage\"
    xFichierImage = Dir(xRépertoireImage & "\" & Range("J5").Value & ".*")
    Nf = xRépertoireImage & "\" & xFichierImage
    If Dir(Nf) <> "" Then
        Set C = Range("H8").MergeArea
        With ActiveSheet
            .Pictures.Insert(xRépertoireImage & xFichierImage).Name = xNomGénériqueImage
            .Shapes(xNomGénériqueImage).Left = C.Left
            .Shapes(xNomGénériqueImage).Top = C.Top
            .Shapes(xNomGénériqueImage).LockAspectRatio = msoFalse
            .Shapes(xNomGénériqueImage).Height = C.Height
            .Shapes(xNomGénériqueImage).Width = C.Width
        End With
    End If
    Application.ScreenUpdating = True
End Sub

Quand le nom de l'image se trouve dans la cellule J5, ca recherche la photo correspondante dans le répertoire et l'affiche dans la celle H8.
Mais l'image reste affichée lorsque je change de nom dans J5 ou quand la cellule devient vide...

Une idée ?
Merci

Microsoft 365 Supprimer une image si contenu d'une autre cellule vide

Arthur EXL

XLDnaute Nouveau

Arthur EXL

XLDnaute Nouveau

Discussions similaires