KutoolsforOffice — Une solution unique, cinq outils puissants.Faire plus avec moins d'efforts.Soldes de mars : 20 % de réduction

Comment trouver toutes les combinaisons de sommes de deux nombres à partir d’une liste dans Excel ?

AuteurSun Date de modification

Si vous devez déterminer toutes les sommes possibles de deux nombres dans une liste ou générer toutes les combinaisons possibles à partir de deux listes sous Excel, aucune fonction intégrée ne permet d’obtenir directement ces résultats. Ce guide propose une solution fondée sur du code VBA pour calculer les sommes, ainsi que l’utilitaire « Lister toutes les combinaisons » de Kutools pour Excel afin de gérer efficacement les combinaisons.
Capture d’écran montrant une liste de nombres pour calculer toutes les sommes possibles dans Excel

Find all possible sums of two numbers in a list with VBA code

Find all possible combinations of two lists with List All Combinations Bonne idée3

Find all possible sums of two numbers in a list with VBA code

Pour déterminer toutes les sommes possibles de deux nombres dans une liste, appliquez le code VBA ci-dessous.

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

2. Cliquez sur Insertion > Module, puis copiez et collez le code ci-dessous dans le module.

VBA: List all possible sums of two numbers in a list

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

Capture d’écran de l’éditeur VBA affichant le code permettant de lister toutes les sommes possibles de deux nombres dans Excel

3. Cliquez sur Tools > References ; dans la boîte de dialogue qui s’ouvre, cochez la case Microsoft Scripting Runtime.

Capture d’écran illustrant l’option Références dans la fenêtre VBAFlèche droiteCapture d’écran montrant la boîte de dialogue Références dans VBA Excel pour activer la bibliothèque Microsoft Scripting Runtime

4. Cliquez sur OK pour fermer la boîte de dialogue, puis appuyez sur F5 pour exécuter le code. Une boîte de dialogue s’affiche alors et vous invite à sélectionner une liste afin de calculer les sommes possibles.
Capture d’écran affichant la boîte de dialogue permettant de sélectionner une liste pour calculer toutes les sommes possibles

5. Cliquez sur OK, puis toutes les sommes possibles de deux nombres issus de la liste s’affichent dans la colonne C.
Capture d’écran montrant toutes les sommes possibles de deux nombres listées dans la colonne C

Astuce : Dans la ligne de code Range("C1").Resize(xDic.Count, 1), vous pouvez remplacer C1 par n’importe quelle autre cellule où vous souhaitez afficher les résultats.

Find all possible combinations of two lists with List All Combinations

Si vous souhaitez répertorier toutes les combinaisons possibles de deux listes, comme illustré dans la capture d’écran ci-dessous, l’utilitaire List All Combinations de Kutools for Excel peut vous être d’une grande aide.
Capture d’écran présentant deux listes de valeurs destinées à créer toutes les combinaisons possibles dans Excel

Kutools pour Excelpropose plus de 300 fonctionnalités avancées pour simplifier les tâches complexes, stimulant ainsi créativité et efficacité.Intégré aux capacités de l’IA, Kutools automatise les tâches avec précision, rendant la gestion des données parfaitement fluide.Informations détaillées sur Kutools pour Excel...         Essai gratuit...

1. Cliquez sur Kutools > Insertion > Lister toutes les combinaisons.
Capture d’écran illustrant l’outil Lister toutes les combinaisons dans l’onglet Kutools d’Excel

2. Dans la boîte de dialogue List All Combinations, cliquez sur le bouton de sélection pour choisir la première liste à combiner.
Capture d’écran montrant la sélection de la première liste dans l’outil Lister toutes les combinaisons

3. Cliquez sur Add pour ajouter la liste à la section Combinations list.
Capture d’écran illustrant comment ajouter la première liste à la liste des combinaisons dans Kutools

4. Répétez les étapes 2 et 3 pour ajouter la deuxième liste à la section. Combinations list.
Capture d’écran illustrant comment ajouter la deuxième liste à la liste des combinaisons dans Kutools

5. Cliquez ensuite sur Ok pour sélectionner une cellule où placer les résultats des combinaisons.
Capture d’écran affichant la boîte de dialogue de sélection de cellule pour placer les combinaisons

