Mastertrack
XLDnaute Nouveau
Bonjour,
J'ai dans mon excel une userform avec liste déroulante de produits, je choisis mon produit et sa fiche apparaît ainsi que sa photo. Le problème étant que la photo apparaît dans une cellule et est trop petite. J'aimerais la faire apparaître dans les cellules A4-C7 qui sont fusionnées mais impossible...
J'ai essayé, d'après les autres discussions du forum de fonctionner avec .Left / .Right etc... mais ça ne fonctionne pas. A savoir que la macro fait appel à une cellule (cheminphoto) dans laquelle il y a une RECHERCHEV qui fait appel à la photo correspondante au produit se trouvant sur mon disque dur. Je vous joins le code ainsi qu'une photo du fichier pour donner un aperçu, merci de votre aide !
Windows("parametres_process_u7.xlsm").Activate
Sheets("Fiche par produit").Select
If ActiveSheet.Pictures.Count > 0 Then
Dim machaine As String
For Each maphoto In ActiveSheet.Shapes
machaine = maphoto.Name
Next
ActiveSheet.Shapes(machaine).Select
Selection.Delete
End If
Application.Goto Reference:="R4C1"
Dim cheminphoto As String
cheminphoto = ActiveCell.Value
ActiveSheet.Pictures.Insert(cheminphoto).Select
J'ai dans mon excel une userform avec liste déroulante de produits, je choisis mon produit et sa fiche apparaît ainsi que sa photo. Le problème étant que la photo apparaît dans une cellule et est trop petite. J'aimerais la faire apparaître dans les cellules A4-C7 qui sont fusionnées mais impossible...
J'ai essayé, d'après les autres discussions du forum de fonctionner avec .Left / .Right etc... mais ça ne fonctionne pas. A savoir que la macro fait appel à une cellule (cheminphoto) dans laquelle il y a une RECHERCHEV qui fait appel à la photo correspondante au produit se trouvant sur mon disque dur. Je vous joins le code ainsi qu'une photo du fichier pour donner un aperçu, merci de votre aide !
Windows("parametres_process_u7.xlsm").Activate
Sheets("Fiche par produit").Select
If ActiveSheet.Pictures.Count > 0 Then
Dim machaine As String
For Each maphoto In ActiveSheet.Shapes
machaine = maphoto.Name
Next
ActiveSheet.Shapes(machaine).Select
Selection.Delete
End If
Application.Goto Reference:="R4C1"
Dim cheminphoto As String
cheminphoto = ActiveCell.Value
ActiveSheet.Pictures.Insert(cheminphoto).Select
Pièces jointes
Dernière édition: