Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Copie des cellules avec ses formats d'origine

6 réponses
Avatar
EmanuelL
Bonjour à Tous,

Comment faire la copie des cellules tout en gardant ses formats
(surtout : hauteur des lignes, largeur des colonnes, etc).

La fonctionne utililisée est : (Copie des cellules d'une feuille à une
autres)

lsFichierSrc.Worksheets(lsOngletSrc).Range("A1:F18").Copy _

Destination:=lsFichierCbl.Worksheets(lsOngletCbl).Range("A1:F18")

Merci d'avance. ;-)

--

*!* -----------------------------------
EmanuelL
Membre d'AtoutFox
www.atoutfox.org

6 réponses

Avatar
lSteph
Bonjour,

Sans macro:
Sélectionner toutes les cellules de la feuille lignes+colonnes par le
bouton de sélection situé à l'intersection supérieure Gauche du A e t
du1

ICI | A |B
--------------------
1
-
2

puis dans l'autre feuille en A1 Coller.

Cordialement.

--
lSteph

On 12 nov, 15:12, EmanuelL wrote:
Bonjour à Tous,

Comment faire la copie des cellules tout en gardant ses formats
(surtout : hauteur des lignes, largeur des colonnes, etc).

La fonctionne utililisée est : (Copie des cellules d'une feuille à un e
autres)

lsFichierSrc.Worksheets(lsOngletSrc).Range("A1:F18").Copy _

Destination:=lsFichierCbl.Worksheets(lsOngletCbl).Range("A1:F18")

Merci d'avance. ;-)

--

*!* -----------------------------------
EmanuelL
Membre d'AtoutFoxwww.atoutfox.org


Avatar
EmanuelL
Merci de lSteph de votre réponse.
J'avais oublié de préciser par VBA.


lSteph a écrit :
Bonjour,

Sans macro:
Sélectionner toutes les cellules de la feuille lignes+colonnes par le
bouton de sélection situé à l'intersection supérieure Gauche du A et
du1

ICI | A |B
--------------------
1
-
2

puis dans l'autre feuille en A1 Coller.

Cordialement.

--
lSteph

On 12 nov, 15:12, EmanuelL wrote:
Bonjour à Tous,

Comment faire la copie des cellules tout en gardant ses formats
(surtout : hauteur des lignes, largeur des colonnes, etc).

La fonctionne utililisée est : (Copie des cellules d'une feuille à une
autres)

lsFichierSrc.Worksheets(lsOngletSrc).Range("A1:F18").Copy _

Destination:=lsFichierCbl.Worksheets(lsOngletCbl).Range("A1:F18")

Merci d'avance. ;-)

--

*!* -----------------------------------
EmanuelL
Membre d'AtoutFoxwww.atoutfox.org





--

*!* -----------------------------------
EmanuelL
Membre d'AtoutFox
www.atoutfox.org
Avatar
lSteph
C''est exactement pareil, exemple:

ActiveSheet.Cells.Copy
With Sheets("Feuil3")
.Activate
.[a1].PasteSpecial Paste:=xlFormats
End With



On 12 nov, 17:20, EmanuelL wrote:
Merci de lSteph de votre réponse.
J'avais oublié de préciser par VBA.

lSteph a écrit :



> Bonjour,

> Sans macro:
> Sélectionner toutes les cellules de la feuille lignes+colonnes par le
> bouton de sélection situé à l'intersection supérieure Gauche du A et
> du1

> ICI   | A   |B
> --------------------
> 1
> -
> 2

> puis dans l'autre feuille en A1 Coller.

> Cordialement.

> --
> lSteph

> On 12 nov, 15:12, EmanuelL wrote:
>> Bonjour à Tous,

>> Comment faire la copie des cellules tout en gardant ses formats
>> (surtout : hauteur des lignes, largeur des colonnes, etc).

>> La fonctionne utililisée est : (Copie des cellules d'une feuille à une
>> autres)

>> lsFichierSrc.Worksheets(lsOngletSrc).Range("A1:F18").Copy _

>> Destination:=lsFichierCbl.Worksheets(lsOngletCbl).Range("A1:F18")

>> Merci d'avance. ;-)

>> --

>> *!* -----------------------------------
>> EmanuelL
>> Membre d'AtoutFoxwww.atoutfox.org

--

*!* -----------------------------------
EmanuelL
Membre d'AtoutFoxwww.atoutfox.org


Avatar
lSteph
...si on veut formats et valeurs ainsi:

Sub Macro1()

ActiveSheet.Cells.Copy
With Sheets("Feuil3")
.Activate
.[a1].PasteSpecial Paste:=xlFormats
.[a1].PasteSpecial Paste:=xlValues
End With
End Sub

