Microsoft 365 Copier coller une image vers une autre feuille et cellule déterminé

[Keiko]

Bonjour,

Je souhaiterais copier une image d'une feuille et de cellule déterminé vers une autre feuille avec cellule déterminé.
Les images dans les cellules de bases sont des images écrites avec un stylo pour tablette.

j'ai deux images à copier dans des cellules sur une page portant le nom "L"

Première image : B293:E311
Deuxième image : F293:H311

Je souhaiterais coller les deux images sur la page "DP" dans les cellules :

Première image : P1:AF30
Deuxième image : P31: AF61

Pensez-vous cela possible?

Bien à vous,

 

[Rouge]

Bonjour,

Concernant la définition du mot "Image", votre explication n'est pas claire
-Au sens propre d'excel, une image est un objet dessiné et déposé sur la feuille, tel un rectangle, une sphère, une image ou photo etc..
or j'ai l'impression que c'est plutôt un dessin réalisé sur un ensemble de cellules fusionnées.
Qu'en est-il réellement?

Cdlt

 

[Keiko]

Bonjour,

Concernant la définition du mot "Image", votre explication n'est pas claire
-Au sens propre d'excel, une image est un objet dessiné et déposé sur la feuille, tel un rectangle, une sphère, une image ou photo etc..
or j'ai l'impression que c'est plutôt un dessin réalisé sur un ensemble de cellules fusionnées.
Qu'en est-il réellement?

Cdlt

Bonjour,

Oui les cellules sont fusionnées.
je dessine dans les cellules fusionnées que je souhaite copier coller automatiquement sur une autre feuille dans des cellules déterminés.

Bien à vous,

 

[Rouge]

En VBA, essayez ceci, a copier dans un module standard

Sub Copier_Image()
    Dim f1 As Worksheet, f2 As Worksheet
    Application.ScreenUpdating = False
    Set f1 = Sheets("L")
    Set f2 = Sheets("DP")
    f2.Range("P1:AF61").UnMerge
    f1.Range("B293").Copy f2.Range("P1")
    f1.Range("F293").Copy f2.Range("P31")
    f2.Range("P1:AF30").MergeCells = True
    f2.Range("P31:AF61").MergeCells = True
    Set f1 = Nothing
    Set f2 = Nothing
End Sub

 

[Rouge]

Avec le fichier en exemple

 

[Keiko]

Malheureusement, je viens d'essayer et ca ne fonctionne pas ;(

 

[Keiko]

Ca marche, voici ce que j'ai fait.
J'ai ajouté les données manquantes et cela marche très bien.

Encore merci pourvotre aide !!!

Dim f1 As Worksheet, f2 As Worksheet
Application.ScreenUpdating = False
Set f1 = Sheets("L")
Set f2 = Sheets("DP")
f2.Range("P1:AF61").UnMerge
f1.Range("B293:e311").Copy f2.Range("P1:af30")
f1.Range("F293:h311").Copy f2.Range("P31:AF61")
f2.Range("P1:AF30").MergeCells = True
f2.Range("P31:AF61").MergeCells = True
Set f1 = Nothing
Set f2 = Nothing