Comment trouver toutes les sommes possibles de deux nombres dans une liste sous Excel ?

Si vous avez besoin de trouver toutes les sommes possibles de deux nombres dans une liste ou de lister toutes les combinaisons possibles de deux listes dans Excel, il n'existe pas de fonctions intégrées pour y parvenir directement. Ce guide présente une solution en code VBA pour calculer les sommes et l'utilitaire Lister toutes les combinaisons dans Kutools pour Excel pour gérer efficacement les combinaisons.

Trouver toutes les sommes possibles de deux nombres dans une liste avec du code VBA

Trouver toutes les combinaisons possibles de deux listes avec Lister toutes les combinaisons

Trouver toutes les sommes possibles de deux nombres dans une liste avec du code VBA

Si vous souhaitez trouver toutes les sommes possibles de deux nombres dans une liste, vous pouvez appliquer le code VBA ci-dessous.

1. Appuyez sur Alt + F11 pour afficher la fenêtre Microsoft Visual Basic for Applications.

2. Cliquez sur Insérer > Module, copiez et collez le code ci-dessous dans le module.

VBA : Lister toutes les sommes possibles de deux nombres dans une liste

Sub Combinations()
'UpdatebyExtendoffice20180628
    Dim xRgArr
    Dim xNum As Long
    Dim I, J, K As Long
    Dim xTemp As Double
    Dim xRg As Range
    Dim xRgCount As Long
    Dim xDic As New Dictionary
    On Error Resume Next
    Set xRg = Application.InputBox("Select a list (one column):", "KuTools for Excel", Selection.Address, , , , , 8)
    If (xRg Is Nothing) Or (xRg.Count = 1) Then Exit Sub
    xRgCount = xRg.Count
    K = 1
    ReDim xRgArr(1 To xRgCount)
    For Each xCell In xRg
      xRgArr(K) = xCell.Value
      K = K + 1
    Next
    K = 0
    For I = 1 To xRgCount
        For J = I + 1 To xRgCount
            xTemp = xRgArr(I) + xRgArr(J)
            If Not xDic.Exists(xTemp) Then
                xDic.Add CDbl(xTemp), CStr(xTemp)
                K = K + 1
            End If
        Next
    Next
    Range("C1").Resize(xDic.Count, 1) = Application.WorksheetFunction.Transpose(xDic.Keys)
End Sub

3. Cliquez sur Outils > Références, dans la fenêtre qui s'affiche, cochez la case Microsoft Scripting Runtime.

4. Cliquez OK pour fermer la fenêtre, puis appuyez sur F5 pour exécuter le code. Une boîte de dialogue apparaîtra, vous invitant à sélectionner une liste pour calculer les sommes possibles.

5. Cliquez OK, puis toutes les sommes possibles de deux nombres de la liste seront affichées dans la colonne C.

Astuce : Dans la chaîne de code Plage("C1").Redimensionner(xDic.Count, 1), vous pouvez changer C1 en n'importe quelle autre cellule où vous souhaitez placer les résultats.

Trouver toutes les combinaisons possibles de deux listes avec Lister toutes les combinaisons

Si vous souhaitez lister toutes les combinaisons possibles de deux listes, comme illustré dans la capture d'écran ci-dessous, l'utilitaire Lister toutes les combinaisons de Kutools pour Excel peut vous aider.

1. Cliquez Kutools > Insérer > Lister toutes les combinaisons.

2. Dans la Lister toutes les combinaisons boîte de dialogue, cliquez sur le bouton Sélectionner pour choisir la première liste que vous combinerez.

3. Cliquez Ajouter pour ajouter la liste dans la section Liste des combinaisons section.

4. Répétez les étapes 2 et 3 pour ajouter la deuxième liste à la Liste des combinaisons.

5. Ensuite, cliquez Ok pour sélectionner une cellule où placer le résultat des combinaisons.

6. Cliquez OK. Toutes les combinaisons possibles ont été listées dans les cellules.

Démo : Trouver toutes les combinaisons possibles de deux listes avec Kutools pour Excel