Determiner le client et la date par raport un montant
bonjour
j'ai deux feuil "achat" et "banq"
achat contient les opérations achats
banq contient les opérations banc
je souhaite que le code VBA après la saisie d'un montant dans la cellule B16 trouve le mois et le client qui correspond a cette somme
j'ai éditer un code très proche de ma question mais je ne sais pas comment ajouter des boucle pour le finir.
Sub trouve_le_montant()
Sub trouve_le_montant()
'1)Au debut toujour un filtre ur lr journal Achat
Sheets("Achat").ListObjects("Tabl").Range.AutoFilter Field:=7, Criteria1:="Achats"
'2)boucle du premier mois au dernier mois dans la colonne mois
'2)Filtre sur le premiere mois
Sheets("Achat").ListObjects("Tabl").Range.AutoFilter Field:=2, Operator:=xlFilterValues, Criteria2:=Array(1, "1/1/2019")
'3)boucle sur le premier compte qui commence par 40100 au dernier compte qui commence par 40100
Sheets("Achat").ListObjects("Tabl").Range.AutoFilter Field:=3, Criteria1:="401001"
If Sheets("Achat").Range("F1").Value = Sheets("banq").Range("B16").Value Then
Sheets("banq").Range("B14").Value = Sheets("Achat").Range("B3:B" & Range("B65536").End(xlUp).Row).SpecialCells(xlVisible).Cells(1, 1).Value
Sheets("banq").Range("B15").Value = Sheets("Achat").Range("B3:B" & Range("B65536").End(xlUp).Row).SpecialCells(xlVisible).Cells(1, 2).Value
End If
Sheets("Achat").ListObjects("Tabl").Range.AutoFilter Field:=3, Criteria1:="401002"
If Sheets("Achat").Range("F1").Value = Sheets("banq").Range("B16").Value Then
Sheets("banq").Range("B14").Value = Sheets("Achat").Range("B3:B" & Range("B65536").End(xlUp).Row).SpecialCells(xlVisible).Cells(1, 1).Value
Sheets("banq").Range("B15").Value = Sheets("Achat").Range("B3:B" & Range("B65536").End(xlUp).Row).SpecialCells(xlVisible).Cells(1, 2).Value
Exit Sub
End If
Sheets("Achat").ListObjects("Tabl").Range.AutoFilter Field:=3, Criteria1:="401003"
If Sheets("Achat").Range("F1").Value = Sheets("banq").Range("B16").Value Then
Sheets("banq").Range("B14").Value = Sheets("Achat").Range("B3:B" & Range("B65536").End(xlUp).Row).SpecialCells(xlVisible).Cells(1, 1).Value
Sheets("banq").Range("B15").Value = Sheets("Achat").Range("B3:B" & Range("B65536").End(xlUp).Row).SpecialCells(xlVisible).Cells(1, 2).Value
Exit Sub
End If
'8)Next N°compte commence par 40100
'9)Next mois
End SubBonjour,
Une question : D'où vient le montant saisi de 85.741,67 dans la feuille banq ?
Cdlt.
Bonjour,
A priori ... pas besoin de macro ...
Ci-joint ton fichier test ...
Bonjour,
Lorsque tu auras eu le temps de faire tes tests ... tiens-moi au courant ...
bonjour
Merci beaucoup pour votre formule
les deux résultat sont justes
Une petite question comment modifier votre formule pour obtenir cette résultat.
PERIODE janv-19
N° COMPTE 401003 au lieu de 300001 parce que je cherche le nom du fournisseur
MONTANT 85 741,63
c'est a dire le montant 85 741,63 représente mes achats du mois janv-19 de pour le fournisseur CCC sont code 401003
Un autre exemple
Si je prend mon relevé bancaire et je cherche le montant 73 142,00
résultat
PERIODE mars-19
N° COMPTE DDD parce que le fournisseur DDD sont code 401004
MONTANT 73 142,00
Bonjour,
Ci-joint ton fichier ... avec la correction demandée ..
En passant ... comme une règle en Or massif :
JAMAIS JAMAIS de CELLULES FUSIONNEES ...
Elles ne feront que te causer de Gigantesques problèmes ... !!!!
un merci et insuffisant pour vous
tous mérite mille merci