Bonjour,
je souhaite réaliser une fonction en vba (je ne suis que débutant) activé en cliquant sur un bouton permettant de :
->Calculer le nombre de fois que sont répertorié dans la feuil1 colonne 2 des dates comprise entre le 01/xx/xxxx et le 31/xx/xxxx et ce jusqu'en 2040.
Du coup en feuil2 j'ai écrit dans la colonne 1 (de A2 à A 267 car ça commence en octobre 2017) les mois et années
Dans la ligne 1 de la feuil2 ce sont les en-tetes de mon tableau
j'ai créer un bouton avec VBA
J'ai essayer d'écrir la fonction que je veut mais il semblerait qu'il y ait une erreur et que sans doute mon code n'est pas parfait...
Aussi j'aimerais avoir votre aide pour corriger tout cela et m'expliquer mes erreurs également pour progresser
je vous remercie
Private Sub Activer_Click()
Calcul_nbformation().Activate
End Sub
Private Sub Calcul_nbformation()
Dim i As Integer: Dim j As Integer: Dim date_deb As Integer: Dim date_fin As Integer: Dim k As Integer: Dim b As Integer
For i = 2 To 150
j = i - 2
b = 0
date_deb = DateAdd(m, j, 1 / 9 / 2017)
date_fin = DateAdd(m, j, , 31 / 9 / 2017)
For k = 2 To 100000
Dim a As Integer
a = Sheets("Feuil1").[Cells(2, k)] + 10
If((a.value<=date_deb.value)And( a.value>=date_deb.value)) then (b=b++)
Next
Cells(1, i) = b
Next
End Sub