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 Sub