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.
Kutools pour Excel - Boostez Excel avec plus de 300 outils essentiels. Profitez de fonctionnalités IA gratuites en permanence ! Obtenez-le maintenant
Démo : Trouver toutes les combinaisons possibles de deux listes avec Kutools pour Excel
Meilleurs outils de productivité pour Office
Améliorez vos compétences Excel avec Kutools pour Excel, et découvrez une efficacité incomparable. Kutools pour Excel propose plus de300 fonctionnalités avancées pour booster votre productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte l’interface par onglets à Office, simplifiant considérablement votre travail.
- Activez la modification 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é de50 % et réduit des centaines de clics de souris chaque jour !
Tous les modules complémentaires Kutools. Une seule installation
La suite Kutools for Office regroupe les modules complémentaires pour Excel, Word, Outlook & PowerPoint ainsi qu’Office Tab Pro, idéal pour les équipes travaillant sur plusieurs applications Office.
- Suite tout-en-un — modules complémentaires Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Un installateur, une licence — installation en quelques minutes (compatible MSI)
- Une synergie optimale — productivité accélérée sur l’ensemble des applications Office
- Essai complet30 jours — sans inscription, ni carte bancaire
- Meilleure valeur — économisez par rapport à l’achat d’add-ins individuels