XL 2016 calcule du nombre de ligne

  • Initiateur de la discussion Initiateur de la discussion trabe
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

trabe

XLDnaute Nouveau
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

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
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
4
Affichages
177
Réponses
8
Affichages
233
Réponses
2
Affichages
153
Réponses
3
Affichages
193
  • Question Question
Microsoft 365 Problème de date
Réponses
5
Affichages
162
  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
479
Réponses
10
Affichages
281
Réponses
2
Affichages
201
Retour