Discussion :

[mauriceguillier]

Bonjour à tous,

J'ai installé sur un userform (UserFormEC) une image de fond afin d'agrémenter le "plan de travail".

Cependant, quand le "travail" est définitivement validé, je ne souhaite pas conserver cette image qui, somme toute, n'a plus aucune utilité mais qui tient beaucoup de place : avec image, le fichier excel pèse 1,6 mégaoctets et sans 80 ko. Ça vaut donc le coup de ...

Le code est appelé par un commandbutton implanté sur cet userform.

J'ai beau essayé diverses commande commençant par UserFormEC.Picture = (quelque chose), que ce soit dans le code du commandbutton ou bien par appel d'une macro écrite dans un module, je n'arrive pas à trouver la bonne écriture. J'ai essayé "none", "aucun", "Nothing", "delete".... je suis toujours en erreur.

Si l'opération est vraiment possible, pourriez-vous m'aider ?

Merci d'avance,
Maurice GUILLIER

[jfontaine]

Bonjour,

Pour retirer l'image de fond

Code :

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

Me.Picture = LoadPicture("")

[mauriceguillier]

Bonjour,

Fouillant l'aide VBA sur excel, je venais tout juste de trouver : Object.Picture = LoadPicture("") quand ta réponse est arrivée.

Tout concorde donc !

Merci pour ce coup de main car, au départ, je n'arrivais même pas a bien formulé ma question dans l'aide.

Bonne journée... sous la neige !
Maurice

[mauriceguillier]

Bonjour,

Ça marche mais...

En effet, avec le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub CommandButton10_Click()
avertissement = MsgBox("ATTENTION !" & Chr(10) & "Si vous appuyez sur 'OK', vous ne pourrez plus modifier ce bon !" & Chr(10) & Chr(10) & "Voulez-vous vraiment le valider définitivement ?", vbCritical + vbYesNo, "Validation pour facturation")
    If avertissement = vbYes Then
        Sheets("Commande").Activate
            Range("C3:AP32").Select
            ActiveSheet.Unprotect
            Selection.Locked = True
            Selection.FormulaHidden = False
            Range("C3").Select
            ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
        UserFormEC.Picture = LoadPicture("")
    End If
End Sub

L'image est bien effacée mais seulement pour la session en cours. Après enregistrement du fichier et réouverture, l'image est toujours présente sur le userform.

En fait, je souhaite supprimer définitivement l'image lorsque "CommandButton10_Click()" s'est exécuté.

J'espère que c'est possible et j'attends patiemment vos conseils.

Cordialement,
Maurice

[jfontaine]

Une solution consisterait de tester une cellule a l'ouverture du fichier.
Si celle ci contient 1une certaine valeur (par exemple 1), tu charges l'image sinon tu ne charges pas l'image.
cela permettra d'avoir toujours un fichier light. Par contre il faudra distribuer l'image avec le fichier