Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel VBA!!!!

VBA!!!!

13 réponses
Avatar
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
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Jean Berti
Merciiiiiiiiiiiiiiiiiiiiiiiiiiii!!!!

La macro est nickel!!!!
Pour entrer la date , j'ai rectifié: Offset(1, 0)
Sheets("BD").Range("A65535").End(xlUp).Offset(1, 0) = InputBox("Veuillez
saisir la date", "Date")
Et quand je mets 02/04/2007 ,cela me met 04/02/2007.
C'est le format date qui coince.
En cherchant ,je vais trouver.
Merci encore
Jean Berti

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

Salut Jean

J'ai analysé ton document en utilisant le lien donné à Youki
Le collage visiblement doit être réalisé à partir de la colonne B sachant
qu'en A tu mets la date
De plus la macro que je t'ai proposé comporte une imperfection
Fort de ces 2 constatations et l'ayant testé dans ton document je te
propose
ce code rectifié

Sheets("PEA").Select
Range("D5", "D16").Copy
Sheets("BD").Select
Range("B65535").End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks
_
:úlse, Transpose:=TrueApplication.CutCopyMode = False

Si tu souhaites intégrer la date en colonne A dans la macro par une boite
de
dialogue par exemple dans laquelle on viendrait la saisir
Tu peux rajouter en début de ce code :

Sheets("Feuil3").Range("A65535").End(xlUp) = InputBox("Veuillez saisir la
date", "Date")

Est ce qu'enfin celà te convient ????
Dis moi !!!


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

























Avatar
FFO
Re bonjours jean
Heureux de t'avoir apporté la solution
Effectivement si j'ai rajouté l'offset(1,0) dans la partie principale du
code il fallait faire de même pour la date et je suis tombé une fois de plus
dans le panneau
Mille excuses
Je vois que ta sagacité a fait le reste (quel talent !!!)
Concernant le pb du format de la date saisie dans la boîte de dialogue je te
propose de changer la ligne et de mettre ceci :

Sheets("BD").Range("B65535").End(xlUp).Offset(1, 0) =
CDate(InputBox("Veuillez saisir la date", "Date"))

Cà marche je l'ai testé

Bon courage pour la suite


Merciiiiiiiiiiiiiiiiiiiiiiiiiiii!!!!

La macro est nickel!!!!
Pour entrer la date , j'ai rectifié: Offset(1, 0)
Sheets("BD").Range("A65535").End(xlUp).Offset(1, 0) = InputBox("Veuillez
saisir la date", "Date")
Et quand je mets 02/04/2007 ,cela me met 04/02/2007.
C'est le format date qui coince.
En cherchant ,je vais trouver.
Merci encore
Jean Berti

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

Salut Jean

J'ai analysé ton document en utilisant le lien donné à Youki
Le collage visiblement doit être réalisé à partir de la colonne B sachant
qu'en A tu mets la date
De plus la macro que je t'ai proposé comporte une imperfection
Fort de ces 2 constatations et l'ayant testé dans ton document je te
propose
ce code rectifié

Sheets("PEA").Select
Range("D5", "D16").Copy
Sheets("BD").Select
Range("B65535").End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks
_
:úlse, Transpose:=TrueApplication.CutCopyMode = False

Si tu souhaites intégrer la date en colonne A dans la macro par une boite
de
dialogue par exemple dans laquelle on viendrait la saisir
Tu peux rajouter en début de ce code :

Sheets("Feuil3").Range("A65535").End(xlUp) = InputBox("Veuillez saisir la
date", "Date")

Est ce qu'enfin celà te convient ????
Dis moi !!!


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






























Avatar
Jean Berti
Merci FFO

J'avais trouvé la parade avec :
Sheets("BD").Range("A65535").End(xlUp).Offset(1, 0) = InputBox("Veuillez
saisir la date", "Date")
With Selection
Range("A6:A1000").NumberFormat = "mm/dd/yyyy"
J'avais essayé avec Cdate, mais meme problème.
Car j'ai office 2003 pro en français , mais je suis obligé de formuler en
us????
J'ai été dans les parametres et c'est bien en FR. Mystère ???

Enfin cela fonctionne nickel.
Merci encore de ton précieux concours

Jean Berti

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

Re bonjours jean
Heureux de t'avoir apporté la solution
Effectivement si j'ai rajouté l'offset(1,0) dans la partie principale du
code il fallait faire de même pour la date et je suis tombé une fois de
plus
dans le panneau
Mille excuses
Je vois que ta sagacité a fait le reste (quel talent !!!)
Concernant le pb du format de la date saisie dans la boîte de dialogue je
te
propose de changer la ligne et de mettre ceci :

Sheets("BD").Range("B65535").End(xlUp).Offset(1, 0) > CDate(InputBox("Veuillez saisir la date", "Date"))

Cà marche je l'ai testé

Bon courage pour la suite


Merciiiiiiiiiiiiiiiiiiiiiiiiiiii!!!!

La macro est nickel!!!!
Pour entrer la date , j'ai rectifié: Offset(1, 0)
Sheets("BD").Range("A65535").End(xlUp).Offset(1, 0) = InputBox("Veuillez
saisir la date", "Date")
Et quand je mets 02/04/2007 ,cela me met 04/02/2007.
C'est le format date qui coince.
En cherchant ,je vais trouver.
Merci encore
Jean Berti

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

Salut Jean

J'ai analysé ton document en utilisant le lien donné à Youki
Le collage visiblement doit être réalisé à partir de la colonne B
sachant
qu'en A tu mets la date
De plus la macro que je t'ai proposé comporte une imperfection
Fort de ces 2 constatations et l'ayant testé dans ton document je te
propose
ce code rectifié

Sheets("PEA").Select
Range("D5", "D16").Copy
Sheets("BD").Select
Range("B65535").End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks
_
:úlse, Transpose:=TrueApplication.CutCopyMode = False

Si tu souhaites intégrer la date en colonne A dans la macro par une
boite
de
dialogue par exemple dans laquelle on viendrait la saisir
Tu peux rajouter en début de ce code :

Sheets("Feuil3").Range("A65535").End(xlUp) = InputBox("Veuillez saisir
la
date", "Date")

Est ce qu'enfin celà te convient ????
Dis moi !!!


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
































1 2