Retrouver les sommes d'un montant
Bonjour à tous,
Me voilà face à un petit problème.
J'ai un tableau Excel dans lequel je suis amené à rentrer plusieurs montants dans la colonne A. Dans ces montants, je dois retrouver quels montants parmi ceux inscrits font la somme à chercher.
Ex :
----------A----------
1---150.00 €
2---300.00 €
3---500.00 €
4---1 000.00 €
5------------------
6---1 300.00 € < SOMME A CHERCHER
Je souhaiterais sur cet exemple, s'il était possible qu'il détecte quels montants font 1300.00 € ?
Ex :
----------A---------------B------------
1---150.00 €----I------Non-------
2---300.00 €----I------Oui--------
3---500.00 €----I------Non-------
4---1 000.00 €--I------Oui--------
5------------------
6---1 300.00 € < SOMME A CHERCHER
J'ai mis par exemple l'affichage de "oui" et "non" mais peu importe ce qu'il apparaît.
Je vous remercie d'avance pour vos réponses.
Si vous avez besoin de plus d'infos, n'hésitez pas ...
Yahoo49
PS : Voici mon fichier en simplifié > https://www.excel-pratique.com/~files/doc/montants_a_chercher.xlsx
Bonjour et bienvenu,
En attendant du mieux, essaye la formule suivante dans la cellule B1 et recopie vers le bas :
=NON(ESTNA(RECHERCHEV($A$6-A1;$A$1:$A$4;1;0)))PS : Attention ! je ne traite que le cas des 2 montants qui fait exactement la somme. Si tel n'est pas le cas, reviens nous voir.
Merci pour ta réponse
En recopiant comme tu l'a dis, j'obtiens :
----------A---------------B------------
1---150.00 €----I------VRAI-------
2---300.00 €----I------FAUX--------
3---500.00 €----I------FAUX-------
4---1 000.00 €--I-- ---FAUX--------
5------------------
6---1 300.00 € < SOMME A CHERCHER
Ce test est seulement simplifié, car j'aurais des cas où il y aura plus de 20 montants à retrouver ...
Pourrais tu m'expliquer le détail de ta formule STP ?
Yahoo49
Tu as dû faire une erreur dans la rédaction de la formule yahoo car elle fonctionne bien.
Re,
Je te préconise de faire un petit fichier simple et de nous l'envoyer. Pour résoudre ton problème, ça sera plus simple. Et aussi, bien expliquer le problème dans sa totalité dans le fichier lui même et le résultat que tu veux obtenir. Quant aux résultats de la colonne B, avec ma formule, moi j'obtiens FAUX, VRAI,FAUX,VRAI.
Ok, je vous prépare ça.
En effet, elle fonctionne parfaitement !
Voici un fichier Test https://www.excel-pratique.com/~files/doc/859gGmontants_a_chercher.xlsx
Dans celui-ci vous verrez que j'ai mis en rouge manuellement les montants qui constituent la somme.
J'ai laissé la formule que vous m'avez donné pour le moment.
Je vous remercie grandement du temps que vous m'accordez
Il est important, yahoo, de joindre des fichiers sauvegardés dans une version antérieure à Excel 2007 pour que tu puisses recevoir la meilleure aide possible et pour qu'ils puissent être consultés par tous.
Voici le fichier de yahoo dans une version antérieure :
Salut Nad,
j'ai exécuté 4 tests avec le fichier que tu proposes et il a échoué dans un cas.
https://www.excel-pratique.com/~files/doc/Copy_of_LettrageTI.xls
Les test sont les valeurs en A17:A20
Ai-je commis une erreur de manipulation? Car je l'ai tout de même répété 3 fois pour être certain.
Merci vraiment !
Je teste cela cette aprem' et vous tiens au courant, c'est l'heure d'aller manger ...
Merci à vous Raja, EricF et Nad-Dan !
L'outil est parfait, j'ai fait plusieurs tests, tous ont été ok, il ne faut pas laissé de cellules vides dans la colonne A par contre.
Vous avez été très efficace et vous m'avez fourni un outil très précieux !!!
Merci merci merci !!!!!
Yahoo49 -
Me revoilà avec mes sommes !
Après avoir tester votre fichier, je me retrouve lorsque je tente de lancer la macro à un message d'erreur :
Erreur d'exécution '13'
Incompatibilité de type
Sub ChercheSomme()
Dim Tableau() As Double, Plage As Range, Cel As Range
Dim Boucle As Integer, NbSol As Long, K As Integer
Dim TabCombin, Boucle2 As Integer, Montant As Double
Dim NbVal As Integer, Mini As Integer, Maxi As Integer
With Application
.Calculation = xlCalculationManual
.ScreenUpdating = False
With F4
Set Plage = .Range("BaseDep", .Range("BaseDep").End(xlDown))
Set Cel = .Range("_Sol1")
Range(Cel, Cel.End(xlDown)).Resize(, 200).ClearContents
Montant = .Range("Montant")
DetermineMinMax .Range("NbValeurs"), Mini, Maxi, Plage.Rows.Count
End With
ReDim Tableau(1 To Plage.Rows.Count)
For Boucle = 1 To Plage.Rows.Count
Tableau(Boucle) = Plage.Cells(Boucle, 1) >>> Ici l'erreur
Next Boucle
For K = Mini To Maxi
DoEvents
TabCombin = SommeKSurN(Tableau, K, Montant)
If IsArray(TabCombin) Then
For Boucle = LBound(TabCombin, 2) To UBound(TabCombin, 2)
NbSol = NbSol + 1
Cel = NbSol
For Boucle2 = 1 To K
Cel.Offset(0, Boucle2) = TabCombin(Boucle2, Boucle)
Next Boucle2
Set Cel = Cel.Offset(1, 0)
Next Boucle
End If
Next K
.Calculation = xlCalculationAutomatic
.ScreenUpdating = True
End With
End Sub
Pourriez vous m'aider, j'ai fait des recherches et cela viendrait de la déclaration de la variables ...
Ma première colonne fait désormais 2504 lignes Les montants vont de - 4000€ à + 370000 €.
J'ai aussi fait une macro permettant de trier cette première colonne !
Merci d'avance
Bonjour
Les macros c'est pas trop mon truc, mais essaye de modifier tous les
... As Integer
par
As Byte
Si ce n'est pas ça, nos Vbaïstes préférés vont te trouver ça.
Amicalement
Nad
Merci Nad-Dan pour ta solution mais cela ne fonctionne pas.
J'ai essayé de mettre As Long et il me produit une autre erreur
"Code erreur 6"
up !
Salut le forum
C'est bien la première fois que je vois un modérateur faire un UP
- Les macros c'est pas trop mon truc, mais essaye de modifier tous les
... As Integer
par
As Byte
Tu devrais plutot joindre ton fichier
C'est pas évident de travailler avec une balise Code sans fichier
Mytå
Bonjour
Myta, le fichier se trouve en page 1 (Macro de Ti)
Si j'ai fait remonter le fil, c'est que la réponse m'intéresse également.
Amicalement
Nad
Coucou tout le monde en ce Lundi Matin pluvieux
Je ne peux envoyer mon fichier, la taille est trop grande apparement.
Comment puis-je faire ?
Ça dépend jusqu'à quel point la taille est trop grande. Sous les 500ko, tu peux passer par ici