Bonsoir à tous
Mon problème!!!!
Je dois selectionner A4:A15 ( des noms) et G4:G15 (des chiffres qui
correspondent à la colonne A.
Ensuite je dois copier la sélection sur une feuille(BD), en A4 : L4 par
exemple le 01/01/2007et la deuxieme fois en A5:L5 le 02/01/2007et A6:L6 le
03/01/2007 etc...
C'est à dire que la copie se décale tous les jours.
J'espère avoir été assez clair.
Merci d'avance
Jean Berti
Bonsoir à tous
Mon problème!!!!
Je dois selectionner A4:A15 ( des noms) et G4:G15 (des chiffres qui
correspondent à la colonne A.
Ensuite je dois copier la sélection sur une feuille(BD), en A4 : L4 par
exemple le 01/01/2007et la deuxieme fois en A5:L5 le 02/01/2007et A6:L6 le
03/01/2007 etc...
C'est à dire que la copie se décale tous les jours.
J'espère avoir été assez clair.
Merci d'avance
Jean Berti
Bonsoir à tous
Mon problème!!!!
Je dois selectionner A4:A15 ( des noms) et G4:G15 (des chiffres qui
correspondent à la colonne A.
Ensuite je dois copier la sélection sur une feuille(BD), en A4 : L4 par
exemple le 01/01/2007et la deuxieme fois en A5:L5 le 02/01/2007et A6:L6 le
03/01/2007 etc...
C'est à dire que la copie se décale tous les jours.
J'espère avoir été assez clair.
Merci d'avance
Jean Berti
Re
Petite erreur
Il sagit de prendre en consideration quela colonne G
car dans la feuille BD , j'ai déja les noms en A1:L15
Mille excuses
Jean Berti
"Jean Berti" a écrit dans le message de news:
OE3lmO$Bonsoir à tous
Mon problème!!!!
Je dois selectionner A4:A15 ( des noms) et G4:G15 (des chiffres qui
correspondent à la colonne A.
Ensuite je dois copier la sélection sur une feuille(BD), en A4 : L4 par
exemple le 01/01/2007et la deuxieme fois en A5:L5 le 02/01/2007et A6:L6 le
03/01/2007 etc...
C'est à dire que la copie se décale tous les jours.
J'espère avoir été assez clair.
Merci d'avance
Jean Berti
Re
Petite erreur
Il sagit de prendre en consideration quela colonne G
car dans la feuille BD , j'ai déja les noms en A1:L15
Mille excuses
Jean Berti
"Jean Berti" <jean.berti@free.fr> a écrit dans le message de news:
OE3lmO$kHHA.4936@TK2MSFTNGP03.phx.gbl...
Bonsoir à tous
Mon problème!!!!
Je dois selectionner A4:A15 ( des noms) et G4:G15 (des chiffres qui
correspondent à la colonne A.
Ensuite je dois copier la sélection sur une feuille(BD), en A4 : L4 par
exemple le 01/01/2007et la deuxieme fois en A5:L5 le 02/01/2007et A6:L6 le
03/01/2007 etc...
C'est à dire que la copie se décale tous les jours.
J'espère avoir été assez clair.
Merci d'avance
Jean Berti
Re
Petite erreur
Il sagit de prendre en consideration quela colonne G
car dans la feuille BD , j'ai déja les noms en A1:L15
Mille excuses
Jean Berti
"Jean Berti" a écrit dans le message de news:
OE3lmO$Bonsoir à tous
Mon problème!!!!
Je dois selectionner A4:A15 ( des noms) et G4:G15 (des chiffres qui
correspondent à la colonne A.
Ensuite je dois copier la sélection sur une feuille(BD), en A4 : L4 par
exemple le 01/01/2007et la deuxieme fois en A5:L5 le 02/01/2007et A6:L6 le
03/01/2007 etc...
C'est à dire que la copie se décale tous les jours.
J'espère avoir été assez clair.
Merci d'avance
Jean Berti
Salut Berti
Si tu dois réaliser l'opération manuellement :
Sélection de la source G4:G15
Edition/Copier
séection de la feuille de destination
Sélection de la cellule A4
Edition/Collage spécial/Transposé
Par macro :
Sheets("Source").Select
Range("G4", "G15").Copy
Sheets("Destination").Select
Range("A65535").End(xlUp).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=
_
Espérant t'avoir aidé !!!Re
Petite erreur
Il sagit de prendre en consideration quela colonne G
car dans la feuille BD , j'ai déja les noms en A1:L15
Mille excuses
Jean Berti
"Jean Berti" a écrit dans le message de news:
OE3lmO$Bonsoir à tous
Mon problème!!!!
Je dois selectionner A4:A15 ( des noms) et G4:G15 (des chiffres qui
correspondent à la colonne A.
Ensuite je dois copier la sélection sur une feuille(BD), en A4 : L4 par
exemple le 01/01/2007et la deuxieme fois en A5:L5 le 02/01/2007et A6:L6
le
03/01/2007 etc...
C'est à dire que la copie se décale tous les jours.
J'espère avoir été assez clair.
Merci d'avance
Jean Berti
Salut Berti
Si tu dois réaliser l'opération manuellement :
Sélection de la source G4:G15
Edition/Copier
séection de la feuille de destination
Sélection de la cellule A4
Edition/Collage spécial/Transposé
Par macro :
Sheets("Source").Select
Range("G4", "G15").Copy
Sheets("Destination").Select
Range("A65535").End(xlUp).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=
_
Espérant t'avoir aidé !!!
Re
Petite erreur
Il sagit de prendre en consideration quela colonne G
car dans la feuille BD , j'ai déja les noms en A1:L15
Mille excuses
Jean Berti
"Jean Berti" <jean.berti@free.fr> a écrit dans le message de news:
OE3lmO$kHHA.4936@TK2MSFTNGP03.phx.gbl...
Bonsoir à tous
Mon problème!!!!
Je dois selectionner A4:A15 ( des noms) et G4:G15 (des chiffres qui
correspondent à la colonne A.
Ensuite je dois copier la sélection sur une feuille(BD), en A4 : L4 par
exemple le 01/01/2007et la deuxieme fois en A5:L5 le 02/01/2007et A6:L6
le
03/01/2007 etc...
C'est à dire que la copie se décale tous les jours.
J'espère avoir été assez clair.
Merci d'avance
Jean Berti
Salut Berti
Si tu dois réaliser l'opération manuellement :
Sélection de la source G4:G15
Edition/Copier
séection de la feuille de destination
Sélection de la cellule A4
Edition/Collage spécial/Transposé
Par macro :
Sheets("Source").Select
Range("G4", "G15").Copy
Sheets("Destination").Select
Range("A65535").End(xlUp).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=
_
Espérant t'avoir aidé !!!Re
Petite erreur
Il sagit de prendre en consideration quela colonne G
car dans la feuille BD , j'ai déja les noms en A1:L15
Mille excuses
Jean Berti
"Jean Berti" a écrit dans le message de news:
OE3lmO$Bonsoir à tous
Mon problème!!!!
Je dois selectionner A4:A15 ( des noms) et G4:G15 (des chiffres qui
correspondent à la colonne A.
Ensuite je dois copier la sélection sur une feuille(BD), en A4 : L4 par
exemple le 01/01/2007et la deuxieme fois en A5:L5 le 02/01/2007et A6:L6
le
03/01/2007 etc...
C'est à dire que la copie se décale tous les jours.
J'espère avoir été assez clair.
Merci d'avance
Jean Berti
Bonsoir,
Sans être sur d'avoir compris la demande, peut être voir avec la formule
.....=RECHERCHV(........)
histoire de ne pas passer à coté si tu ne là jamais utilisée.
voir dans l'aide des formules
Youky
Bonsoir,
Sans être sur d'avoir compris la demande, peut être voir avec la formule
.....=RECHERCHV(........)
histoire de ne pas passer à coté si tu ne là jamais utilisée.
voir dans l'aide des formules
Youky
Bonsoir,
Sans être sur d'avoir compris la demande, peut être voir avec la formule
.....=RECHERCHV(........)
histoire de ne pas passer à coté si tu ne là jamais utilisée.
voir dans l'aide des formules
Youky
Salut FFO
Je te remercie mais dans la macro, il me met erreur de syntaxe et
compilation. La ligne reste en rouge?
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True"
Jean
"FFO" a écrit dans le message de news:Salut Berti
Si tu dois réaliser l'opération manuellement :
Sélection de la source G4:G15
Edition/Copier
séection de la feuille de destination
Sélection de la cellule A4
Edition/Collage spécial/Transposé
Par macro :
Sheets("Source").Select
Range("G4", "G15").Copy
Sheets("Destination").Select
Range("A65535").End(xlUp).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=
_
Espérant t'avoir aidé !!!Re
Petite erreur
Il sagit de prendre en consideration quela colonne G
car dans la feuille BD , j'ai déja les noms en A1:L15
Mille excuses
Jean Berti
"Jean Berti" a écrit dans le message de news:
OE3lmO$Bonsoir à tous
Mon problème!!!!
Je dois selectionner A4:A15 ( des noms) et G4:G15 (des chiffres qui
correspondent à la colonne A.
Ensuite je dois copier la sélection sur une feuille(BD), en A4 : L4 par
exemple le 01/01/2007et la deuxieme fois en A5:L5 le 02/01/2007et A6:L6
le
03/01/2007 etc...
C'est à dire que la copie se décale tous les jours.
J'espère avoir été assez clair.
Merci d'avance
Jean Berti
Salut FFO
Je te remercie mais dans la macro, il me met erreur de syntaxe et
compilation. La ligne reste en rouge?
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True"
Jean
"FFO" <FFO@discussions.microsoft.com> a écrit dans le message de news:
5DD475D0-11CE-48D6-A2C2-C23A3942FFED@microsoft.com...
Salut Berti
Si tu dois réaliser l'opération manuellement :
Sélection de la source G4:G15
Edition/Copier
séection de la feuille de destination
Sélection de la cellule A4
Edition/Collage spécial/Transposé
Par macro :
Sheets("Source").Select
Range("G4", "G15").Copy
Sheets("Destination").Select
Range("A65535").End(xlUp).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=
_
Espérant t'avoir aidé !!!
Re
Petite erreur
Il sagit de prendre en consideration quela colonne G
car dans la feuille BD , j'ai déja les noms en A1:L15
Mille excuses
Jean Berti
"Jean Berti" <jean.berti@free.fr> a écrit dans le message de news:
OE3lmO$kHHA.4936@TK2MSFTNGP03.phx.gbl...
Bonsoir à tous
Mon problème!!!!
Je dois selectionner A4:A15 ( des noms) et G4:G15 (des chiffres qui
correspondent à la colonne A.
Ensuite je dois copier la sélection sur une feuille(BD), en A4 : L4 par
exemple le 01/01/2007et la deuxieme fois en A5:L5 le 02/01/2007et A6:L6
le
03/01/2007 etc...
C'est à dire que la copie se décale tous les jours.
J'espère avoir été assez clair.
Merci d'avance
Jean Berti
Salut FFO
Je te remercie mais dans la macro, il me met erreur de syntaxe et
compilation. La ligne reste en rouge?
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True"
Jean
"FFO" a écrit dans le message de news:Salut Berti
Si tu dois réaliser l'opération manuellement :
Sélection de la source G4:G15
Edition/Copier
séection de la feuille de destination
Sélection de la cellule A4
Edition/Collage spécial/Transposé
Par macro :
Sheets("Source").Select
Range("G4", "G15").Copy
Sheets("Destination").Select
Range("A65535").End(xlUp).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=
_
Espérant t'avoir aidé !!!Re
Petite erreur
Il sagit de prendre en consideration quela colonne G
car dans la feuille BD , j'ai déja les noms en A1:L15
Mille excuses
Jean Berti
"Jean Berti" a écrit dans le message de news:
OE3lmO$Bonsoir à tous
Mon problème!!!!
Je dois selectionner A4:A15 ( des noms) et G4:G15 (des chiffres qui
correspondent à la colonne A.
Ensuite je dois copier la sélection sur une feuille(BD), en A4 : L4 par
exemple le 01/01/2007et la deuxieme fois en A5:L5 le 02/01/2007et A6:L6
le
03/01/2007 etc...
C'est à dire que la copie se décale tous les jours.
J'espère avoir été assez clair.
Merci d'avance
Jean Berti
RE bonjour Berti
Les derniers guillemets sont de trop
La dernière ligne doit être :
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
SkipBlanks:úlse, Transpose:=True
Attention à la recopie !!!!
Espérant que celà fonctionne !!!
Dis moi !!!Salut FFO
Je te remercie mais dans la macro, il me met erreur de syntaxe et
compilation. La ligne reste en rouge?
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=
_
False, Transpose:=True"
Jean
"FFO" a écrit dans le message de news:Salut Berti
Si tu dois réaliser l'opération manuellement :
Sélection de la source G4:G15
Edition/Copier
séection de la feuille de destination
Sélection de la cellule A4
Edition/Collage spécial/Transposé
Par macro :
Sheets("Source").Select
Range("G4", "G15").Copy
Sheets("Destination").Select
Range("A65535").End(xlUp).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
SkipBlanks: >> > _
Espérant t'avoir aidé !!!Re
Petite erreur
Il sagit de prendre en consideration quela colonne G
car dans la feuille BD , j'ai déja les noms en A1:L15
Mille excuses
Jean Berti
"Jean Berti" a écrit dans le message de news:
OE3lmO$Bonsoir à tous
Mon problème!!!!
Je dois selectionner A4:A15 ( des noms) et G4:G15 (des chiffres qui
correspondent à la colonne A.
Ensuite je dois copier la sélection sur une feuille(BD), en A4 : L4
par
exemple le 01/01/2007et la deuxieme fois en A5:L5 le 02/01/2007et
A6:L6
le
03/01/2007 etc...
C'est à dire que la copie se décale tous les jours.
J'espère avoir été assez clair.
Merci d'avance
Jean Berti
RE bonjour Berti
Les derniers guillemets sont de trop
La dernière ligne doit être :
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
SkipBlanks:úlse, Transpose:=True
Attention à la recopie !!!!
Espérant que celà fonctionne !!!
Dis moi !!!
Salut FFO
Je te remercie mais dans la macro, il me met erreur de syntaxe et
compilation. La ligne reste en rouge?
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=
_
False, Transpose:=True"
Jean
"FFO" <FFO@discussions.microsoft.com> a écrit dans le message de news:
5DD475D0-11CE-48D6-A2C2-C23A3942FFED@microsoft.com...
Salut Berti
Si tu dois réaliser l'opération manuellement :
Sélection de la source G4:G15
Edition/Copier
séection de la feuille de destination
Sélection de la cellule A4
Edition/Collage spécial/Transposé
Par macro :
Sheets("Source").Select
Range("G4", "G15").Copy
Sheets("Destination").Select
Range("A65535").End(xlUp).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
SkipBlanks: >> > _
Espérant t'avoir aidé !!!
Re
Petite erreur
Il sagit de prendre en consideration quela colonne G
car dans la feuille BD , j'ai déja les noms en A1:L15
Mille excuses
Jean Berti
"Jean Berti" <jean.berti@free.fr> a écrit dans le message de news:
OE3lmO$kHHA.4936@TK2MSFTNGP03.phx.gbl...
Bonsoir à tous
Mon problème!!!!
Je dois selectionner A4:A15 ( des noms) et G4:G15 (des chiffres qui
correspondent à la colonne A.
Ensuite je dois copier la sélection sur une feuille(BD), en A4 : L4
par
exemple le 01/01/2007et la deuxieme fois en A5:L5 le 02/01/2007et
A6:L6
le
03/01/2007 etc...
C'est à dire que la copie se décale tous les jours.
J'espère avoir été assez clair.
Merci d'avance
Jean Berti
RE bonjour Berti
Les derniers guillemets sont de trop
La dernière ligne doit être :
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
SkipBlanks:úlse, Transpose:=True
Attention à la recopie !!!!
Espérant que celà fonctionne !!!
Dis moi !!!Salut FFO
Je te remercie mais dans la macro, il me met erreur de syntaxe et
compilation. La ligne reste en rouge?
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=
_
False, Transpose:=True"
Jean
"FFO" a écrit dans le message de news:Salut Berti
Si tu dois réaliser l'opération manuellement :
Sélection de la source G4:G15
Edition/Copier
séection de la feuille de destination
Sélection de la cellule A4
Edition/Collage spécial/Transposé
Par macro :
Sheets("Source").Select
Range("G4", "G15").Copy
Sheets("Destination").Select
Range("A65535").End(xlUp).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
SkipBlanks: >> > _
Espérant t'avoir aidé !!!Re
Petite erreur
Il sagit de prendre en consideration quela colonne G
car dans la feuille BD , j'ai déja les noms en A1:L15
Mille excuses
Jean Berti
"Jean Berti" a écrit dans le message de news:
OE3lmO$Bonsoir à tous
Mon problème!!!!
Je dois selectionner A4:A15 ( des noms) et G4:G15 (des chiffres qui
correspondent à la colonne A.
Ensuite je dois copier la sélection sur une feuille(BD), en A4 : L4
par
exemple le 01/01/2007et la deuxieme fois en A5:L5 le 02/01/2007et
A6:L6
le
03/01/2007 etc...
C'est à dire que la copie se décale tous les jours.
J'espère avoir été assez clair.
Merci d'avance
Jean Berti
Salut Youky
Merci de me répondre mais je dois passer par VBA.
En clair ma feuille1 contient des cours de bourse du jour
Je dois reprendre ces cours journaliers pour les mettre a la suite dans
une autre feuille
C'est du style Colonne = Dates, Noms de la valeur, Cours du jour
et l'autre feuille (BD)
Alcatel BNP ETC...
01/01/2007 8.90 80.00
02/01/2007 9.02 82.25
05/01/2007 9.00 86.25
Jean Berti
"Youky" a écrit dans le message de news:
%Bonsoir,
Sans être sur d'avoir compris la demande, peut être voir avec la formule
.....=RECHERCHV(........)
histoire de ne pas passer à coté si tu ne là jamais utilisée.
voir dans l'aide des formules
Youky
Salut Youky
Merci de me répondre mais je dois passer par VBA.
En clair ma feuille1 contient des cours de bourse du jour
Je dois reprendre ces cours journaliers pour les mettre a la suite dans
une autre feuille
C'est du style Colonne = Dates, Noms de la valeur, Cours du jour
et l'autre feuille (BD)
Alcatel BNP ETC...
01/01/2007 8.90 80.00
02/01/2007 9.02 82.25
05/01/2007 9.00 86.25
Jean Berti
"Youky" <nospam.bruno.jeune@wanadoo.fr> a écrit dans le message de news:
%238Y7ijAlHHA.680@TK2MSFTNGP06.phx.gbl...
Bonsoir,
Sans être sur d'avoir compris la demande, peut être voir avec la formule
.....=RECHERCHV(........)
histoire de ne pas passer à coté si tu ne là jamais utilisée.
voir dans l'aide des formules
Youky
Salut Youky
Merci de me répondre mais je dois passer par VBA.
En clair ma feuille1 contient des cours de bourse du jour
Je dois reprendre ces cours journaliers pour les mettre a la suite dans
une autre feuille
C'est du style Colonne = Dates, Noms de la valeur, Cours du jour
et l'autre feuille (BD)
Alcatel BNP ETC...
01/01/2007 8.90 80.00
02/01/2007 9.02 82.25
05/01/2007 9.00 86.25
Jean Berti
"Youky" a écrit dans le message de news:
%Bonsoir,
Sans être sur d'avoir compris la demande, peut être voir avec la formule
.....=RECHERCHV(........)
histoire de ne pas passer à coté si tu ne là jamais utilisée.
voir dans l'aide des formules
Youky
Re ceci doit faire
Youky
lig = [BD!G65536].End(3).Row + 1
Sheets("BD").Range("G" & lig & ":G" & lig + 11).Value = [PEA!D5:D16].Value
"Jean Berti" a écrit dans le message de news:Salut Youky
Merci de me répondre mais je dois passer par VBA.
En clair ma feuille1 contient des cours de bourse du jour
Je dois reprendre ces cours journaliers pour les mettre a la suite dans
une autre feuille
C'est du style Colonne = Dates, Noms de la valeur, Cours du jour
et l'autre feuille (BD)
Alcatel BNP ETC...
01/01/2007 8.90 80.00
02/01/2007 9.02 82.25
05/01/2007 9.00 86.25
Jean Berti
"Youky" a écrit dans le message de news:
%Bonsoir,
Sans être sur d'avoir compris la demande, peut être voir avec la formule
.....=RECHERCHV(........)
histoire de ne pas passer à coté si tu ne là jamais utilisée.
voir dans l'aide des formules
Youky
Re ceci doit faire
Youky
lig = [BD!G65536].End(3).Row + 1
Sheets("BD").Range("G" & lig & ":G" & lig + 11).Value = [PEA!D5:D16].Value
"Jean Berti" <jean.berti@free.fr> a écrit dans le message de news:
uAjsSsAlHHA.4628@TK2MSFTNGP06.phx.gbl...
Salut Youky
Merci de me répondre mais je dois passer par VBA.
En clair ma feuille1 contient des cours de bourse du jour
Je dois reprendre ces cours journaliers pour les mettre a la suite dans
une autre feuille
C'est du style Colonne = Dates, Noms de la valeur, Cours du jour
et l'autre feuille (BD)
Alcatel BNP ETC...
01/01/2007 8.90 80.00
02/01/2007 9.02 82.25
05/01/2007 9.00 86.25
Jean Berti
"Youky" <nospam.bruno.jeune@wanadoo.fr> a écrit dans le message de news:
%238Y7ijAlHHA.680@TK2MSFTNGP06.phx.gbl...
Bonsoir,
Sans être sur d'avoir compris la demande, peut être voir avec la formule
.....=RECHERCHV(........)
histoire de ne pas passer à coté si tu ne là jamais utilisée.
voir dans l'aide des formules
Youky
Re ceci doit faire
Youky
lig = [BD!G65536].End(3).Row + 1
Sheets("BD").Range("G" & lig & ":G" & lig + 11).Value = [PEA!D5:D16].Value
"Jean Berti" a écrit dans le message de news:Salut Youky
Merci de me répondre mais je dois passer par VBA.
En clair ma feuille1 contient des cours de bourse du jour
Je dois reprendre ces cours journaliers pour les mettre a la suite dans
une autre feuille
C'est du style Colonne = Dates, Noms de la valeur, Cours du jour
et l'autre feuille (BD)
Alcatel BNP ETC...
01/01/2007 8.90 80.00
02/01/2007 9.02 82.25
05/01/2007 9.00 86.25
Jean Berti
"Youky" a écrit dans le message de news:
%Bonsoir,
Sans être sur d'avoir compris la demande, peut être voir avec la formule
.....=RECHERCHV(........)
histoire de ne pas passer à coté si tu ne là jamais utilisée.
voir dans l'aide des formules
Youky
RE FFO
J'avais rectifié .
Voici mon code , je ne dois pas etre trés loin.
Sub zaza()
Sheets("PEA").Select
Range("D5", "D16").copy
Sheets("BD").Select
Range("A65535").End(xlUp).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Application.CutCopyMode = False
End Sub
Si tu peux jeter un oeil!
Merci d'avance
Jean Berti
"FFO" a écrit dans le message de news:RE bonjour Berti
Les derniers guillemets sont de trop
La dernière ligne doit être :
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
SkipBlanks:úlse, Transpose:=True
Attention à la recopie !!!!
Espérant que celà fonctionne !!!
Dis moi !!!Salut FFO
Je te remercie mais dans la macro, il me met erreur de syntaxe et
compilation. La ligne reste en rouge?
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=
_
False, Transpose:=True"
Jean
"FFO" a écrit dans le message de news:Salut Berti
Si tu dois réaliser l'opération manuellement :
Sélection de la source G4:G15
Edition/Copier
séection de la feuille de destination
Sélection de la cellule A4
Edition/Collage spécial/Transposé
Par macro :
Sheets("Source").Select
Range("G4", "G15").Copy
Sheets("Destination").Select
Range("A65535").End(xlUp).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
SkipBlanks: > >> > _
Espérant t'avoir aidé !!!Re
Petite erreur
Il sagit de prendre en consideration quela colonne G
car dans la feuille BD , j'ai déja les noms en A1:L15
Mille excuses
Jean Berti
"Jean Berti" a écrit dans le message de news:
OE3lmO$Bonsoir à tous
Mon problème!!!!
Je dois selectionner A4:A15 ( des noms) et G4:G15 (des chiffres qui
correspondent à la colonne A.
Ensuite je dois copier la sélection sur une feuille(BD), en A4 : L4
par
exemple le 01/01/2007et la deuxieme fois en A5:L5 le 02/01/2007et
A6:L6
le
03/01/2007 etc...
C'est à dire que la copie se décale tous les jours.
J'espère avoir été assez clair.
Merci d'avance
Jean Berti
RE FFO
J'avais rectifié .
Voici mon code , je ne dois pas etre trés loin.
Sub zaza()
Sheets("PEA").Select
Range("D5", "D16").copy
Sheets("BD").Select
Range("A65535").End(xlUp).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Application.CutCopyMode = False
End Sub
Si tu peux jeter un oeil!
Merci d'avance
Jean Berti
"FFO" <FFO@discussions.microsoft.com> a écrit dans le message de news:
BD721673-4649-48E0-8476-0BB32B09BC91@microsoft.com...
RE bonjour Berti
Les derniers guillemets sont de trop
La dernière ligne doit être :
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
SkipBlanks:úlse, Transpose:=True
Attention à la recopie !!!!
Espérant que celà fonctionne !!!
Dis moi !!!
Salut FFO
Je te remercie mais dans la macro, il me met erreur de syntaxe et
compilation. La ligne reste en rouge?
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=
_
False, Transpose:=True"
Jean
"FFO" <FFO@discussions.microsoft.com> a écrit dans le message de news:
5DD475D0-11CE-48D6-A2C2-C23A3942FFED@microsoft.com...
Salut Berti
Si tu dois réaliser l'opération manuellement :
Sélection de la source G4:G15
Edition/Copier
séection de la feuille de destination
Sélection de la cellule A4
Edition/Collage spécial/Transposé
Par macro :
Sheets("Source").Select
Range("G4", "G15").Copy
Sheets("Destination").Select
Range("A65535").End(xlUp).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
SkipBlanks: > >> > _
Espérant t'avoir aidé !!!
Re
Petite erreur
Il sagit de prendre en consideration quela colonne G
car dans la feuille BD , j'ai déja les noms en A1:L15
Mille excuses
Jean Berti
"Jean Berti" <jean.berti@free.fr> a écrit dans le message de news:
OE3lmO$kHHA.4936@TK2MSFTNGP03.phx.gbl...
Bonsoir à tous
Mon problème!!!!
Je dois selectionner A4:A15 ( des noms) et G4:G15 (des chiffres qui
correspondent à la colonne A.
Ensuite je dois copier la sélection sur une feuille(BD), en A4 : L4
par
exemple le 01/01/2007et la deuxieme fois en A5:L5 le 02/01/2007et
A6:L6
le
03/01/2007 etc...
C'est à dire que la copie se décale tous les jours.
J'espère avoir été assez clair.
Merci d'avance
Jean Berti
RE FFO
J'avais rectifié .
Voici mon code , je ne dois pas etre trés loin.
Sub zaza()
Sheets("PEA").Select
Range("D5", "D16").copy
Sheets("BD").Select
Range("A65535").End(xlUp).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Application.CutCopyMode = False
End Sub
Si tu peux jeter un oeil!
Merci d'avance
Jean Berti
"FFO" a écrit dans le message de news:RE bonjour Berti
Les derniers guillemets sont de trop
La dernière ligne doit être :
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
SkipBlanks:úlse, Transpose:=True
Attention à la recopie !!!!
Espérant que celà fonctionne !!!
Dis moi !!!Salut FFO
Je te remercie mais dans la macro, il me met erreur de syntaxe et
compilation. La ligne reste en rouge?
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=
_
False, Transpose:=True"
Jean
"FFO" a écrit dans le message de news:Salut Berti
Si tu dois réaliser l'opération manuellement :
Sélection de la source G4:G15
Edition/Copier
séection de la feuille de destination
Sélection de la cellule A4
Edition/Collage spécial/Transposé
Par macro :
Sheets("Source").Select
Range("G4", "G15").Copy
Sheets("Destination").Select
Range("A65535").End(xlUp).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
SkipBlanks: > >> > _
Espérant t'avoir aidé !!!Re
Petite erreur
Il sagit de prendre en consideration quela colonne G
car dans la feuille BD , j'ai déja les noms en A1:L15
Mille excuses
Jean Berti
"Jean Berti" a écrit dans le message de news:
OE3lmO$Bonsoir à tous
Mon problème!!!!
Je dois selectionner A4:A15 ( des noms) et G4:G15 (des chiffres qui
correspondent à la colonne A.
Ensuite je dois copier la sélection sur une feuille(BD), en A4 : L4
par
exemple le 01/01/2007et la deuxieme fois en A5:L5 le 02/01/2007et
A6:L6
le
03/01/2007 etc...
C'est à dire que la copie se décale tous les jours.
J'espère avoir été assez clair.
Merci d'avance
Jean Berti