Rocopier des cellules a la meme taille

[patrol]

salut a tous

voila je voudrais savoir si sur excel il y a un moyen
de reccopier des cellules plusieurs fois

a la meme taille

car quand je fait un copier collé d cellules que j'ai agrandi

sur l'autre feuilles en collant il ne sont pas a la bonnes taille

merci a tous

patrol

 

[Mytå]

Re : Rocopier des cellules a la meme taille

Salut le forum

Regarde avec copier-collage spéciale valeur

Mytå

 

[Pierrot93]

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
@+

 

[patrol]

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

 

[tdenfert]

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.

 

[Pierrot93]

Re : Rocopier des cellules a la meme taille

Re, bonjour tdenfert

par vba cela pourrait donner ceci :

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
@+

 

[patrol]

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

 

[Pierrot93]

Re : Rocopier des cellules a la meme taille

Re,

peut être ainsi :

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

@+

 

[patrol]

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

 

[Pierrot93]

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 :

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

@+

 

[patrol]

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

 

[Pierrot93]

Re : Rocopier des cellules a la meme taille

Re,

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

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

bonne soirée
@+

 

[patrol]

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

 

[Pierrot93]

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 ?

@+

 

[Pierrot93]

Re : Rocopier des cellules a la meme taille

Re,

il faut aussi modifer le nombre en gras :

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

@+