recopie d'image

gh4

XLDnaute Occasionnel

• 29 Septembre 2008

• #2

Re : recopie d'image

oubli du fichier

 

Pièces jointes

• test copie.xls

  27.5 KB · Affichages: 70
• test copie.xls

  27.5 KB · Affichages: 76
• test copie.xls

  27.5 KB · Affichages: 74

Vote positif 0 Vote négatif

gh4

XLDnaute Occasionnel

• 4 Octobre 2008

• #3

Re : recopie d'image

Bonsoir
toujours à la recherche d'une solution

SVP

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 4 Octobre 2008

• #4

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

 

Vote positif 0 Vote négatif

gh4

XLDnaute Occasionnel

• 5 Octobre 2008

• #5

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

 

Pièces jointes

• test copie.zip

  31.6 KB · Affichages: 29
• test copie.zip

  31.6 KB · Affichages: 28
• test copie.zip

  31.6 KB · Affichages: 25

Vote positif 0 Vote négatif

alfazoulou

XLDnaute Occasionnel

• 5 Octobre 2008

• #6

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

 

Vote positif 0 Vote négatif

gh4

XLDnaute Occasionnel

• 5 Octobre 2008

• #7

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

 

Pièces jointes

• test copie.zip

  31.4 KB · Affichages: 26
• test copie.zip

  31.4 KB · Affichages: 27
• test copie.zip

  31.4 KB · Affichages: 25

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 5 Octobre 2008

• #8

Re : recopie d'image

Bonjour,
Essaie

Code:

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

A+
kjin

 

Vote positif 0 Vote négatif

gh4

XLDnaute Occasionnel

• 5 Octobre 2008

• #9

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

 

Vote positif 0 Vote négatif

L

Lii

XLDnaute Impliqué

• 5 Octobre 2008

• #10

Re : recopie d'image

Bonjour tous,

à tester.

Code:

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

 

Pièces jointes

• CopieImageetHauteur de ligne.zip

  27.8 KB · Affichages: 34

Vote positif 0 Vote négatif

gh4

XLDnaute Occasionnel

• 5 Octobre 2008

• #11

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

 

Pièces jointes

• CopieImageetHauteur de ligne2.xls

  48.5 KB · Affichages: 49

Vote positif 0 Vote négatif

soenda

XLDnaute Accro

• 5 Octobre 2008

• #12

Re : recopie d'image

gh4 à dit:

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

Cliquez pour agrandir...

Bonjour gh4

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

Code:

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

 

Vote positif 0 Vote négatif

L

Lii

XLDnaute Impliqué

• 5 Octobre 2008

• #13

Re : recopie d'image

Re,

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

Code:

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

 

Pièces jointes

• Copie.zip

  28.3 KB · Affichages: 32
• Copie.zip

  28.3 KB · Affichages: 30
• Copie.zip

  28.3 KB · Affichages: 26

Vote positif 0 Vote négatif