XL 2016 calcule du nombre de ligne

[trabe]

Bonjour
je suis débutante en VBA j'ai une petite question
j'ai envie de calculer le nombre de sinistre que j'ai par mois mais sa ne marche pas si vous pouviez m'aider
merci
mon tableau excel est sous cette forme
Date_Souscription_Adhésion Date_Survenance Statut_Technique_Sinistre
04/01/2013 23/07/2013 Annulé Gestion
06/01/2013 23/02/2013 Annulé Gestion
18/01/2013 31/01/2013 Terminé sans suite
28/01/2013 04/09/2013 Terminé - accepté
27/01/2013 01/02/2013 Terminé - Refusé après instruction
21/01/2013 06/03/2013 En attente de prescription
08/01/2013 09/01/2013 Terminé - accepté
voici mon code

Sub test()

    Dim Date_Souscription_Adhésion As Range 'définit les variables
    Dim Date_Survenance As Range
    Dim i As Integer
    Dim j As Integer
    Dim DernLigne1 As Long
    Dim DernLigne2 As Long
    Dim nblignes As Integer
   
    Worksheets("Feuil1").Activate
   
    DernLigne1 = Sheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row 'définit la dernière ligne colonne A
    DernLigne2 = Sheets("Feuil1").Range("B" & Rows.Count).End(xlUp).Row 'définit la dernière ligne colonne B
   
    Set Date_Souscription_Adhésion = Sheets("Feuil1").Range("A2:A" & DernLigne1) 'définit la colonne A
    Set Date_Survenance = Sheets("Feuil1").Range("B2:B" & DernLigne2) 'définit la colonne B
   
        nblignes = 0
       ' nblignes2 = 0
   
        For i = 1 To Date_Souscription_Adhésion.Rows.Count ' boucle sur la colonne A
        For j = 1 To Date_Survenance.Rows.Count ' boucle sur la colonne B
               
                If Year(Date_Souscription_Adhésion(i, 1)) = 2013 Then 'i étant la ligne de 2 à dernière ligne et 1 la colonne A
                    If Month(Date_Souscription_Adhésion(i, 1)) = 1 Then
                        If Year(Date_Survenance(j, 1)) = 2013 Then 'j étant la ligne de 2 à dernière ligne et 1 la colonne B
                        If Month(Date_Survenance(j, 1)) = 7 Then
                            MsgBox Range("A2", Range("A8").End(xlUp)).Rows.Count 'compter le nombre de ligne
                        End If
                        End If
                    End If
                    If Month(Date_Souscription_Adhésion(i, 1)) = 1 Then
                        If Year(Date_Survenance(j, 1)) = 2013 Then 'j étant la ligne de 2 à dernière ligne et 1 la colonne B
                        If Month(Date_Survenance(j, 1)) = 2 Then
                            nblignes2 = Range("B2", Range("B7").End(xlUp)).Rows.Count 'compter le nombre de ligne
                        End If
                        End If
                     End If
                End If
               
               
        Next j
        Next i
   
   ' MsgBox "le nombre de sinistre declarer en fevrier est" & nblignes2
End Sub

 

[pierrejean]

Bonjour trabe
Avant d’espérer une petite réponse tu devrais mettre un petit fichier (sans données confidentielles)

 

[trabe]

MERCI

 

[mutzik]

bonjour,

pourquoi tant de vba alors qu'une formule suffit

 

[trabe]

j'ai envie de calculer le nombre de ligne après plusieurs condition
pour i parcourant la plage de la date de souscription et pour j parcourant la plage de la date de survenance
si la cellule de la date de souscription est égal a janvier 2013 et si la date de survenance c'est janvier 2013 et le mois de la date de souscription c janvier et celle de la date de survenance aussi alors je compte le nombre de ligne qu'il y'a et je met la solution dans la cellule E2
si la cellule de la date de souscription est égal a janvier 2013 et si la date de survenance c'est janvier 2013
et si le mois de la date de souscription c janvier et celle de la date de survenance c fevrier alors je compte le nombre de ligne qu'il y'a et je met la solution dans la cellule E3

voila pq autant de vba

 

[trabe]

meerci Bertrand mais il me faut une macro