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

R

Rouge

XLDnaute Impliqué

• 22 Octobre 2020

• #2

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

 

Vote positif 0 Vote négatif

K

Keiko

XLDnaute Occasionnel

• 22 Octobre 2020

• #3

Rouge à dit:

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

Cliquez pour agrandir...

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,

 

Vote positif 0 Vote négatif

R

Rouge

XLDnaute Impliqué

• 22 Octobre 2020

• #4

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

VB:

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

 

Vote positif 0 Vote négatif

R

Rouge

XLDnaute Impliqué

• 22 Octobre 2020

• #5

Avec le fichier en exemple

 

Pièces jointes

• Keiko_Copier coller une image vers une autre feuille et cellule déterminé.xlsm

  19 KB · Affichages: 33

Vote positif 0 Vote négatif

K

Keiko

XLDnaute Occasionnel

• 22 Octobre 2020

• #6

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

 

Vote positif 0 Vote négatif

K

Keiko

XLDnaute Occasionnel

• 22 Octobre 2020

• #7

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

 

Vote positif 0 Vote négatif