Bonjour,

Sous VBA je cherche à créer un code me permettant d’additionner les colonnes d’un tableau entre elle.
Si j’ai un tableau avec trois colonne (A,B,C)
J’ai besoin d’obtenir dans un nouveau tableau
Les résultats de la colonne A+B en 1ere colonne
Les résultats de la colonne A+C en deuxième colonne
et ainsi de suite B+C ….

J’ai essayé comme cela mais ca ne fonctionne pas :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Sub record() 
 
Dim table As Variant 
Dim output As Variant 
 
nbl = Worksheets("(3)data").Cells(1, 2) ‘me donne le nombre de ligne de mon tableau 
nbc = Worksheets("(3)data").Cells(2, 2) ‘ me donne le nombre de colonne de mon tableau 
 
ReDim table(1 To nbl, 1 To nbc) 
 
nbp = nbc * (nbc - 1) / 2 ‘ me donne le nombre de pair possibles 
 
ReDim output(1 To nbl, 1 To nbp) 
 
For i = 1 To nbc 
For j = 1 To nbl 
 
table(j, i) = Worksheets("(3)data").Cells(j, i) ‘rempli mon tableau table avec les données 
 
Next j 
Next i 
 
c = 1 
 
For k = 1 To nbc – 1 
For g = 2 To nbc 
For h = 1 To nbl 
 
 
output(h, c) = table(h, k) + table(h, g) ‘ici ca bloque. 
 
Next h 
 
c = 1 + c 
 
Next g 
 
Next k 
 
End Sub
une idee? merci pour votre aide