comment envoyer des données d'une page saisie à une page existan t
2 réponses
picmin
Salut,
voila ma question: dans une page saisie, je rentre des données concernant un
client .
J'aimerais que ces données soient envoyées à la feuille de mon client et non
à une autre.
Bien entendu, cela doit le faire automatiquement.
Voila, merci de repondre svp si vous avez une idée.
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
JB
Bonjour,
Voir PJ: http://cjoint.com/?mChFKCrqfA
On a:
A B C 1 Nom Ca Date 2 Martin 1000 01/01/2006 3 Dupont 1001 02/01/2006 4 Dupont 1002 03/01/2006 5 Dupont 1003 04/01/2006 6 Martin 1004 05/01/2006 7 Martin 1005 06/01/2006 8 Durand 1006 07/01/2006
les noms d'onglets sont Dupont,Martin,Durand
Sub essai() For Each c In Range([A2], [a65000].End(xlUp)) nf = c Sheets(nf).[a65000].End(xlUp).Offset(1, 0) = c.Offset(0, 1).Value Sheets(nf).[a65000].End(xlUp).Offset(0, 1) = c.Offset(0, 2).Value Next c [A2:C1000].ClearContents End Sub
Cordialement JB
Bonjour,
Voir PJ: http://cjoint.com/?mChFKCrqfA
On a:
A B C
1 Nom Ca Date
2 Martin 1000 01/01/2006
3 Dupont 1001 02/01/2006
4 Dupont 1002 03/01/2006
5 Dupont 1003 04/01/2006
6 Martin 1004 05/01/2006
7 Martin 1005 06/01/2006
8 Durand 1006 07/01/2006
les noms d'onglets sont Dupont,Martin,Durand
Sub essai()
For Each c In Range([A2], [a65000].End(xlUp))
nf = c
Sheets(nf).[a65000].End(xlUp).Offset(1, 0) = c.Offset(0, 1).Value
Sheets(nf).[a65000].End(xlUp).Offset(0, 1) = c.Offset(0, 2).Value
Next c
[A2:C1000].ClearContents
End Sub
A B C 1 Nom Ca Date 2 Martin 1000 01/01/2006 3 Dupont 1001 02/01/2006 4 Dupont 1002 03/01/2006 5 Dupont 1003 04/01/2006 6 Martin 1004 05/01/2006 7 Martin 1005 06/01/2006 8 Durand 1006 07/01/2006
les noms d'onglets sont Dupont,Martin,Durand
Sub essai() For Each c In Range([A2], [a65000].End(xlUp)) nf = c Sheets(nf).[a65000].End(xlUp).Offset(1, 0) = c.Offset(0, 1).Value Sheets(nf).[a65000].End(xlUp).Offset(0, 1) = c.Offset(0, 2).Value Next c [A2:C1000].ClearContents End Sub
Cordialement JB
danielrv
Bonjour et bonnes fêtes de fin d'année. Je me mêle, mais c'est vraiment impressionant de voir une macro (est-ce bien le nom ?) toute simple. Serait-il possible d'avoir la traduction pas à pas (une macro de 5 lignes). Merci par avance, et bravo pour votre disponibilité.
Bonjour et bonnes fêtes de fin d'année.
Je me mêle, mais c'est vraiment impressionant de voir une macro (est-ce bien
le nom ?) toute simple. Serait-il possible d'avoir la traduction pas à pas
(une macro de 5 lignes).
Merci par avance, et bravo pour votre disponibilité.
Bonjour et bonnes fêtes de fin d'année. Je me mêle, mais c'est vraiment impressionant de voir une macro (est-ce bien le nom ?) toute simple. Serait-il possible d'avoir la traduction pas à pas (une macro de 5 lignes). Merci par avance, et bravo pour votre disponibilité.
