Discussion :

[MustOne]

Bonjour à tous!

Le titre semble simple mais je n'arrive pas à faire cette chose lol étant débutant en VBA mes réflexes de C me perturbent.

En fait, j'ai une base de donnée que je récupère d'un automate programmable. J'exporte cette base sous Excel.

Sur ma feuille, les données sont affichées en colonne par trame de 10 données.

Ce que j'aimerais faire, c'est afficher ces trames de données en ligne.

Concretement, je voudrais faire cela:

feuille 1

1
2
3
4
5
6
7
8
9
10

feuille 2:

1 2 3 4 5
6 7 8 9 10


j'ai essayé de faire cela avec une macro. Je l'ai fait pour 2 trames.
Je voulais boucler le tout pour "ranger" mes 1000 trames!!!

J'ai usé d'une méthode langage C qui consistait à incrémenter une variable de 1. mais bon ca ne fonctionne pas (je m'en doutais).

Je lis actuellemnet un max de topic et de cours... maisje ne trouve pas mon bonheur (bien qu'il y a de très bon topic qui me seront bien utiles plus tard lol)


voila, si quelqu'un pouvait m'apporter la lumière.

Merci d'avance


Michael aka MustOne

[gruget]

Bonjour,
Si tu pouvais nous montrer ce que tu as déja fait, ca serait plus simple pour t'aider et pour comprendre completement (je suis pas sur d'avoir exactement compris comment tu veux les ranger dans ta deuxième feuille)
je te repasse la lumière
rémi

[MustOne]

Code :

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

1
2
3
4
5
6
7
8
 
    Sheets("source_DB").Select
    Range("D25").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Log").Select
    Range("B3").Select
    ActiveSheet.Paste

voici donc la base que j'ai obtenu en créant une macro. Je ne vais pas tout mettre car c'est toujours la meme chose.

En fait, ce que je voudrais faire c'est que dans Range(B3).Select, je puisse incrémenté à C3 puis D3 etc. De meme pour Range(D25).Select que je souhaiate incrémenté à D26, D27 etc.

est ce que la lumière se ravive? lol

ps: en fichier join, il y a ce que je voudrait faire concretement.

[gruget]

Oki doki
vu ce que tu fais je te conseille plutot de travailler avec des cells et non des ranges et ca ferait qq chose comme ca si ta juste une colonne à recopier vers une ligne (sinon faut rajouter une boucle de plus sur la colonne):

Code :

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

1
2
3
4
dim i as integer
for i=1 to nombre_de_ligne_à_copier
Worksheets("Log").cells(3,i+colonne de début).value=Worksheets("source_DB").cells(i+ligne de début,4).value
next i

et la lumière fut
rémi

[MustOne]

ok la lumière commence a me réchauffer lol

En fait pour tout te dire, j'ai 999 trames!! (trame = 10 données)

Maintenant que tu m'as illuminé, je vais essayé de faire la seconde boucle (pour les colonnes ) tout seul comme un grand!

Merci

Je te fais signe (ou quiconque) en cas de diminution de la luminance


Michael

[MustOne]

Bon c'est cool. j'arrive a faire presque ce que je veux.

Le prob c'est que j'ai m'impression que le programme me copie toujours la meme chose (enfin c'est plus qu'une impression).

En gros, on me copie que la premiere trame.


Voila, la lumiere la lumiere!!lloll


Michael