'lSteph

On 12 nov, 17:20, EmanuelL wrote:
Merci de lSteph de votre réponse.
J'avais oublié de préciser par VBA.

lSteph a écrit :



> Bonjour,

> Sans macro:
> Sélectionner toutes les cellules de la feuille lignes+colonnes par le
> bouton de sélection situé à l'intersection supérieure Gauche du A et
> du1

> ICI   | A   |B
> --------------------
> 1
> -
> 2

> puis dans l'autre feuille en A1 Coller.

> Cordialement.

> --
> lSteph

> On 12 nov, 15:12, EmanuelL wrote:
>> Bonjour à Tous,

>> Comment faire la copie des cellules tout en gardant ses formats
>> (surtout : hauteur des lignes, largeur des colonnes, etc).

>> La fonctionne utililisée est : (Copie des cellules d'une feuille à une
>> autres)

>> lsFichierSrc.Worksheets(lsOngletSrc).Range("A1:F18").Copy _

>> Destination:=lsFichierCbl.Worksheets(lsOngletCbl).Range("A1:F18")

>> Merci d'avance. ;-)

>> --

>> *!* -----------------------------------
>> EmanuelL
>> Membre d'AtoutFoxwww.atoutfox.org

--

*!* -----------------------------------
EmanuelL
Membre d'AtoutFoxwww.atoutfox.org


Avatar
lSteph
..et si on veut tout on colle simplement ou pour rester dans le
spécial

Sub Macro1()

ActiveSheet.Cells.Copy
With Sheets("Feuil2")
.Activate
.[a1].PasteSpecial Paste:=xlPasteAll

End With
End Sub

On 12 nov, 17:20, EmanuelL wrote:
Merci de lSteph de votre réponse.
J'avais oublié de préciser par VBA.

lSteph a écrit :



> Bonjour,

> Sans macro:
> Sélectionner toutes les cellules de la feuille lignes+colonnes par le
> bouton de sélection situé à l'intersection supérieure Gauche du A et
> du1

> ICI   | A   |B
> --------------------
> 1
> -
> 2

> puis dans l'autre feuille en A1 Coller.

> Cordialement.

> --
> lSteph

> On 12 nov, 15:12, EmanuelL wrote:
>> Bonjour à Tous,

>> Comment faire la copie des cellules tout en gardant ses formats
>> (surtout : hauteur des lignes, largeur des colonnes, etc).

>> La fonctionne utililisée est : (Copie des cellules d'une feuille à une
>> autres)

>> lsFichierSrc.Worksheets(lsOngletSrc).Range("A1:F18").Copy _

>> Destination:=lsFichierCbl.Worksheets(lsOngletCbl).Range("A1:F18")

>> Merci d'avance. ;-)

>> --

>> *!* -----------------------------------
>> EmanuelL
>> Membre d'AtoutFoxwww.atoutfox.org

--

*!* -----------------------------------
EmanuelL
Membre d'AtoutFoxwww.atoutfox.org


Avatar
EmanuelL
Merci encore, je testerai.

A+

lSteph a présenté l'énoncé suivant :
..et si on veut tout on colle simplement ou pour rester dans le
spécial

Sub Macro1()

ActiveSheet.Cells.Copy
With Sheets("Feuil2")
.Activate
.[a1].PasteSpecial Paste:=xlPasteAll

End With
End Sub

On 12 nov, 17:20, EmanuelL wrote:
Merci de lSteph de votre réponse.
J'avais oublié de préciser par VBA.

lSteph a écrit :



Bonjour,



Sans macro:
Sélectionner toutes les cellules de la feuille lignes+colonnes par le
bouton de sélection situé à l'intersection supérieure Gauche du A et
du1



ICI   | A   |B
--------------------
1
-
2



puis dans l'autre feuille en A1 Coller.
Cordialement.



--
lSteph



On 12 nov, 15:12, EmanuelL wrote:
Bonjour à Tous,





Comment faire la copie des cellules tout en gardant ses formats
(surtout : hauteur des lignes, largeur des colonnes, etc).
La fonctionne utililisée est : (Copie des cellules d'une feuille à une
autres)





lsFichierSrc.Worksheets(lsOngletSrc).Range("A1:F18").Copy _
Destination:=lsFichierCbl.Worksheets(lsOngletCbl).Range("A1:F18")
Merci d'avance. ;-)





--





*!* -----------------------------------
EmanuelL
Membre d'AtoutFoxwww.atoutfox.org





--

*!* -----------------------------------
EmanuelL
Membre d'AtoutFoxwww.atoutfox.org





--

*!* -----------------------------------
EmanuelL
Membre d'AtoutFox
www.atoutfox.org