Insérer une image via userform si une checkbox est sélectionnée

[ronanm]

Bonjour forum,

Voici mon défi :

J'ai créer une userform qui me permet de renseigner un nom, un numéro de produit ...
Cependant, en plus, je souhaite ajouter à la fiche produit des images dans les "cadres images" préinstallé sur la fiche produit. .
Pour ce faire, la userform propose une série d'image à sélectionner via des checkbox.

Une ou plusieurs checkbox peuvent etre sélectionnées et je souhaiterais que les images soit intégrées dans les cases prévus en commençant le remplissage par la case n°1 et continuer en fonction des images sélectionnées.

Exemple, en case 1, l'image 2 sélectionner
en case 2, l'image 4
en case 3, l'image 7 par exemple ...

Merci par avance.

Voici une trame du fichier ! Regarde la pièce jointe fiche.xls

Cordialement,
ronanm

 

[Hippolite]

Re : Insérer une image via userform si une checkbox est sélectionnée

Bonsoir,
A adapter : boisgontierjacques.free.fr/Choix d'une image interne avec VBA
A+

 

[david84]

Re : Insérer une image via userform si une checkbox est sélectionnée

Bonsoir,
si cela peut t'aider :

Formation Excel VBA JB

=>images et shapes
=>Choix d'une photo interne dans un listbox photo
=>Choix d'une photo externe dans un listbox photo
=> etc.
A+

 

[ronanm]

Re : Insérer une image via userform si une checkbox est sélectionnée

Bonjour, merci pour ces premières réponses. Je test tout ça ! A bientot

 

[ronanm]

Re : Insérer une image via userform si une checkbox est sélectionnée

Re,
Les liens et les tutos ne me permettent pas de réaliser ce que je souhaite. J'en avais déjà pris connaissance mais je ne savais pas comment l'adapter à mon cas.

En gros, je voulais écrire (mais je ne sais pas comment faire) une fonction disant

If CheckBox1 = True Then Copy 'image1 dans la case qui est disponible en commencant par la case 1 de la feuille'

Et ainsi de suite, par exemple
If CheckBox3 = True Then Copy 'image 2 et idem et donc coller en case 2' ...

Mais je ne sais pas comment écrire tout cela et mettre les conditions !! Si vous pouviez m'aider cela serait royal.

Cordialement

 

[ronanm]

Re : Insérer une image via userform si une checkbox est sélectionnée

J'ai essayer avec cela mais il manque bien sur des éléments

'If CheckBox1 = True Then Sheets("images").Select
'ActiveSheet.Shapes("image1").Copy
'Sheets("Feuil1").Select
'ActiveSheet.Paste

Mais il ne copie qu'une image, ne la colle pas ou je veux et ne test pas si les autres cases sont sélectionnées

 

[Hippolite]

Re : Insérer une image via userform si une checkbox est sélectionnée

Bonjour,
Joins un fichier en y expliquant le résultat souhaité
A+

 

[Papou-net]

Re : Insérer une image via userform si une checkbox est sélectionnée

Bonjour ronanm, les participants

Voici une solution qui fonctionne, mais qui reste à compléter. Je m'explique :

L'affichage des images se fait très bien, mais je ne parviens pas encore à réinitialiser les images pour une seconde utilisation. Je poursuis mes recherches, donc en attendant, la 1ère boucle reste en commentaire.

Private Sub CommandButton1_Click()
'For n = 1 To 9
'  Sheets("Feuil1").OLEObjects("img" & n).Object.Picture = ""
'Next
num = 1
For n = 1 To 9
  If Controls("Checkbox" & n) Then
    If CheckBox1 = True Then TextBox1.Text = "SGH01"
    If TextBox1.Text = "" Then
      MsgBox "Entrer un nom de produit"
      Exit Sub
    End If
    Sheets("Feuil1").OLEObjects("img" & num).Object.Picture = Sheets("images").OLEObjects("Image" & n).Object.Picture
    num = num + 1
  End If
Next
Range("B1") = TextBox1.Text
Range("B2") = TextBox2.Text
Range("B3") = TextBox3.Text

TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
Unload Me
End Sub

Espérant avoir aidé.

Cordialement.

RE Hippolite : le fichier est joint depuis le 1er poste

 

[ronanm]

Re : Insérer une image via userform si une checkbox est sélectionnée

youhouu !! Eustraa !!
Enfin voici le fichier avec le code de Papou-net. Merci beaucoup.

Regarde la pièce jointe fiche 2.xls

Le code fonctionne très bien pour l'ajout d'image. merci.

Je cherche également comment réinitialiser les images. En enregistrant en macro cela ne fonctionne pas non plus ...

Dans la recherche et dans cette attente, merci beaucoup pour ce superbe départ !
Cordialement.
Ronan

 

[ronanm]

Re : Insérer une image via userform si une checkbox est sélectionnée

RE, re

Voici ce que je viens de trouver pour réinitialiser et cela fonctionne plutot bien.
(A ajouter sur le bouton de commande qui lance la userform)

Private Sub CommandButton1_Click()
For n = 1 To 9
Sheets("Feuil1").OLEObjects("img" & n).Object.Picture = LoadPicture()
Next
UserForm2.Show
End Sub

Merci mille fois.

Je test cela sur mon fichier original et je vous tiens au courant !!

Cordialement

 

[ronanm]

Re : Insérer une image via userform si une checkbox est sélectionnée

C'est parfais !!!!!!!!!!!!!!!!!

Merci Papou-net

Bonne continuation

 

[Papou-net]

Re : Insérer une image via userform si une checkbox est sélectionnée

C'est parfais !!!!!!!!!!!!!!!!!

Merci Papou-net

Bonne continuation

De rien, ronanm, et merci pour l'info (je n'avais pas encore eu l'idée de tester cette syntaxe).

Cordialement.