Macro excel pour stockage de données
octavio2
Messages postés
3
Statut
Membre
-
octavio2 Messages postés 3 Statut Membre -
octavio2 Messages postés 3 Statut Membre -
bonjour,
mes connaissances en macro excel étant trés limitées
je me tourne vers des personnes + compétentes pour m'aider:
j'importe à partir d'une application des données quotidiennes que je classe au moyen d'une fonction excel dans un onglet "import".
A partir de là, je voudrais copier / coller ces valeurs dans un autre onglet, à un emplacement bien défini par une date mise dans "import"; emplacement qui va varier tous les jours
en plus clair
onglet "import", en A1 j'ai une date "date 1" en A2:A50 "données 1"
je veux les copier / coller valeur
dans l'onglet "données" , dans une colonne qui correspond à la "date 1"
sachant que le lendemain, on aura "date 2" qui devra venir se coller à côté....
j'espère que je n'ai pas été trop confus
merci
mes connaissances en macro excel étant trés limitées
je me tourne vers des personnes + compétentes pour m'aider:
j'importe à partir d'une application des données quotidiennes que je classe au moyen d'une fonction excel dans un onglet "import".
A partir de là, je voudrais copier / coller ces valeurs dans un autre onglet, à un emplacement bien défini par une date mise dans "import"; emplacement qui va varier tous les jours
en plus clair
onglet "import", en A1 j'ai une date "date 1" en A2:A50 "données 1"
je veux les copier / coller valeur
dans l'onglet "données" , dans une colonne qui correspond à la "date 1"
sachant que le lendemain, on aura "date 2" qui devra venir se coller à côté....
j'espère que je n'ai pas été trop confus
merci
Configuration: Windows XP Internet Explorer 7.0
1 réponse
-
Voici un code qui effectue un transfert de données d'une feuille à une autre (ici de la feuille import vers la feuille données).
en résumé la macro :
1) active la feuille 'import' sélectionnes la plage de données A1->A50 puis les copie
2) active la feuille 'données' se place en cellule A1, puis effectue une boucle qui à pour but de tester si la cellule active est vide (sens du balayage en ligne c'est à dire A1 puis A2 puis A3 ...).
Dés qu'une cellule vide est identifiée, la macro colle les données.
Sub transfert()
'selection de la feuille
Sheets("import").Select
'selection de la plage de données
Range("A1:A50").Select
Selection.Copy
'selection de la feuille
Sheets("donnees").Select
'positionnement de debut
Range("A1").Select
'boucle de balayage pour tester si la cellule active est vide
Do While ActiveCell <> ""
ActiveCell.Offset(0, 1).Select
Loop
'collage des données
ActiveSheet.Paste
End Sub
Attention les données de départ sont copiées et non pas coupées en conséquence elles sont toujours présentes dans ta feuille 'import'
Si tu veux les effacer place en fin de macro après ActiveSheet.Paste le code suivant :
'selection de la feuille
Sheets("import").Select
'selection de la plage de données
Range("A1:A50").Select
Selection.ClearContents
Range("A1").Select
