macro excel pour stockage de données Fermé

Question

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

titus17 · Answer

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

Macro excel pour stockage de données

1 réponse

Discussions similaires