recopie d'image

[gh4]

bonsoir a tous

comment deplacer (par macro)un tableau et une image dans un nouveau classeur excel
lorsque je fais copier coller le tableau l'image ne vient pas avec le tableau

merci de votre aide

Cordialement

 

[gh4]

Re : recopie d'image

oubli du fichier

 

[gh4]

Re : recopie d'image

Bonsoir
toujours à la recherche d'une solution

SVP

 

[kjin]

Re : recopie d'image

Bonsoir,
Ton fichier ne contient aucun code, pourtant, il y a de forte chance pour que ce soit ta macro qui pose pb non ?!
Et la macro, on l'invente 🙄
A+
kjin

 

[gh4]

Re : recopie d'image

voici le fichier modifier avec la macro
l'image ne vient pas
et la hauteur des lignes n'est pas comme l'original
je ne peux que selectionner le tableau et pas la feuille entiere car je dois qu'enregister le tableau dans un nouveau classeur

encore merci a vous

Cordialement

 

[alfazoulou]

Re : recopie d'image

bonjour,
tu eux essayer le code ci dessous, par contre il faut encore résoudre le probléme de la hauteur des lignes.
Sheets("Feuil1").Select
Application.CutCopyMode = False
Selection.Copy
Range("B3:I32").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil2").Select
Range("B3:H32").Select
ActiveSheet.Paste
Range("E37").Select

 

[gh4]

Re : recopie d'image

merci beaucoup pour cette premiere phase
reste effectivement le probleme de la hauteur des lignes
et je vois pas comment faire

ci joint fichier modifié apres la modif
cordialement

 

[kjin]

Re : recopie d'image

Bonjour,
Essaie

Sub Recopie()
    Range("B3:I32").Copy _
    Destination:=Sheets("Feuil2").Range("B7")
End Sub

A+
kjin

 

[gh4]

Re : recopie d'image

merci de vous penchez sur ce probleme
kjin ta formule recopie bien le tableau et l'image comme celle d'alfazoulou
mais elle ne recopie la hauteur des lignes definit dans le tableau

 

[Lii]

Re : recopie d'image

Bonjour tous,

à tester.

Sub TelQuel()
  Dim Li As Byte
  Sheets("Feuil1").Range("B3:H32").Copy Sheets("Feuil2").Range("B3")
    For Li = 3 To 32
      Sheets("Feuil2").Cells(Li, 1).RowHeight = Sheets("Feuil1").Cells(Li, 1).RowHeight
    Next
End Sub

 

[gh4]

Re : recopie d'image

merci beaucoup effectivement cela marche
j'essaye de l'adapter a mon prog mais j'ai un probleme car il faut que je l'exporte vers un autre classeur.
Sub TelQuel()
Dim Li As Byte
Windows("CopieImageetHauteur de ligne.xls").Sheets("Feuil1").Range("B3:H32").Copy Windows("Classeur1.xls").Sheets("Feuil2").Range("B3")
For Li = 3 To 32
Windows("Classeur1.xls").Sheets("Feuil2").Cells(Li, 1).RowHeight = Windows("CopieImageetHauteur de ligne.xls").Sheets("Feuil1").Cells(Li, 1).RowHeight
Next
End Sub
et la cela ne marche plus
ci joint le fichier

 

[soenda]

Re : recopie d'image

merci beaucoup effectivement cela marche
j'essaye de l'adapter a mon prog mais j'ai un probleme car il faut que je l'exporte vers un autre classeur.
Sub TelQuel()
Dim Li As Byte
Windows("CopieImageetHauteur de ligne.xls").Sheets("Feuil1").Range("B3:H32").Copy Windows("Classeur1.xls").Sheets("Feuil2").Range("B3")
For Li = 3 To 32
Windows("Classeur1.xls").Sheets("Feuil2").Cells(Li, 1).RowHeight = Windows("CopieImageetHauteur de ligne.xls").Sheets("Feuil1").Cells(Li, 1).RowHeight
Next
End Sub
et la cela ne marche plus
ci joint le fichier

Bonjour gh4

Je te propose une solution un peu ''Bourrin'', mais qui semble fonctionnée

Sub Macro()

    Range("A3:H32").Copy
    
    Windows("Trois.xlsx").Activate
    
    Rows("3:32").RowHeight = 12.75
    Rows("19").RowHeight = 36
    Rows("27").RowHeight = 42.75
    
    Range("A3").Select
    
    Selection.PasteSpecial Paste:=xlPasteColumnWidths
    ActiveSheet.Paste
    
End Sub

 

[Lii]

Re : recopie d'image

Re,

copie (créer une feuille, dupliquer, supprimer et renommer) dans un classeur déjà ouvert.

Sub TelQuel()
  Rem le classeur1 est ouvert et contient un onglet "Feuil1"
  
  Sheets("Feuil1").Copy Workbooks("Classeur1.xls").Sheets("Feuil1")
  Application.DisplayAlerts = False
  Sheets("Feuil1").Delete
  Sheets("Feuil1 (2)").Name = "Feuil1"
  Windows("Copie.xls").Activate
  Application.DisplayAlerts = True
End Sub