Somme de toutes les valeurs de 2 tableaux

Bonjour,

J'aimerais trouver une fonction qui calcule automatiquement la somme de toutes les valeurs d'un tableau.

Exemple : je dispose de 2 tableaux de valeurs en (A1,C3) et en (G1,H3) - Voir fichier joint

La fonction doit effectuer les opérations suivantes : A1+G1, A1+G2, A1+G3, A1+H1, A1+H2, A1+H3 et pareillement avec les autres valeurs du premier tableau (A2, A3, B1, B2, B3, C1, C2 et C3). Le résultat est un tableau de 54 valeurs

A savoir que je dispose réellement de 2 tableaux de plusieurs centaines de données chacune.

Je vous remercie

Christophe

Bonjour,

je dispose réellement de 2 tableaux de plusieurs centaines de données chacune.

Combien de colonnes et lignes max par tableaux? A quels emplacements? Où afficher les résultats?

En attendant que vous vous manifestiez, voici un premier jet:

Résultats à partir de la ligne 10 colonne A.

Cdlt

Pièce jointe supprimée le 09/06/2025

Bonjour,

Je vous remercie de votre réponse.

En géneral, je dispose d'un tableau de 96*96 sur la feuille 1 et d'un tableau de 24*24 sur la feuille 2 et le résultat doit s'afficher sur la feuille 3.

A savoir que la taille des tableaux peut varier.

En vous remerciant

Bonjour,

Voici le fichier, comme je n'ai pas suffisamment d'informations plus précises, j'ai supposé que dans vos tableaux de la feuille 1 et feuille 2, les premières valeurs se situent en cellule A1.

Une fois que les 2 tableaux seront remplis, allez sur la feuille 3 et cliquez sur le bouton "Calcul".

Nombre de combinaisons maximum =96 * 96 * 24 * 24 soit 5308416, comme ceci ne tiendrait pas dans une seule colonne, j'ai limité l'affichage à 60000 lignes et report sur les colonnes suivantes, ce qui fait que pour le nombre maximal de combinaisons, l'affichage se fait sur plus de 80 colonnes.

Cdlt

Pièce jointe supprimée le 09/06/2025

Bonjour à tous,

Une variante, sur le même principe...

Sub test()
 Dim tb1, tb2, tv()
 Dim i&, ii&, j&, jj&, k&
 Dim chrono

      tb1 = Sheets("Feuil1").Range("A1").CurrentRegion.Value
      tb2 = Sheets("Feuil2").Range("A1").CurrentRegion.Value
   chrono = Timer

    k = 0
    ReDim tv(0 To UBound(tb1, 1) * UBound(tb1, 2) * UBound(tb2, 1) * UBound(tb2, 2), 1 To 1)
     For i = 1 To UBound(tb1, 1)
      For ii = 1 To UBound(tb1, 2)
       For j = 1 To UBound(tb2, 1)
        For jj = 1 To UBound(tb2, 2)
         tv(k, 1) = tb1(i, ii) + tb2(j, jj)
         k = k + 1
        Next jj
       Next j
      Next ii
     Next i

    If k > 0 Then
     With Sheets("Feuil3")
      .Range("A1").CurrentRegion.ClearContents
      .Range("A1").Resize(k + 1, 1) = tv
     End With
    End If
   Erase tb1: Erase tb2: Erase tv
  MsgBox "Durée: " & Timer - chrono & " Sec "
End Sub

Cordialement,

Bonjour

Merci à tous

Cordialement

Christophe

Bonjour,

Merci pour le retour,

Pense à passer le sujet en résolu.

Bonne continuation,