OVH Cloud OVH Cloud

format de feuille 1 à feuille 2

3 réponses
Avatar
JEAN
Bonjour,

J'ai cette commande qui me permet de coller la feuille 1 à la feuille 2

Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
SkipBlanks:=False _
, Transpose:=False

je voudrai coller la meme taille des cellules et des lignes que je trouve en
feuille 1 en feuille 2

est ce possible?

merci

3 réponses

Avatar
michdenis
Bonjour Jean,

Si par taille des cellules, tu entends reproduire la hauteur et la largeur des cellules, Il n'y a aucun copier-coller de
quelque procédure que ce doit qui fait ce travail automatiquement.

Il faut alors développé une macro spéciale qui fait de travail ...Il me semble que Frédéric Sigonneau a publié sur ce
forum une procédure ...mais j'aime aussi bien te le dire toute suite... ce n'est pas le type de travail pour un débutant
... et ce n'est pas nécessaire facile à comprendre !!!


Salutations!



"JEAN" a écrit dans le message de news:

Bonjour,

J'ai cette commande qui me permet de coller la feuille 1 à la feuille 2

Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
SkipBlanks:úlse _
, Transpose:úlse

je voudrai coller la meme taille des cellules et des lignes que je trouve en
feuille 1 en feuille 2

est ce possible?

merci
Avatar
JEAN
neamoins est ce que je peux: sur la feuille 1, j'ai la cellule I3 qui assez
large, est ce que cette cellule peut etre aussi assez large dans feuil2 quand
je fait ma copie

merci

"michdenis" wrote:

Bonjour Jean,

Si par taille des cellules, tu entends reproduire la hauteur et la largeur des cellules, Il n'y a aucun copier-coller de
quelque procédure que ce doit qui fait ce travail automatiquement.

Il faut alors développé une macro spéciale qui fait de travail ...Il me semble que Frédéric Sigonneau a publié sur ce
forum une procédure ...mais j'aime aussi bien te le dire toute suite... ce n'est pas le type de travail pour un débutant
.... et ce n'est pas nécessaire facile à comprendre !!!


Salutations!



"JEAN" a écrit dans le message de news:

Bonjour,

J'ai cette commande qui me permet de coller la feuille 1 à la feuille 2

Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
SkipBlanks:úlse _
, Transpose:úlse

je voudrai coller la meme taille des cellules et des lignes que je trouve en
feuille 1 en feuille 2

est ce possible?

merci





Avatar
michdenis
Bonsoir Jean,

Je t'ai fait un exemple simple comment on peut arriver à copier une cellule de la feuille 1 vers une cellule de la
feuille 2 avec tout le format de la cellule et la valeur de la cellule de la feuille1, comprenant la hauteur et la
largeur de la cellule.

Ça se complique légèrement lorsqu'il s'agit d'une plage de cellule plutôt qu'une cellule !

Il est impossible de faire la même chose en utilisant ce type de code :
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone ....


'--------------------------
Sub CopierUneCellule()

Dim Hauteur As Double
Dim Largeur As Double

With Worksheets("Feuil1")
With .Range("A1")
'Place dans une variable la
'hauteur et la largeur de la
'cellule source
Hauteur = .RowHeight
Largeur = .ColumnWidth
'copie la valeur de la cellule source
'vers la cellule de destination
.Copy Worksheets("Feuil2").Range("C1")
End With
End With

'Avec la cellule de destination
With Worksheets("Feuil2").Range("C1")
'affecte la cellule de destination la
'propriété RowHeight et ColumnWidth
'de la valeur de la cellule source.
.RowHeight = Hauteur
.ColumnWidth = Largeur
End With

End Sub
'--------------------------


Salutations!


"JEAN" a écrit dans le message de news:

neamoins est ce que je peux: sur la feuille 1, j'ai la cellule I3 qui assez
large, est ce que cette cellule peut etre aussi assez large dans feuil2 quand
je fait ma copie

merci

"michdenis" wrote:

Bonjour Jean,

Si par taille des cellules, tu entends reproduire la hauteur et la largeur des cellules, Il n'y a aucun copier-coller
de
quelque procédure que ce doit qui fait ce travail automatiquement.

Il faut alors développé une macro spéciale qui fait de travail ...Il me semble que Frédéric Sigonneau a publié sur ce
forum une procédure ...mais j'aime aussi bien te le dire toute suite... ce n'est pas le type de travail pour un
débutant
.... et ce n'est pas nécessaire facile à comprendre !!!


Salutations!



"JEAN" a écrit dans le message de news:

Bonjour,

J'ai cette commande qui me permet de coller la feuille 1 à la feuille 2

Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
SkipBlanks:úlse _
, Transpose:úlse

je voudrai coller la meme taille des cellules et des lignes que je trouve en
feuille 1 en feuille 2

est ce possible?

merci