Transformation d'un tableau d'un fichier excel

Version imprimable

12/06/2009, 16h04
thierry_b

Transformation d'un tableau d'un fichier excel

Bonjour,

Je ne connais pas du tout le langage VBA (je suis plutot Java), et j'aimerais effectué une certaine transformation sur un fichier excel.

J'ai un tableau de cette forme :
Lots Interfaces Analyse Date1 ... Date2 ...
L1 I1 A1 12/06/09 15/10/09
L2 I2 A2 04/06/09 28/10/09

J'aimerais le transformer sous cette forme là:

04/06/09 L2 I2 A2
12/06/09 L1 I1 A1
15/10/09 L1 I1 A1
28/10/09 L2 I2 A2

donc :
- d'abbord faire un tri sur l'ensemble des dates (de colonnes que j'aurais défini)
- puis pour chacune des dates, reprendre certains colonnes avec leurs valeurs associées.

J'aimerais aussi que ce tableau soit sur une nouvelle feuille.

Est-ce que vous pourriez me donner quelques clés pour pouvoir faire un programme comme ça sans devoir apprendre à maitriser à fond VBA ?

Je vous remercie bcp :-)

d'abord faut déplacer les colonne que tu veu garder là ou tu veu les avoir:

Code:

sheets("feuilleciblé").range("lettredecolonneciblé").value=sheets("feuillesource").range("talettredecolonne").value

tu répère ceci pour toutes tes colonnes

ensuite pour trier voici la fonction que j'ai utilisé dans mon programme actuel:
Code:

1 2 3 4 5 6 7 Public Sub Tri() Application.ScreenUpdating = False Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom 'je suppose que le key1 est reproductible en key2 etc... pour trier sur chaque colonnes Application.ScreenUpdating = True End Sub

12/06/2009, 16h24
Access Newbie

1 pièce(s) jointe(s)

Bonjour,

Une piste de réflexion, pourquoi ne pas faire un tableau croisé dynamique ? Au préalable vous créez un tableau croisé basé sur votre tableau (données / rapport de tableau croisé dynamique) puis vous créez votre tableau en y mettant en entête de ligne les champs lots, interface et analyse (n'oubliez pas d'enlever les différents totaux). Vous enregistrez. Il ne vous reste plus qu'a enregistrer une macro qui vous mettra le champ date1 devant le champ lot puis qui vous fait un copier coller (valeurs et format) dans votre nouvelle feuille. de même pour le champ date2 ...

cf piece jointe
13/06/2009, 09h52
thierry_b

re

garion28 :En fait, comme idéalement, on devrait pouvoir rajouter de nouveleles colonnes, sans que ca change dans mon programme, j'aimerais d'abbord dans :
- Faitre le tri de l'ensemble des dates (de plsuieurs colonnes), dans une colonne résultante de ma nouvelle feuille
- et ensuite pour chacune de ses dates, recopier les infos d'autres colonnes.

Y'a des structures de listes où je pourrais stocker cet ensemble de dates triés pour itérer dessus par la suite?

Access Newbie : le nouveau tableau doit se créer juste en cliquant sur un bouton en fait.

Je vous remercie.

bonjour thierry_b Access Newbie garion28 le forum
suppose tes données sur colonne de a2 : e sur la feuil1 . copy sur feuil2
code brute a simplifier & adapter

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub essai()
Dim i As Long, z As Long
Application.ScreenUpdating = False
Sheets("feuil1").Activate
For i = 2 To Range("d65535").End(xlUp).Row
With Sheets("feuil2")
.Cells(i, 1) = Cells(i, 4): .Cells(i, 2) = Cells(i, 1): .Cells(i, 3) = Cells(i, 2): .Cells(i, 4) = Cells(i, 3)
End With: Next i
z = Sheets("feuil2").Cells.Find("*", , , , , xlPrevious).Row
For i = 2 To Range("e65535").End(xlUp).Row
With Sheets("feuil2")
.Cells(i + z, 1) = Cells(i, 5): .Cells(i + z, 2) = Cells(i, 1): .Cells(i + z, 3) = Cells(i, 2): .Cells(i + z, 4) = Cells(i, 3)
End With: Next i
Sheets("feuil2").Activate: [a2:d10000].Sort Key1:=Range("a2"), Order1:=xlAscending, Header:=xlGuess
End Sub

14/06/2009, 19h31
thierry_b

re

Hello,

Tu pourrais commenter un peu ton code, pq j'avoue que je ne comprends pas trop.

Je vais lire quelques tutos aussi pour m'aider dans la syntatxe, fonctions...

Je te remercie.
14/06/2009, 19h57
laetitia
re ,thierry le fil macro essai . je suppose tes données sur la feuille1 de a2 jusqu'a la colonne e jusqu'a la derniere ligne non vide

en 1 j active la feuille1 en cas ou tu lances pas la macro de cette feuille on peut simplifier avec l' instruction with mais j'ai fais le plus simple possible
en 2 je boucle sur la colonne d de d2 jusqu'a la derniére cellule non vide de la colonne donc toute les dates de la colonne

Code:

For i = 2 To Range("d65535").End(xlUp).Row

je copy sur la feuille2 en a2 ect....
Code:

1 2 3 With Sheets("feuil2") .Cells(i, 1) = Cells(i, 4): .Cells(i, 2) = Cells(i, 1): .Cells(i, 3) = Cells(i, 2): .Cells(i, 4) = Cells(i, 3) End With: Next i
cells(i,1) de la feuille 2 est egal cells(i,4) de la feuille 1 ect.....
je fais la méme chose avec la colonne e mais avec la difference au prealable je cherche la derniere row remplie sur feuille 2

Code:

z = Sheets("feuil2").Cells.Find("*", , , , , xlPrevious).Row

pour pas ecraser les anciennes valeurs
dans ton cas z =4
Code:

1 2 3 With Sheets("feuil2") .Cells(i + z, 1) = Cells(i, 5): .Cells(i + z, 2) = Cells(i, 1): .Cells(i + z, 3) = Cells(i, 2): .Cells(i + z, 4) = Cells(i, 3) End With: Next i
puis je mets tout cas dans l' ordre croissant

Code:

Sheets("feuil2").Activate: [a2:d10000].Sort Key1:=Range("a2"), Order1:=xlAscending, Header:=xlGuess
15/06/2009, 00h37
thierry_b

re

Re,

Je testerai ta solution en adaptant.

Je te remercie bcp :-)