Suppression Automatique d'une image JPEG

[Marina01]

Bonjour,

J'ai ce code :

 Sheets(1).ComboBox1.Text = ""
 Sheets(1).ComboBox2.Text = ""
 Sheets(1).ComboBox3.Text = ""
 Sheets(1).ComboBox4.Text = ""
 Sheets(1).ComboBox5.Text = ""

J'ai 5 liste deroulante et en dessous de chacune des ses listes une image s' affiche au clik d un element contenu dans la liste. Jusque là tout va bien. J'espere.

Le code ci dessous me permet d'effacer automatiquement le contenu des listes quand je change d otpion dans le formulaire mais les images restent.

Savez vous comment palier à cela?

Merci.

 

[tototiti2008]

Re : Suppression Automatique d'une image JPEG

Bonjour Marina,

et où affiches-tu les images ? directement dans la feuille de calcul ?

 

[Marina01]

Re : Suppression Automatique d'une image JPEG

Les images sont affichées en feuille 1, tout comme les listes deroulantes d ailleurs. Je sais ya un moyen mais après plusieurs tentatives j ai toujours un message d erreur.

 

[tototiti2008]

Re : Suppression Automatique d'une image JPEG

Re,

il faudrait savoir comment tes images sont modifiées quand on choisit une autre valeur dans la liste pour te proposer comment les faire disparaître

Bref, un bout de fichier exemple serait souhaitable

 

[Marina01]

Re : Suppression Automatique d'une image JPEG

Bonjour,

Voilà le fichier exemple. Vous constaterez le contenu de la liste deroulante s'efface automatiquement. MAis pas l'image.....

http://cjoint.com/?gli0vcFUPX

En espérant que vous trouverez,

Merci d'avance

 

[tototiti2008]

Re : Suppression Automatique d'une image JPEG

Bonjour,

personnellement, je ne peux pas ouvrir les zip

peux-tu me poster le code qui est appliqué quand tu modifie une valeur dans une liste déroulante ?

 

[camarchepas]

Re : Suppression Automatique d'une image JPEG

Bonjour Tototiti, Marina ...

Voici , en prime , j'ai créé un fond lorsqu'il n'y a pas d'image.

Et j'ai encore enlevé ce satané on error resume next ( Lol ).

 

[Marina01]

Re : Suppression Automatique d'une image JPEG

Salut,

Alors 2 choses :

Pour repondre a camarchepas : je soouhaiterais ne rien avoir en fond. En clair que du blanc. T es macro sont longues lol, suis pas une pro au contraire. D autant plus que j'ai 10 listes deroulantes dans la version officel.

Pourrais tu comme meme m expliquer tout tes changements, avoir une petite traduction rapide des lignes que tu as ajouté, l intérêt c que je comprenne j ai pas envie de recopier ce qu il y a meme si c bien.

Pour repondre a Tototiti:

En feuille1 =

Private Sub ComboBox1_Change()

    'Nécessaire dans le cas ou le programme ne trouve pas l'image, le shapes reste blanc au lieu d'avoir un debogage sur les lignes
    On Error Resume Next
    
    'Cette propriété a la valeur True si la mise à jour de l'écran est activée
    Application.ScreenUpdating = False
   
    
    If ComboBox1 <> "" Then
    
        
        Image = rep1 & ComboBox1.Value & ".jpg"
        
        
        
        ActiveSheet.Shapes("Photo1").Fill.UserPicture Image 'Cadre 1
    End If
    
    [H21].Select

End Sub

Userform :

Private Sub CommandButton1_Click()

    For Each op In UserForm1.Frame2.Controls
        If op Then
            Select Case op.Caption
                Case "Option1"
                    Sheets(1).ComboBox1.ListFillRange = "liste1"

                    rep1 = ThisWorkbook.Path & "\Option1\Loft\"

                    Sheets(1).Label1.Caption = "Option1"
                    
                   
                    
        End Select
            Exit For
        End If
 Next
 Me.Hide
 Sheets(1).Select
 Sheets(1).ComboBox1.Text = ""

 Sheets(1).Calculate
ActiveWindow.DisplayHeadings = False

End Sub

 

[tototiti2008]

Re : Suppression Automatique d'une image JPEG

Bonjour camarchepas,
Re,

un essai

Private Sub ComboBox1_Change()

    'Nécessaire dans le cas ou le programme ne trouve pas l'image, le shapes reste blanc au lieu d'avoir un debogage sur les lignes
    On Error Resume Next
    
    'Cette propriété a la valeur True si la mise à jour de l'écran est activée
    Application.ScreenUpdating = False
   
    
    If ComboBox1 <> "" Then
    
        
        Image = rep1 & ComboBox1.Value & ".jpg"
        
        
        
        ActiveSheet.Shapes("Photo1").Fill.UserPicture Image 'Cadre 1
    Else
    ActiveSheet.Shapes("Photo1").Fill.Solid
    ActiveSheet.Shapes("Photo1").Fill.ForeColor.SchemeColor = 9        
    End If
    
    [H21].Select

End Sub

 

[Marina01]

Re : Suppression Automatique d'une image JPEG

Super,

Resultat satisfaisant, juste confirme moi qu on ne peu pas reduire encore plus ce changement pour aboutir au meme resultat.

Ensuite pareillement, peux tu expliquer tes changements car je souhaite comprendre plus que recopier.

 

[tototiti2008]

Re : Suppression Automatique d'une image JPEG

Re,

juste confirme moi qu on ne peu pas reduire encore plus ce changement

euh, je n'en sais rien, c'est juste une solution qui marche
dire qu'il n'y a pas plus court serait présomptueux

peux tu expliquer tes changements car je souhaite comprendre plus que recopier

Les 2 lignes ajoutées font ça :
la 1ère dit que ton Objet Photo1 doit avoir un fond "solide", c'est à dire de couleur unie
La 2ème dit que la couleur de fond est la numéro 9 c'est à dire le blanc à priori

 

[camarchepas]

Re : Suppression Automatique d'une image JPEG

Re , Hello Marina et TOtoTiti

Voici donc le code revu et commenté.

Je rappelle que l'utilisation du on error resume next doit être évité à chaque fois que l'on peu car pour n'importe quelle erreur le programme continu et peut arriver à faire un vrai plantage de la machine.

 

[tototiti2008]

Re : Suppression Automatique d'une image JPEG

Re,

@camarchepas
Bon, ton histoire de On Error Resume Next, ça tourne à l'obsession 😉
Personnellement, je l'ai utilisé de nombreuses fois sans soucis
Le tout est de rajouter un On Error Goto 0 quand les "lignes qui peuvent entrainer une erreur" sont passées