Discussion :

[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.

[Abed_H]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[fring]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[kiriany]

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.

[Patrice Henrio]

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.

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[fring]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Patrice Henrio]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[kiriany]

merci grandement pour votre aide, cela fonctionne maintenant.