Discussion :

[Pas_Doué]

Bonjour à tous,

Sans être un expert d'access, j'arrive habituellement à me débrouillé mais pas cette fois-ci.

Je dispose d'une table du type suivant :
Champ1 Champ2
a 1
b 2
c 3

Et je souhaiterai obtenir le résultat suivant :
Champ1 a b c
a a
b a*b b
c a*b*c b*c c

Je ne sais pas si on peut obtenir ce genre de résultat sans passer par le vba.

Je vous remercie de votre aide par avance.

Pas_Doué

[FMJ]

Salut

Je comprends pas très bien quel résultat tu veux obtenir.
C'est bien

Code :

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

1
2
3
4
5
Ligne  |  Champ1 |  Champ 2  | Champ 3
===============================
1        |   a   |       |
2        |  a*b  |   b   |
3        | a*b*c |  b*c  |   c

C'est ça ?

[Pas_Doué]

Bonjour,

La mise en forme de mon message laisse en effet à désirer.
Effectivement, c'est bien le résultat que je souhaite obtenir.

Merci pour votre aide.

Pas_Doué

[Pas_Doué]

Bonjour à tous,

J'ai finalement résolu mon problème avec quelques lignes de code.
Je suis certain que ce n'est pas très optimisé mais ça fonctionne.

Je le poste pour ceux que ça pourrait aider.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
For i = 1 To 3
    For j = 1 To i
    Taux = 1
        For k = j To i
            Set Req = CurrentDb.OpenRecordset( _
            "SELECT [Champ2] FROM [tTable1] WHERE [Champ1]=" & k & " ", dbOpenSnapshot)
            Tempo = Req("Champ2")
            Taux = Taux * Tempo
        Next
	DoCmd.RunSQL _
	"INSERT INTO tTable2 ( Champ1, Champ2, Taux) SELECT " & i & " AS Expr1, " & j & " _
	AS Expr2, " & Replace(Taux, ",", ".") & " AS Expr3;"
    Next
Next

@+ Pas_Doué