Copier image d'un userform vers cellule
Résolu/Fermé
Bob0876
Messages postés
40
Date d'inscription
mardi 16 septembre 2014
Statut
Membre
Dernière intervention
4 décembre 2014
-
25 nov. 2014 à 22:10
f894009 Messages postés 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024 - 26 nov. 2014 à 16:56
f894009 Messages postés 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024 - 26 nov. 2014 à 16:56
A voir également:
- Copier image d'un userform vers cellule
- Copier une vidéo youtube - Guide
- Excel cellule couleur si condition texte - Guide
- Image iso - Guide
- Aller à la ligne dans une cellule excel - Guide
- Super copier - Télécharger - Gestion de fichiers
4 réponses
f894009
Messages postés
17206
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
22 novembre 2024
1 710
26 nov. 2014 à 11:48
26 nov. 2014 à 11:48
Bonjour,
inspirez vous de ceci
https://forums.commentcamarche.net/forum/affich-2328371-excel-inserer-une-image-ds-la-cellule-active
inspirez vous de ceci
https://forums.commentcamarche.net/forum/affich-2328371-excel-inserer-une-image-ds-la-cellule-active
Bob0876
Messages postés
40
Date d'inscription
mardi 16 septembre 2014
Statut
Membre
Dernière intervention
4 décembre 2014
26 nov. 2014 à 14:36
26 nov. 2014 à 14:36
Merci, mais malgré votre aide je ne comprend pas plus comment sectionné l'image du userform et la coller dans une cellule
Bob0876
Messages postés
40
Date d'inscription
mardi 16 septembre 2014
Statut
Membre
Dernière intervention
4 décembre 2014
26 nov. 2014 à 15:41
26 nov. 2014 à 15:41
voici une partie de mon code
ww = mn & 5 & aw + 3
Set b = VBA.UserForms.Add(ww)
If b.Image1.Tag <> "" Then
Workbooks("Formulaire.xlsm").Worksheets("ajdonne").Pictures.Insert(b.Image1.Tag).Select
Selection.Top = Range("k1").Top
Selection.Left = Range("k1").Left
End If
If b.Image2.Tag <> "" Then
Workbooks("Formulaire.xlsm").Worksheets("ajdonne").Pictures.Insert(b.Image2.Tag).Select
Selection.Top = Range("k25").Top
Selection.Left = Range("k25").Left
End If
Private Sub CommandButton2_Click()
(...)
Me.Image1.Picture = LoadPicture(FichImg)
Me.Image1.Tag = FichImg
(...)
end sub
ww est le nom du userform existant (vérifié)
ww = mn & 5 & aw + 3
Set b = VBA.UserForms.Add(ww)
If b.Image1.Tag <> "" Then
Workbooks("Formulaire.xlsm").Worksheets("ajdonne").Pictures.Insert(b.Image1.Tag).Select
Selection.Top = Range("k1").Top
Selection.Left = Range("k1").Left
End If
If b.Image2.Tag <> "" Then
Workbooks("Formulaire.xlsm").Worksheets("ajdonne").Pictures.Insert(b.Image2.Tag).Select
Selection.Top = Range("k25").Top
Selection.Left = Range("k25").Left
End If
Private Sub CommandButton2_Click()
(...)
Me.Image1.Picture = LoadPicture(FichImg)
Me.Image1.Tag = FichImg
(...)
end sub
ww est le nom du userform existant (vérifié)
f894009
Messages postés
17206
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
22 novembre 2024
1 710
Modifié par f894009 le 26/11/2014 à 16:59
Modifié par f894009 le 26/11/2014 à 16:59
Re,
cette partie marche sans probleme
Veuillez detailler un peu plus ce qui ne va pas !!!!!!!!!!!!!!!!!!!!
A+
cette partie marche sans probleme
Sub test()
ww = "userform2"
Set b = VBA.UserForms.Add(ww)
If b.Image1.Tag <> "" Then
Workbooks("Formulaire.xlsm").Worksheets("Accueil").Pictures.Insert(b.Image1.Tag).Select
Selection.Top = Range("k1").Top
Selection.Left = Range("k1").Left
End If
If b.Image2.Tag <> "" Then
Workbooks("Formulaire.xlsm").Worksheets("ajdonne").Pictures.Insert(b.Image2.Tag).Select
Selection.Top = Range("k25").Top
Selection.Left = Range("k25").Left
End If
End Sub
Veuillez detailler un peu plus ce qui ne va pas !!!!!!!!!!!!!!!!!!!!
A+