XL 2010 [RESOLU] - Imprimer une ImageBox

[Toubabou]

J’aurais besoin de votre aide. Dans le fichier joint à l’ouverture cliquez sur

==> "RECETTES »

==> Saisissez « Desserts » en-dessous de « Plats » ‘’ComboBox1’’

==> Sélectionnez « Bûche de Noël crème de marrons chantilly », en-dessous de « RECETTES » ‘’ComboBox2’’

La recette s’affiche. Je voudrais par le biais des OptionBox « OptionBox 1, 2et3), changer l’image(Image3), pouvoir l’enregistrer dans ma recette pour une prochaine ouverture et enfin lorsque j’imprime ma recette par la contrôle « Imprimer », je voudrais retrouver mon image au-dessus des étoiles du niveau de difficulté.

Pourriez-vous m’aider ?

Merci par avance

Mon fichier:
https://transfernow.net/71555223jj1c

Toubabou

 

[Claudy]

Bonsoir...
impossible de télécharger ton fichier...
joints ton fichier via Téléverser un fichier (en bas à droite)
A+
Claudy

 

[Toubabou]

Bonsoir Claudy,
Le soucis est qu'il est normalement accompagné d'un fichier d'image. Bon j'essaie.
Merci beaucoup.

🙂🙂🙂

 

[Toubabou]

ou alors:

 

[Claudy]

Bonsoir,
une première idée, cette imagebox en faire une zone d'impression dans ta feuille et la renommer pour pouvoir la rappeler plus tard..
Bonne m...😵
Claudy

 

[Toubabou]

Ré
Pourriez vous l'expliquer comment faire?
Merci beaucoup

 

[job75]

Bonjour Toubabou, Claudy,

Voyez le fichier joint, maintenant le bouton IMPRIMER de l'UserForm fonctionne bien.

J'ai repris un certain nombre de choses, mais il vous en reste encore pas mal à améliorer.

A+

 

[Toubabou]

Bonsoir Job75
Effectivement cela fonctionne super bien. Un GRAND MERCI à vous.
Quelle amélioration me conseillerez vous?
Toubabou

 

[job75]

Re,

Quelle amélioration me conseillerez vous?

Je pense en particulier à CheckBox1 qui me semble-t-il est inutile.

A+

 

[Toubabou]

Il est vrai que maintenant elle devient inutile.
Merci pour le conseil.
Par contre, pourrais-tu me dire quels sont les modifications que tu as apportées?
A+
Toubabou

 

[Toubabou]

Excuse moi Job75,
Je viens de m'apercevoir que si aucune sélection n'est faite par les "OptionButon" cela renvois une erreur du style:
Debogage:

Private Sub InsImage(Image$, Cel As Range, ordre As Byte)
  Static y 'mémorise
  Cel.Activate
  Cel = Image
  With Sheets("IMPRESSION").Pictures.Insert(Image)
  '.Name = Image
    .ShapeRange.LockAspectRatio = msoTrue
    If ordre = 1 Then
      .Height = Cel.Height * 0.9
      If .Width > Cel.Width * 0.9 Then .Width = Cel.Width * 0.9
      .Top = Cel.Top + ((Cel.Height - .Height) / 2)
      .Left = Cel.Left + ((Cel.Width - .Width) / 2)
      y = .Top
    ElseIf ordre = 3 Then
      .Top = y
      .Height = 100
    Else
      .Top = y + 120
    End If
  End With
End Sub

 

[job75]

Bonjour Toubabou,

Par contre, pourrais-tu me dire quels sont les modifications que tu as apportées?

J'ai modifié les macros :

- des 3 OptionButtons avec Image3.Tag

- CommandButton5_Click() avec les 3 Call InsImage

- InsImage.

J'ai aussi ajouté OptionButton1 = True dans CheckBox1_Click pour qu'au moins un bouton soit activé.

Si l'on supprime CheckBox1 il faudra mettre cette instruction ailleurs, par exemple dans UserForm_Initialize.

A+

 

[job75]

Re,

Dans ce fichier (2) j'ai supprimé CheckBox1_Click et mis OptionButton1 = True dans UserForm_Initialize.

A+

 

[Toubabou]

Re
Merci Beaucoup Job75. Je vais essayer maintenant de comprendre ton cheminement. Ton aide est précieuse,
Amicalement,
Toubabou

 

[job75]

Re,

Il y a bien mieux : j'ai mis dans CommandButton5_Click, avant le 3ème Call :

  If Image3.Tag = "" Then OptionButton1 = True 'lance OptionButton1_Click

Fichier (3).

A+