bonsoir tout le monde j'ai besoin d'aide svp
j'ai une feuil nommé Dépens et SpinButton qui affiche les mois dans la Cellule "B1" a fin d'affiche les dépens du mois
ce que je veut si d'ajoute sur la feuil Dépens la Cellule "F1" pour insérer les années a fin qu'il m'affiche les résultats des Dépens du mois "B1" de l'année "F1" voila le code de SpinButton qui fonction bien mais juste pour les mois et voila une image des résultats par mois :
et voila le code
Excellente journée pour tt le monde
j'ai une feuil nommé Dépens et SpinButton qui affiche les mois dans la Cellule "B1" a fin d'affiche les dépens du mois
ce que je veut si d'ajoute sur la feuil Dépens la Cellule "F1" pour insérer les années a fin qu'il m'affiche les résultats des Dépens du mois "B1" de l'année "F1" voila le code de SpinButton qui fonction bien mais juste pour les mois et voila une image des résultats par mois :
et voila le code
VB:
Private Sub SpinButton1_Change()
monmois = Range("C1")
If monmois = "" Then Exit Sub
If monmois > 12 Then Exit Sub
Range("B1") = Choose(monmois, "JANVIER", "FEVRIER", "MARS", "AVRIL", "MAI", "JUIN", "JUILLET", "AOUT", "SEPTEMBRE", "OCTOBRE", "NOVEMBRE", "DECEMBRE")
Range("A1:G1").Select
Range("A3:G43").Select
Selection.ClearContents
With Worksheets("BDDDépens").Range("H2:H3000")
Set LaDate = .Find(monmois * 1.1, LookIn:=xlValues)
If Not LaDate Is Nothing Then
firstAddress = LaDate.Address
Do
a = a + 1
Cells(a + 2, 1) = LaDate.Offset(0, -7)
Cells(a + 2, 2) = LaDate.Offset(0, -6)
Cells(a + 2, 3) = LaDate.Offset(0, -5)
Cells(a + 2, 4) = LaDate.Offset(0, -4)
Cells(a + 2, 5) = LaDate.Offset(0, -3)
Cells(a + 2, 6) = LaDate.Offset(0, -2)
Cells(a + 2, 7) = LaDate.Offset(0, -1)
Set LaDate = .FindNext(LaDate)
Loop While Not LaDate Is Nothing And LaDate.Address <> firstAddress
End IfExcellente journée pour tt le monde