6. Cliquez sur OK. Toutes les combinaisons possibles ont été répertoriées dans les cellules.
Capture d’écran montrant toutes les combinaisons possibles de deux listes créées dans Excel à l’aide de Kutools

Kutools pour Excel– Boostez Excel avec plus de 300 outils essentiels, pour gagner en rapidité et en simplicité, et profitez des fonctionnalités d’intelligence artificielle pour un traitement de données plus intelligent et une productivité accrue.Obtenez-le dès maintenant

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

Kutools pour Excel: Plus de 300 outils pratiques à portée de main ! Profitez de fonctionnalités alimentées par l’IA pour travailler plus intelligemment et plus rapidement !Téléchargez dès maintenant !

Meilleurs outils de productivité Office

🤖Kutools IA Aide: Révolutionnez Analyse des données grâce à :Exécution intelligente   |  Générez du code|  Créez formules personnalisées  |  Analysez des données et générez des graphiques|  Appelez Fonctions améliorées…
Fonctionnalités populaires:Rechercher, mettre en surbrillance ou Marquer les doublons   |  Supprimer les lignes vides   |  Combinez les colonnes ou cellules sans perdre de données   |   Arrondi sans utiliser de formule...
Super RECHERCHEV:RechercheValeurs avec critères multiples  |  RechercheValeurs avec valeurs multiples  |   RechercheValeurs dans plusieurs feuilles   |   Correspondance floue....
Liste déroulante avancée:Créez rapidement une liste déroulante   |  Liste déroulante dépendante   |  Liste déroulante à sélection multiple....
Gestionnaire de colonnes:Ajouter un nombre précis de colonnes|Déplacer des colonnes|Basculer la visibilité des colonnes masquées|Comparer des plages et des colonnes...
Fonctionnalités vedettes:Mise au point de la grille   |  Vue de conception   |Barre de formule améliorée   | Gestionnaire de classeurs et de feuilles   |  Bibliothèque de ressources(Texte automatique)|  Sélecteur de date   |  Consolider les feuilles de calcul  |  Chiffrer/Déchiffrer les cellules   | Envoyer des e-mails par liste   |  Super Filtre   |   Filtre spécial(Filtrer les cellules avec une police en gras/italique/barré...) ...
… et bien plus encore… et plus encore:(,)Supprimer des caractères spécifiques, ...)|   50+Typesde graphiques(, ...)|   40+ Formules pratiques(Calculer l'âge en fonction de la date de naissance, ...)|   19 Outils d’insertion(,Insérer une image depuis un chemin , ...)|   de conversion (Convertir en mots,Conversion de devises, ...)|Fusionner et scinder   (Fusion avancée des lignes,Diviser les cellules , ...)|, ...)   |
Utilisez Kutools dans la langue de votre choix – disponible en anglais, espagnol, allemand, français, chinois et 40+ autres langues !

Boostez vos compétences Excel avec Kutools pour Excel et découvrez une efficacité inégalée.Kutools pour Excel propose plus de 300 fonctionnalités avancées pour améliorer votre productivité et Gagner du temps.Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...

Office Tab apporte une interface à onglets à Office et rend votre travail bien plus facile

  • Activez l’édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
  • Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
  • Augmente votre productivité de 50 % et vous fait économiser des centaines de clics de souris chaque jour !

Tous les compléments Kutools. Un seul installateur

Kutools for Office regroupe les compléments pour Excel, Word, Outlook et PowerPoint, ainsi que Office Tab Pro, ce qui en fait le choix idéal pour les équipes travaillant à travers les applications Office.

ExcelWordOutlookTabsPowerPoint
  • Suite tout-en-un— Compléments Excel, Word, Outlook et PowerPoint + Office Tab Pro
  • Un seul installateur, une seule licence— installation en quelques minutes (compatible MSI)
  • Fonctionne mieux ensemble— productivité optimisée dans toutes les applications Office
  • Essai gratuit de 30 jours avec toutes les fonctionnalités— aucune inscription, aucune carte bancaire
  • Meilleur rapport qualité-prix— économisez par rapport à l’achat de compléments individuels