Rocopier des cellules a la meme taille

Mytå

XLDnaute Occasionnel

• 9 Juillet 2009

• #2

Re : Rocopier des cellules a la meme taille

Salut le forum

Regarde avec copier-collage spéciale valeur

Mytå

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 9 Juillet 2009

• #3

Re : Rocopier des cellules a la meme taille

Bonjour Patrol, Myta

une autre option du collage spécial (sous 2003), la copie des largeurs de colonnes, par contre pas possible pour la hauteur de ligne, peut être 2007...

bonne journée
@+

 

Vote positif 0 Vote négatif

patrol

XLDnaute Occasionnel

• 9 Juillet 2009

• #4

Re : Rocopier des cellules a la meme taille

Merci les amis

voila avec vos astuces une parti du Pb et résolu , avec collage spécial, largeur de colonnes

mais pour la hauteur ça ne marche pas

faut t'il passer par une macro , ou existe t'il un manippe a faire dans 2003

merci

patrol

 

Vote positif 0 Vote négatif

T

tdenfert

XLDnaute Impliqué

• 9 Juillet 2009

• #5

Re : Rocopier des cellules a la meme taille

Bonjour,
Pas sur que cela puisse t'aider, mais si tu copie toute la feuille tu recuperes les même taille lignes colonnes.

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 9 Juillet 2009

• #6

Re : Rocopier des cellules a la meme taille

Re, bonjour tdenfert

par vba cela pourrait donner ceci :

Code:

Sheets("Feuil1").Range("A1").Copy
With Sheets("Feuil2").Range("A1")
    .PasteSpecial xlPasteAll
    .PasteSpecial xlPasteColumnWidths
    .RowHeight = Sheets("Feuil1").Range("A1").RowHeight
End With

copie la cellulue A1 de la feuil1 vers la cellule A1 de la feuil2, à adapter à ton cas.

bonne journée
@+

 

Vote positif 0 Vote négatif

patrol

XLDnaute Occasionnel

• 9 Juillet 2009

• #7

Re : Rocopier des cellules a la meme taille

Merci pierrot93 ça marche pour la cellule AI

mais si je veut selectionner toutes les cel de A1 à E7
pourrait tu me la réecrire SVP
merci

patrol

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 9 Juillet 2009

• #8

Re : Rocopier des cellules a la meme taille

Re,

peut être ainsi :

Code:

Option Explicit
Sub test()
Dim c As Range
Sheets("Feuil1").Range("A1:E7").Copy
With Sheets("Feuil2").Range("A1:E7")
    .PasteSpecial xlPasteAll
    .PasteSpecial xlPasteColumnWidths
End With
For Each c In Range("A1:A7")
     Sheets("Feuil2").Range(c.Address).RowHeight = c.RowHeight
Next c
End Sub

@+

 

Vote positif 0 Vote négatif

patrol

XLDnaute Occasionnel

• 9 Juillet 2009

• #9

Re : Rocopier des cellules a la meme taille

Merci pierrot

c'est le top ça marche nickel ouf

ça va me faire gagner un temps considérable

mais encore un petit HIC

j'ai ecrit ça suite a ta vba mais j'ai une erreur au niveau des feuilles

Sub test()
Dim c As Range
Sheets("Feuil1").Range("A1:E7").Copy
With Sheets("Feuil2:Feuil4
").Range("A1:E7")
.PasteSpecial xlPasteAll
.PasteSpecial xlPasteColumnWidths
End With
For Each c In Range("A1:A7")
Sheets("Feuil2").Range(c.Address).RowHeight = c.RowHeight
Next c
End Sub

voit tu ou est l'erreur

merci encore

@+

patrol

 

Dernière édition: 9 Juillet 2009

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 9 Juillet 2009

• #10

Re : Rocopier des cellules a la meme taille

Re,

pour collage sur plusieurs feuilles, tu ne peux pas modifier comme cela, essaye plutôt ainsi :

Code:

Option Explicit
Sub test()
Dim f() As Variant, c As Range, i As Byte
Sheets("Feuil1").Range("A1:E7").Copy
f = Array("Feuil2", "Feuil4")
For i = 0 To 1
    With Sheets(f(i)).Range("A1:E7")
        .PasteSpecial xlPasteAll
        .PasteSpecial xlPasteColumnWidths
        For Each c In Sheets("Feuil1").Range("A1:A7")
            .Range(c.Address).RowHeight = c.RowHeight
        Next c
    End With
Next i
End Sub

@+

 

Vote positif 0 Vote négatif

patrol

XLDnaute Occasionnel

• 9 Juillet 2009

• #11

Re : Rocopier des cellules a la meme taille

Merci , pierre ça marche trés bien pour la page 2et 4

mais je me suis mal expliqué par manque de connaissance
j'arrive a modifier
Sheets("Feuil1").Range("A1:E7").Copy
par ex : Sheets("Feuil1").Range("A1:F12").Copy

mais j'arrive pas a rajouter le nombre de feuille souhaité ?
Ex a partir de la feuille 1 pouvoir selectionner la plage de feuille dont je doit faire la copie
ex: la plage de la feuil1 à la feuil 12 par exemple

f = Array("Feuil2", "Feuil4")

merci

patrol

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 9 Juillet 2009

• #12

Re : Rocopier des cellules a la meme taille

Re,

faut modifier l'initialisation du tableau d'autant !!!!

Code:

f = Array("Feuil2", "Feuil3", "Feuil4", "Feuil5", "Feuil6", "Feuil7", "Feuil8")

bonne soirée
@+

 

Vote positif 0 Vote négatif

patrol

XLDnaute Occasionnel

• 9 Juillet 2009

• #13

Re : Rocopier des cellules a la meme taille

re bonjour pierre
désolé de t'importune de nouveau mais

j'ai tapper ça pour f= array........
mais ça ne fonctionne pas

Option Explicit
Sub test()
Dim f() As Variant, c As Range, i As Byte
Sheets("Feuil1").Range("A1:f7").Copy
f = Array("Feuil2", "Feuil3", "Feuil4", "Feuil5", "Feuil6", "Feuil7", "Feuil8")
For i = 0 To 1
With Sheets(f(i)).Range("A1:E7")
.PasteSpecial xlPasteAll
.PasteSpecial xlPasteColumnWidths
For Each c In Sheets("Feuil1").Range("A1:A7")
.Range(c.Address).RowHeight = c.RowHeight
Next c
End With
Next i
End Sub

merci

@+
patrol

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 9 Juillet 2009

• #14

Re : Rocopier des cellules a la meme taille

Re,

quand tu dis cela ne fonctionne pas ? pas le résultat attendu ou message d'erreur ?

@+

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 9 Juillet 2009

• #15

Re : Rocopier des cellules a la meme taille

Re,

il faut aussi modifer le nombre en gras :

Code:

Sub test()
Dim f() As Variant, c As Range, i As Byte
Sheets("Feuil1").Range("A1:E7").Copy
f = Array("Feuil2", "Feuil3", "Feuil4", "Feuil5", "Feuil6", "Feuil7", "Feuil8")
For i = 0 To [B][COLOR="Red"]7[/COLOR][/B] [B][COLOR="Green"]'nombre de feuilles - 1[/COLOR][/B]
    With Sheets(f(i)).Range("A1:E7")
        .PasteSpecial xlPasteAll
        .PasteSpecial xlPasteColumnWidths
        For Each c In Sheets("Feuil1").Range("A1:A7")
            .Range(c.Address).RowHeight = c.RowHeight
        Next c
    End With
Next i
End Sub

@+

 

Vote positif 0 Vote négatif