> Tous les forumsBureautique

 macro excel pour stockage de données
Statut du sujet : NON RESOLU Imprimer
 octavio
  Posté le 08/07/2008 @ 10:42  
 Petit astucien

8 Messages

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

 Afficher le profil de octavioEnvoyer un message privé à octavio
 
 
Publicité
 gilbert_rgi  Posté le 08/07/2008 à 14:36  
Petit astucien


839 Messages

Bonjour

regardez ICI

Cdlt

RGI

Afficher le profil de gilbert_rgi Voir la configuration de gilbert_rgiEnvoyer un message privé à gilbert_rgi
 Revenir en haut de la page
 octavio  Posté le 08/07/2008 à 21:08  
Petit astucien

8 Messages

j'ai regardé et j'ai pas compris

Afficher le profil de octavioEnvoyer un message privé à octavio
 Revenir en haut de la page
 gilbert_rgi  Posté le 08/07/2008 à 21:11  
Petit astucien


839 Messages

Désolè !!!

Afficher le profil de gilbert_rgi Voir la configuration de gilbert_rgiEnvoyer un message privé à gilbert_rgi
 Revenir en haut de la page
 Bérylion  Posté le 08/07/2008 à 22:08  
Astucien


2289 Messages

Salut

ça fait la maille ? :

Sub test()

Sheets("import").Select
d = Cells(1, 1).Value
Range(Range("A2"), Range("A2").End(xlDown)).Copy
Sheets("données").Select
Set c = Range("1:1").Find(d, LookIn:=xlValues)
Cells(2, c.Column).PasteSpecial Paste:=xlPasteValues
Set c = Nothing
Application.CutCopyMode = False

End Sub

Afficher le profil de Bérylion Voir la configuration de BérylionEnvoyer un message privé à Bérylion
 Revenir en haut de la page
Haut de la page 
Inscrivez-vous !
- Posez vos questions

- Résolvez vos problèmes

- Aidez les autres

- Participez et créez vos discussions

- Dialoguez en privé avec d'autres membres

- Suivez vos sujets préférés

- Affichez les signatures des membres

TOUT EST GRATUIT !

Je crée mon compte



Vous avez besoin d'aide ?
Des centaines d'experts sont à votre disposition sur les forums PC Astuces pour vous aider gratuitement, 24h/24, 7j/7.

Les derniers sujets résolus !
 

 > Tous les forumsBureautique

 
Forum PC Astuces© 1997-2008 WebastucesAller en haut de la page