OVH Cloud OVH Cloud

copie de cellule

3 réponses
Avatar
direct83
Bonjour,
comment copier ces deux lignes de la feuil1 :
A B C
Titi Riri Toto
Tata Rara Rere
.... .... ....
Dans les colonnes de la feuil2 :
=20
A1 Titi
B1 Riri
C1 Toto

F1 Tata
G1 Rara
H1 Rere
Merci de la r=E9ponse

3 réponses

Avatar
si j'en crois ta demande , les lignes cellules A1, B1 et
C1 de la fueille 2 sont identiques à celles de la feuille
1. Par contre les cellules A2, B2 et C2 de la feuille 1
doivent se retrouver dans les cellules F1, G1 et H1 de la
feuille 2.
En considérant que mes hypothèses précédentes sont
justes, voici un code ( parmi tant d'autres )à mettre
dans une macro. tu peux cependant faire tout ce que tu
demandes en utilisant simplement les formules d'excel
liant une cellule à une autre.

Code :


Set selection1 = ThisWorkbook.Sheets("Feuil1").Range
("A1:C1")
selection1.Copy
ThisWorkbook.Sheets("Feuil2").Activate
Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False

Set selection1 = ThisWorkbook.Sheets("Feuil1").Range
("A2:C2")
selection1.Copy
ThisWorkbook.Sheets("Feuil2").Activate
Range("F1").Select
ActiveSheet.Paste
Application.CutCopyMode = False

Notes bien que c'est loin d'être d'une part la seule
solution et d'autre part la plus élégante. Par ailleurs,
je t'ai volontairement mis des instructions qui font
référence à des mots-clés ou des déclarations d'Excel
(p.e : set, thisworkbook, cutcopymode, range..) pour te
permettre de découvrir un peu plus le langage d'Excel


-----Message d'origine-----
Bonjour,
comment copier ces deux lignes de la feuil1 :
A B C
Titi Riri Toto
Tata Rara Rere
..... .... ....
Dans les colonnes de la feuil2 :

A1 Titi
B1 Riri
C1 Toto

F1 Tata
G1 Rara
H1 Rere
Merci de la réponse
.



Avatar
direct83
Merci de la réponse,

En fait il s'agit de copier une ligne dans une colonne et
ainsi de suite. Quand je le réalise à partir d'une macro
entregistrée, ca ne marche pas, il ne comprend pas le
Range. Merci de la réponse
-----Message d'origine-----
si j'en crois ta demande , les lignes cellules A1, B1 et
C1 de la fueille 2 sont identiques à celles de la
feuille

1. Par contre les cellules A2, B2 et C2 de la feuille 1
doivent se retrouver dans les cellules F1, G1 et H1 de
la

feuille 2.
En considérant que mes hypothèses précédentes sont
justes, voici un code ( parmi tant d'autres )à mettre
dans une macro. tu peux cependant faire tout ce que tu
demandes en utilisant simplement les formules d'excel
liant une cellule à une autre.

Code :


Set selection1 = ThisWorkbook.Sheets("Feuil1").Range
("A1:C1")
selection1.Copy
ThisWorkbook.Sheets("Feuil2").Activate
Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False

Set selection1 = ThisWorkbook.Sheets("Feuil1").Range
("A2:C2")
selection1.Copy
ThisWorkbook.Sheets("Feuil2").Activate
Range("F1").Select
ActiveSheet.Paste
Application.CutCopyMode = False

Notes bien que c'est loin d'être d'une part la seule
solution et d'autre part la plus élégante. Par ailleurs,
je t'ai volontairement mis des instructions qui font
référence à des mots-clés ou des déclarations d'Excel
(p.e : set, thisworkbook, cutcopymode, range..) pour te
permettre de découvrir un peu plus le langage d'Excel


-----Message d'origine-----
Bonjour,
comment copier ces deux lignes de la feuil1 :
A B C
Titi Riri Toto
Tata Rara Rere
..... .... ....
Dans les colonnes de la feuil2 :

A1 Titi
B1 Riri
C1 Toto

F1 Tata
G1 Rara
H1 Rere
Merci de la réponse
.

.





Avatar
Uilises le copier collage spécial avec l'instruction
transpose=true.

par exemple, le code suivant permet de copiér les
cellules de B3 à B10 dans
la ligne de E3 à E10 en faisant une transposition
(transpose:=true).
J'espère avoir répondu à ta question. J'insiste cependant
sur le fait que ce que tu demandes peut être réalisé
facilement avec des formules d'Excel sans passer par des
macros , à moins que tu aies une demande plus complexe
que je ne peux imaginer.

Range("B3:B10").Select
Selection.Copy
Range("E3").Select
Selection.PasteSpecial Paste:=xlAll, Transpose:=True


-----Message d'origine-----
Merci de la réponse,

En fait il s'agit de copier une ligne dans une colonne
et

ainsi de suite. Quand je le réalise à partir d'une macro
entregistrée, ca ne marche pas, il ne comprend pas le
Range. Merci de la réponse
-----Message d'origine-----
si j'en crois ta demande , les lignes cellules A1, B1
et


C1 de la fueille 2 sont identiques à celles de la
feuille

1. Par contre les cellules A2, B2 et C2 de la feuille 1
doivent se retrouver dans les cellules F1, G1 et H1 de
la

feuille 2.
En considérant que mes hypothèses précédentes sont
justes, voici un code ( parmi tant d'autres )à mettre
dans une macro. tu peux cependant faire tout ce que tu
demandes en utilisant simplement les formules d'excel
liant une cellule à une autre.

Code :


Set selection1 = ThisWorkbook.Sheets("Feuil1").Range
("A1:C1")
selection1.Copy
ThisWorkbook.Sheets("Feuil2").Activate
Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False

Set selection1 = ThisWorkbook.Sheets("Feuil1").Range
("A2:C2")
selection1.Copy
ThisWorkbook.Sheets("Feuil2").Activate
Range("F1").Select
ActiveSheet.Paste
Application.CutCopyMode = False

Notes bien que c'est loin d'être d'une part la seule
solution et d'autre part la plus élégante. Par
ailleurs,


je t'ai volontairement mis des instructions qui font
référence à des mots-clés ou des déclarations d'Excel
(p.e : set, thisworkbook, cutcopymode, range..) pour te
permettre de découvrir un peu plus le langage d'Excel


-----Message d'origine-----
Bonjour,
comment copier ces deux lignes de la feuil1 :
A B C
Titi Riri Toto
Tata Rara Rere
..... .... ....
Dans les colonnes de la feuil2 :

A1 Titi
B1 Riri
C1 Toto

F1 Tata
G1 Rara
H1 Rere
Merci de la réponse
.

.


.