VBA Excel aditionner les colonnes d un tableau

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:

---

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

Bonjour,

Un truc vite fait du genre.

Code:

---

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

Sub faire_addition()   Dim nb_col As Integer, nb_ligne As Integer Dim cpt_l As Integer, cpt_c As Integer, cpt_add As Integer Dim col_copie As Integer     nb_col = ActiveWorkbook.Sheets("Feuil1").Range("a1").End(xlToRight).Column nb_ligne = ActiveWorkbook.Sheets("Feuil1").Range("a65536").End(xlUp).Row   For cpt_l = 1 To nb_ligne col_copie = 0 For cpt_c = 1 To nb_col For cpt_add = cpt_c To nb_col If cpt_add <> nb_col Then col_copie = col_copie + 1 ActiveWorkbook.Sheets("Feuil2").Cells(cpt_l, col_copie).Value = ActiveWorkbook.Sheets("Feuil1").Cells(cpt_l, cpt_c).Value + ActiveWorkbook.Sheets("Feuil1").Cells(cpt_l, cpt_add + 1).Value End If Next cpt_add Next cpt_c Next cpt_l   End Sub

---

Cordialement

Merci je vais regarder cela, sinon j ai a la fin de mon code ceci:

Code:

---

1 2 3 4 5 6 7 8

For i = 1 To tot 'nombre de colonne   With Application.WorksheetFunction   Worksheets("test").Cells(1, i) = Round(.Min(.Index(ratio, 0, i)), 2)   End With Next i

---

Je cherche a avoir le min de chaque colonne mais le code bug pendant l execution soit pour i= 5 ou i=9 ou i=10 cela varie.

Comment puis-je eviter cela?

Merci

Bonjour
Je suppose que tes données initiales sont dans la feuille (3)data de A4:XXnn (avec XX la dernière colonne et nn le nombre de lignes). La ligne 3 est celle des titres des colonnes.

Le résultat final est inscrit dans la feuille Feuil2

Code à adapter éventuellement à ton fichier

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

Sub Record() Dim NbC As Integer, NbP As Integer, j As Integer, m As Integer, n As Integer Dim NbL As Long, i As Long Dim Table, Output   Application.ScreenUpdating = False With Worksheets("(3)data") NbL = .Cells(.Rows.Count, "A").End(xlUp).Row 'Donne la ligne de la dernière cellule remplie de la colonne A NbC = .Cells(3, .Columns.Count).End(xlToLeft).Column 'Donne la colonne de la dernière cellule remplie de la ligne 3 Table = .Range(.Cells(4, 1), .Cells(NbL, NbC)) NbL = NbL - 3 NbP = NbC * (NbC - 1) / 2 'Donne le nombre de pair possibles ReDim Output(1 To NbL, 1 To NbP) For m = 1 To NbC - 1 For n = m + 1 To NbC j = j + 1 For i = 1 To NbL Output(i, j) = Table(i, m) + Table(i, n) Next i Next n Next m End With Worksheets("Feuil2").Range("A1").Resize(NbL, NbP) = Output End Sub

---

bonjour,

merci pour vos réponses, qui m’ont permis d’arriver à sommer mes colonnes, seulement maintenant je n’arrive pas a sortir la valeur min de chaque colonne :

Code:

---

1 2 3 4 5 6

For w = 1 To tot ‘nombre de colonne   With Application.WorksheetFunction Worksheets("test").Cells(1, w) = Round(.Min(.Index(ratio, 0, w)), 2) End With Next w

---

Merci pour votre aide