copie de donnees sur un autre tableau

Bonjour,

Je suis débutante en Vba et voilà plusieurs jours que je galère afin de créer une macro vba.
je vous explique :
j'ai un tableau A qui doit etre renseigné journalièrement et qui doit me donner 2 résultats.
Je veux pouvoir conserver ces résultats pour l'envoyer sur un tableau B ( qui lui est mensuel) et reéinitialiser mon tableau A.
Exemple : lundi (resultats de mon tableau a) ==> tableau b (cellule a1 et a2)
mardi (nouveaux resultats de mon tableau a) ===> tableau b (cellule b1 et b2) et ainsi de suite.
J'arrive à recopier les valeurs sur mon tableau b mais je n'arrive pas à recopier sur les lignes suivantes.
je vous remercie par avance de votre précieuse aide.
:lol:

La saisie devrait s'enregistrer dans une autre feuille ici (FeuilleMensuel) à la suite des saisies antérieures avec suppression des données de la feuille source.

Code:

---

1 2 3 4 5

Sub Copie() ActiveSheet.UsedRange.Copy _ Sheets("FeuilleMensuel").Range("A65536").End(xlUp).Offset(1, 0) ActiveSheet.UsedRange.ClearContents End Sub

---

Bonne soirée
Abed_H :king:

Bonjour,

Sans voir un bout de ton code, c'est difficile de répondre avec précision.
Si ça peut te mettre sur la voie :

Pour trouver la dernière cellule vide de la colonne A

Code:

---

Cells(Rows.Count, 1).End(xlUp)(2)

---

Pour trouver la dernière cellule vide de la ligne 1

Code:

---

Cells(1, Columns.Count).End(xlToLeft)(2)

---

Cells(x, y)
x = numéro de ligne
y = numéro de colonne

Bonjour,

merci déja pour votre aide; mais je ne suis pas encore familiariser au code vba et je n'arrive pas à retranscrire cela.
je veux par exemple recopier mes résultats des celulles A5 et B5 sur les cellules A10 et B10 puis nouveaux résultats(des cellules A5 et B5) sur cellules A11 et B11 et ainsi de suite.
En clair, comment doit je retranscrire ça en code Vba car je n'arrive pas encore à vraiment comprendre le fonctionnement.
:lol:

Citation:

---

Envoyé par kiriany

Bonjour,

Je suis débutante en Vba et voilà plusieurs jours que je galère afin de créer une macro vba.
je vous explique :
j'ai un tableau A qui doit etre renseigné journalièrement et qui doit me donner 2 résultats.
Je veux pouvoir conserver ces résultats pour l'envoyer sur un tableau B ( qui lui est mensuel) et reéinitialiser mon tableau A.
Exemple : lundi (resultats de mon tableau a) ==> tableau b (cellule a1 et a2)
mardi (nouveaux resultats de mon tableau a) ===> tableau b (cellule b1 et b2) et ainsi de suite.
J'arrive à recopier les valeurs sur mon tableau b mais je n'arrive pas à recopier sur les lignes suivantes.
je vous remercie par avance de votre précieuse aide.
:lol:

---

On suppose qu'il existe une feuille "Mensuel" et une feuille "Journalier"

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Sub ReleverMesures()   ' Macro enregistrée le 29/02/2008 par Patrice Henrio ' Dim Source As Range, Col As Long 'définir la source Set Source = ThisWorkbook.Worksheets("Journalier").Range("A1:A2") 'définir la cible Worksheets("Mensuel").Select Col = 1 While Cells(1, Col) <> "" Col = Col + 1 Wend   Source.Copy Range(Cells(1, Col)).Select ActiveSheet.Paste Source.ClearContents   End Sub

---

Quelques remarques
IL serait sans doute judicieux de recopier les valeurs lignes par ligne sen rajoutant la date
Première colonne : date
Deuxième colone valeur 1
Troisième colonne valeur 2

Cela donne

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sub ReleverMesures()   ' Macro enregistrée le 29/02/2008 par Patrice Henrio ' ' Dim Source As Range, Lig As Long 'définir la source Set Source = ThisWorkbook.Worksheets("Journalier").Range("A1:A2") 'définir la cible ThisWorkbook.Worksheets("Mensuel").Select Lig = 1 While Cells(Lig, 1) <> "" Lig = Lig + 1 Wend Cells(Lig, 1) = Date Cells(Lig, 2) = Source.Cells(1, 1) Cells(Lig, 3) = Source.Cells(2, 1) Source.ClearContents End Sub

---

Si c'est sur la même feuille, on pourrait par exemple le transcrire comme ça :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub test() Dim X%   'on cherche la 1ère cellule vide de la colonne A et on attribue le n° de ligne à X X = Cells(Rows.Count, 1).End(xlUp)(2).Row   'on copie la valeur de A5 dans à la ligne X de la colonne A Cells(X, 1) = Cells(5, 1)   'on copie la valeur de B5 dans à la ligne X de la colonne B Cells(X, 2) = Cells(5, 2)   End Sub

---

Citation:

---

Envoyé par fring

Si c'est sur la même feuille, on pourrait par exemple le transcrire comme ça :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub test() Dim X%   'on cherche la 1ère cellule vide de la colonne A et on attribue le n° de ligne à X X = Cells(Rows.Count, 1).End(xlUp)(2).Row   'on copie la valeur de A5 dans à la ligne X de la colonne A Cells(X, 1) = Cells(5, 1)   'on copie la valeur de B5 dans à la ligne X de la colonne B Cells(X, 2) = Cells(5, 2)   End Sub

---

---

Merci, je ne connaissais pas cette propriété End.

merci grandement pour votre aide, cela fonctionne maintenant.
:lol: