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 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 - 26 nov. 2014 à 16:56
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 - 26 nov. 2014 à 16:56
A voir également:
- Copier image d'un userform vers cellule
- Copier une vidéo youtube - Guide
- Image iso - Guide
- Windows 7 vers windows 10 - Guide
- Super copier - Télécharger - Gestion de fichiers
- Aller à la ligne dans une cellule excel - Guide
4 réponses
f894009
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
1 701
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
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
1 701
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+
