VBA Ligne "oubliée " après comparaison Résolu

Question

Bonjour, 

Je veux compter le nombre d'opérations, par mois selon le type d'OP.


Malheureusement, quand je change de mois, la 1ère ligne n'est pas comptabilisée car elle n'est pas égale à celle d'avant.
Exemple : le 01/09/2013 ne sera pas comptée car différente de la ligne d'au dessus du 31/08/2013.

Ci-joint mon code qui fonctionne mais qui "oublie" chaque 1ere ligne de mois:

Sub extractBOT()

Sheets("Feuil1").Activate
Dim Mois As Byte
Dim m As Double
Dim n As Double
Dim o As Double
Dim p As Double
Dim j As Double
j = 2

m = 0
n = 0
o = 0
p = 0
r = 0




nbcolonne1 = Sheets("Feuil1").UsedRange.Columns.Count 'compte le nombre de colonnes non vides sur la feuille 1
nbligne1 = Sheets("Feuil1").UsedRange.Rows.Count 'compte le nombre de lignes non vides sur la feuille 1

For i = 2 To nbligne1

Mois = Month(CDate(Cells(i, 20)))
Cells(i, 23).Value = Mois

Annee = Year(CDate(Cells(i, 20)))
Cells(i, 24).Value = Annee
Next

For i = 2 To nbligne1

    If Cells(i, 23).Value = Cells(i - 1, 23) And Cells(i, 24).Value = Cells(i - 1, 24) Then
    
        If Cells(i, 5).Value = "COMMISSION" Then
                n = n + 1
                r = r + 1
                
        'ElseIf Cells(i, 5).Value = "COMMISSION" And Cells(i, 2).Value = "RECEIPT" Then
               'm = m + 1
               'r = r + 1
           
        ElseIf Cells(i, 5).Value = "PRINCIPAL" And Cells(i, 2).Value = "PAYMENT" Then
            
                o = o + 1
                r = r + 1
        ElseIf Cells(i, 5).Value = "PRINCIPAL" And Cells(i, 2).Value = "RECEIPT" Then
                p = p + 1
                r = r + 1
            
        End If
        
    Else
            Sheets("Feuil2").Cells(j, 1).Value = n
            Sheets("Feuil2").Cells(j, 2).Value = m
            Sheets("Feuil2").Cells(j, 3).Value = o
            Sheets("Feuil2").Cells(j, 4).Value = p
            Sheets("Feuil2").Cells(j, 5).Value = r
            j = j + 1
            m = 0
            n = 0
            o = 0
            p = 0
    End If
    
Next

Sheets("Feuil2").Activate
End Sub




Quequ'un aurait il une idée svp ?




Configuration: Windows XP / Internet Explorer 8.0

Hermios · Answer

Salut
J'avoue que voir du script comme ca sans visuel du tableur, c'est un peu compliqué.
Alors de ce que j'ai compris, tu pourrais 
1- récupérer la date de Cell(i,23) et de Cell(i,24)
2- Comparer à la date de Cell(i-1,23), respct. Cell(i-1,24) OU comparer à la date du jour précédent (que tu auras calculé à partir de la date récupérée en 1).

Hermios

klissou69 · Answer

Salut Hermios. 

Merci pour ta réponse.

En fait c'est déja ce que je fais. Je récupère dans me cellule (i,20) le mois et l'année que je copie en cellules (i,23 ) et (i,24). Ensuite, je compare ces cellules entre i et i-1 pour pouvoir compter le nombre d'opération par mois ( même i ). 

Le souci, c'est qu'en changeant de mois ( par exemple en passant de la date 31/08/2013 à 01/09/2013 ) , du coup la valeur de (i,23) et (i-1,23) n'est forcément plus égale donc je saute celle ligne. Mais elle m'intéresse quand même, je veux compter cette ligne aussi car elle fait partie du mois suivant !

Est-ce plus clair pour toi et vois tu une solution ? :)

Hermios · Answer

Idée un petit idiote, mais... tu pourrais pas simplement incrémenter artificiellement de 1? Puisque ton programme va systématiquement ignorer la première ligne...
Dsl si ca marche pas. dans ce cas, je te conseille vivement d'attacher un screenshot de ta feuille (voir ta feuille elle même), avec des valeurs fakes, peu importe. Mais ca sera plus simple pour se représenter le tout!

klissou69 · Answer

Si j'incrémente de 1, cela va quand même sauter mes 1 ères ligne de chaque mois, alors que j'en ai besoin.

https://www.cjoint.com/?3GeoB1YhysD

Ci-joint un exemple avec les 3 colonnes intéressantes.

Hermios · Answer

Arf, je comprend mieux.
Bon, je te conseille de changer ton système :
1- tu crées une variable month
2- tu crées une variable year
3- Loop sur tes lignes
if month et year sont nulles, ou différentes de la valeur dans Cell(i,23) et Cell(i,24), 
       year et month prennent les valeurs de cette cellule, 
       If year et month ne sont pas nulles, 
                tu récupères les valeurs j,m,n, o et p, 
                tu réinitialises ceux-ci
       End If
End If
Tu fais tes incrémentations de j,r,m,n, o et p sur cette cellule

end loop
Tu récupères les valeurs j,m,n, o et p
Ca devrait marcher, je pense

klissou69 · Answer

Ok je vais bidouiller et essayer de suivre tes instructions.

Peux tu juste m'éclairer sur le :
 " 3- Loop sur tes lignes " qui ne m'est pas très familier stp .

Je te remercie :)

Hermios · Answer

C'est tout simplement ton :
For i = 2 To nbligne1 :D

klissou69 · Answer

En relisant ta réponse j'ai un petit doute sur quelque chose.
J'ai une contrainte car je dois compter le nombre d'opérations différentes PAR MOIS. Exemple, en juillet, il s'est passé 2 opération de type PAYMENT et 1 opération de type CREDIT. D'ou ma contrainte de comparer MOIS et ANNEE.

Pourrais-tu un peu expliciter ton idée sur les conditions suivantes :
"if month et year sont nulles, ou différentes de la valeur dans Cell(i,23) et Cell(i,24), 
year et month prennent les valeurs de cette cellule, 
If year et month ne sont pas nulles, "

Merci pour ton aide.

Hermios · Answer

Re
month et year sont des variables que tu as déclarées au préalable, mais pas définies. Donc, la premiére fois que tu veux comparer ta ligne à ces dates, elles seront nulles, et tu risques de recevoir une erreur. D'où l'idée de d'abord vérifier si elles sont nulles (dans ce cas, cela signifie que tu commences ton loop), puis sinon, de vérifier qu'elles sont différentes des valeurs de ta cellule(Dans ce cas, ca signifie que ta ligne actuelle correspond à un nouveau mois.)
Dans ces deux cas, tu vas (re)initialiser month et year par rapport au mois actuel.
Mais tu dois conserver les opérations comptabilisées auparavant.
Quand je parle de comparer, il s'agit bien sur de compater Cell(i,23) avec Month, d'une part,. et Cell(i,24) avec year d'autre part.

J'espère que c'est plus clair.

@+ Hermios

klissou69 · Answer

Si tu veux, j'ai crée mes variables Année et Mois pour écrire le mois et l'année dans les cellules 23 et 24 pour simplier la comparaison. J'ai seulement à lire le contenu de ces cellules pour ensuite comparer. Je viens de produire le code suivant, qui me semble coller à tes conseils : Sub extractBOT() Sheets("Feuil1").Activate Dim Mois As Byte Dim Annee As Byte Dim m As Double Dim n As Double Dim o As Double Dim p As Double Dim j As Double Dim VarMois As Double Dim VarAnnee As Double j = 2 m = 0 n = 0 o = 0 p = 0 r = 0 VarMois = 0 VarAnnee = 0 nbcolonne1 = Sheets("Feuil1").UsedRange.Columns.Count 'compte le nombre de colonnes non vides sur la feuille 1 nbligne1 = Sheets("Feuil1").UsedRange.Rows.Count 'compte le nombre de lignes non vides sur la feuille 1 For i = 2 To nbligne1 Mois = Month(CDate(Cells(i, 20))) Cells(i, 23).Value = Mois Annee = Year(CDate(Cells(i, 20))) Cells(i, 24).Value = Annee Next For i = 2 To nbligne1 If (VarMois = 0 And VarAnnee = 0) Or (VarMois <> Cells(i, 23).Value And VarAnnee <> Cells(i, 24).Value) Then If VarMois <> 0 And VarAnnee <> 0 Then If Cells(i, 23).Value = Cells(i - 1, 23) And Cells(i, 24).Value = Cells(i - 1, 24) Then If Cells(i, 5).Value = "COMMISSION" Then n = n + 1 r = r + 1 'ElseIf Cells(i, 5).Value = "COMMISSION" And Cells(i, 2).Value = "RECEIPT" Then 'm = m + 1 'r = r + 1 ElseIf Cells(i, 5).Value = "PRINCIPAL" And Cells(i, 2).Value = "PAYMENT" Then o = o + 1 r = r + 1 ElseIf Cells(i, 5).Value = "PRINCIPAL" And Cells(i, 2).Value = "RECEIPT" Then p = p + 1 r = r + 1 End If Else Sheets("Feuil2").Cells(j, 1).Value = n Sheets("Feuil2").Cells(j, 2).Value = m Sheets("Feuil2").Cells(j, 3).Value = o Sheets("Feuil2").Cells(j, 4).Value = p Sheets("Feuil2").Cells(j, 5).Value = r j = j + 1 m = 0 n = 0 o = 0 p = 0 End If End If End If Next Sheets("Feuil2").Activate End Sub J'ai une erreur sur la ligne : Annee = Year(CDate(Cells(i, 20))) qui fontionnait et qui n'a pas subi de modification.

Hermios · Answer

Plutôt étrange que tu aies une erreur, puisque ca n'a pas été changé.
ca dit quoi comme erreur?

klissou69 · Answer

erreur d'exécution '6' : Dépassement de capacité.

J'ai peut être une erreur dans une de mes boucles ?

Hermios · Answer

Je sais pas pour cette erreur, mais effectivement, tu n'as pas reproduit ce que je t'ai décrit: Tu continues à comparer la valeur de la cellule i avec celle de la cellule i-1, là où tu devrais uniqueemnet comparer avec month et year. (En gros, supprime cette ligne). De plus, Entre le "If (VarMois = 0 And VarAnnee = 0) Or (VarMois <> Cells(i, 23).Value And VarAnnee <> Cells(i, 24).Value) Then" et le "If VarMois <> 0 And VarAnnee <> 0 Then," tu dois rénitialiser tes valeurs (Dans ces deux cas, tu dois réinitialiser ces valeurs, mais si la deuxième condition est vraie, tu dois en plus recupérer les valeurs j,n,m,o,p... Bon, déjà ca, pour le reste, on pourra voir plus tard.

klissou69 · Answer

Bon j'ai tenté une nouvelle fois de suivre tes conseils. J'ai toujours la même erreur. Mais je ne comprends pas pourquoi on mets les valeurs à 0 au début alors qu'elles sont remises à 0 en fin de boucle. Sub extractBOT() Sheets("Feuil1").Activate Dim Mois As Byte Dim Annee As Byte Dim m As Double Dim n As Double Dim o As Double Dim p As Double Dim j As Double Dim VarMois As Double Dim VarAnnee As Double j = 2 m = 0 n = 0 o = 0 p = 0 r = 0 VarMois = 0 VarAnnee = 0 nbcolonne1 = Sheets("Feuil1").UsedRange.Columns.Count 'compte le nombre de colonnes non vides sur la feuille 1 nbligne1 = Sheets("Feuil1").UsedRange.Rows.Count 'compte le nombre de lignes non vides sur la feuille 1 For i = 2 To nbligne1 Mois = Month(CDate(Cells(i, 20))) Cells(i, 23).Value = Mois Annee = Year(CDate(Cells(i, 20))) Cells(i, 24).Value = Annee Next For i = 2 To nbligne1 If (VarMois = 0 And VarAnnee = 0) Or (VarMois <> Cells(i, 23).Value And VarAnnee <> Cells(i, 24).Value) Then m = 0 n = 0 o = 0 p = 0 If VarMois <> 0 And VarAnnee <> 0 Then m = 0 n = 0 o = 0 p = 0 If Cells(i, 5).Value = "COMMISSION" Then n = n + 1 r = r + 1 'ElseIf Cells(i, 5).Value = "COMMISSION" And Cells(i, 2).Value = "RECEIPT" Then 'm = m + 1 'r = r + 1 ElseIf Cells(i, 5).Value = "PRINCIPAL" And Cells(i, 2).Value = "PAYMENT" Then o = o + 1 r = r + 1 ElseIf Cells(i, 5).Value = "PRINCIPAL" And Cells(i, 2).Value = "RECEIPT" Then p = p + 1 r = r + 1 End If Else Sheets("Feuil2").Cells(j, 1).Value = n Sheets("Feuil2").Cells(j, 2).Value = m Sheets("Feuil2").Cells(j, 3).Value = o Sheets("Feuil2").Cells(j, 4).Value = p Sheets("Feuil2").Cells(j, 5).Value = r j = j + 1 m = 0 n = 0 o = 0 p = 0 End If End If Next Sheets("Feuil2").Activate End Sub

Hermios · Answer

Re, Hum, tu t'es trompé, mais en fait moi aussi! Pour ton loop : If date de la cellule actuelle<>date enregistrée (mois et année)) mais que date enregistrée<>0 Je récupère les données if date de cellule actuelle<>date enregistrée date enregistrée=date de cellule actuelle j,m,n etc. remis à 0 Fin if Fin if incrémentation de j,m,n... Fin loop je récupères les données

klissou69 · Answer

On va y arriver ! Une tentative de plus, j'espère ne pas m'être mélangé entre les "récupérations de données" car la je t'avoue que je commence un peu à m'embrouiller :x Sub extractBOT() Sheets("Feuil1").Activate Dim Mois As Byte Dim Annee As Byte Dim m As Double Dim n As Double Dim o As Double Dim p As Double Dim j As Double Dim VarMois As Double Dim VarAnnee As Double j = 2 m = 0 n = 0 o = 0 p = 0 r = 0 VarMois = 0 VarAnnee = 0 nbcolonne1 = Sheets("Feuil1").UsedRange.Columns.Count 'compte le nombre de colonnes non vides sur la feuille 1 nbligne1 = Sheets("Feuil1").UsedRange.Rows.Count 'compte le nombre de lignes non vides sur la feuille 1 For i = 2 To nbligne1 Mois = Month(CDate(Cells(i, 20))) Cells(i, 23).Value = Mois Annee = Year(CDate(Cells(i, 20))) Cells(i, 24).Value = Annee Next For i = 2 To nbligne1 If VarMois <> 0 And VarAnnee <> 0 And VarMois <> Cells(i, 23).Value And VarAnnee <> Cells(i, 24).Value Then Sheets("Feuil2").Cells(j, 1).Value = n Sheets("Feuil2").Cells(j, 2).Value = m Sheets("Feuil2").Cells(j, 3).Value = o Sheets("Feuil2").Cells(j, 4).Value = p Sheets("Feuil2").Cells(j, 5).Value = r If VarMois <> Cells(i, 23).Value And VarAnnee <> Cells(i, 24).Value Then If Cells(i, 5).Value = "COMMISSION" Then n = n + 1 r = r + 1 'ElseIf Cells(i, 5).Value = "COMMISSION" And Cells(i, 2).Value = "RECEIPT" Then 'm = m + 1 'r = r + 1 ElseIf Cells(i, 5).Value = "PRINCIPAL" And Cells(i, 2).Value = "PAYMENT" Then o = o + 1 r = r + 1 ElseIf Cells(i, 5).Value = "PRINCIPAL" And Cells(i, 2).Value = "RECEIPT" Then p = p + 1 r = r + 1 End If Else j = j + 1 m = 0 n = 0 o = 0 p = 0 End If End If Next Sheets("Feuil2").Activate End Sub PS : j'ai toujours la même erreur

Hermios · Answer

Presque, mais non Init des données : m = 0 n = 0 o = 0 p = 0 Ca doit se placer après la condition If VarMois <> Cells(i, 23).Value And VarAnnee <> Cells(i, 24).Value Then et après l'init des données, tu dois terminer ta condition->End If Pour l'erreur, je suis perplexe, mais faudra que tu testes par toi même.

klissou69 · Answer

Une dernière tentative pour ce soir, sinon je continuerais demain. En espérant que cette fois-ci la procédure soit cohérente. Je testerai pour essayer de comprendre l'erreur. En tout cas je te remercie pour ton aide et tes conseils. Bonne soirée. Sub extractBOT() Sheets("Feuil1").Activate Dim Mois As Byte Dim Annee As Byte Dim m As Double Dim n As Double Dim o As Double Dim p As Double Dim j As Double Dim VarMois As Double Dim VarAnnee As Double j = 2 m = 0 n = 0 o = 0 p = 0 r = 0 VarMois = 0 VarAnnee = 0 nbcolonne1 = Sheets("Feuil1").UsedRange.Columns.Count 'compte le nombre de colonnes non vides sur la feuille 1 nbligne1 = Sheets("Feuil1").UsedRange.Rows.Count 'compte le nombre de lignes non vides sur la feuille 1 For i = 2 To nbligne1 Mois = Month(CDate(Cells(i, 20))) Cells(i, 23).Value = Mois Annee = Year(CDate(Cells(i, 20))) Cells(i, 24).Value = Annee Next For i = 2 To nbligne1 If VarMois <> 0 And VarAnnee <> 0 And VarMois <> Cells(i, 23).Value And VarAnnee <> Cells(i, 24).Value Then Sheets("Feuil2").Cells(j, 1).Value = n Sheets("Feuil2").Cells(j, 2).Value = m Sheets("Feuil2").Cells(j, 3).Value = o Sheets("Feuil2").Cells(j, 4).Value = p Sheets("Feuil2").Cells(j, 5).Value = r End If If VarMois <> Cells(i, 23).Value And VarAnnee <> Cells(i, 24).Value Then m = 0 n = 0 o = 0 p = 0 r = 0 If Cells(i, 5).Value = "COMMISSION" Then n = n + 1 r = r + 1 'ElseIf Cells(i, 5).Value = "COMMISSION" And Cells(i, 2).Value = "RECEIPT" Then 'm = m + 1 'r = r + 1 ElseIf Cells(i, 5).Value = "PRINCIPAL" And Cells(i, 2).Value = "PAYMENT" Then o = o + 1 r = r + 1 ElseIf Cells(i, 5).Value = "PRINCIPAL" And Cells(i, 2).Value = "RECEIPT" Then p = p + 1 r = r + 1 End If Else j = j + 1 m = 0 n = 0 o = 0 p = 0 End If Next Sheets("Feuil2").Activate End Sub

klissou69 · Answer

Après test et suppression de la ligne "Dim Annee As Byte" ( me demandez pas pourquoi ), le code fonctionne.

Par contre j'ai toujours le même problème, la 1ère ligne du nouveau moins est oubliée :/ 

Je suis perdu la.

Hermios · Answer

M'est avis que tu as pas mis ce qu'il fallait là où il fallait.
TU peux remontrer ton code stp?

klissou69 · Answer

c'est celui juste au dessus : Sub extractBOT() Sheets("Feuil1").Activate Dim Mois As Byte Dim m As Double Dim n As Double Dim o As Double Dim p As Double Dim j As Double Dim VarMois As Double Dim VarAnnee As Double j = 2 m = 0 n = 0 o = 0 p = 0 r = 0 VarMois = 0 VarAnnee = 0 nbcolonne1 = Sheets("Feuil1").UsedRange.Columns.Count 'compte le nombre de colonnes non vides sur la feuille 1 nbligne1 = Sheets("Feuil1").UsedRange.Rows.Count 'compte le nombre de lignes non vides sur la feuille 1 For i = 2 To nbligne1 Mois = Month(CDate(Cells(i, 20))) Cells(i, 23).Value = Mois Annee = Year(CDate(Cells(i, 20))) Cells(i, 24).Value = Annee Next For i = 2 To nbligne1 If VarMois <> 0 And VarAnnee <> 0 And VarMois <> Cells(i, 23).Value And VarAnnee <> Cells(i, 24).Value Then Sheets("Feuil2").Cells(j, 1).Value = n Sheets("Feuil2").Cells(j, 2).Value = m Sheets("Feuil2").Cells(j, 3).Value = o Sheets("Feuil2").Cells(j, 4).Value = p Sheets("Feuil2").Cells(j, 5).Value = r End If If VarMois <> Cells(i, 23).Value And VarAnnee <> Cells(i, 24).Value Then m = 0 n = 0 o = 0 p = 0 r = 0 If Cells(i, 5).Value = "COMMISSION" Then n = n + 1 r = r + 1 'ElseIf Cells(i, 5).Value = "COMMISSION" And Cells(i, 2).Value = "RECEIPT" Then 'm = m + 1 'r = r + 1 ElseIf Cells(i, 5).Value = "PRINCIPAL" And Cells(i, 2).Value = "PAYMENT" Then o = o + 1 r = r + 1 ElseIf Cells(i, 5).Value = "PRINCIPAL" And Cells(i, 2).Value = "RECEIPT" Then p = p + 1 r = r + 1 End If Else j = j + 1 m = 0 n = 0 o = 0 p = 0 End If Next Sheets("Feuil2").Activate End Sub

Hermios · Answer

Je confirme, tu as pas mis ce qu'il faut où il faut. Voici le code corrigé: Sub extractBOT() Sheets("Feuil1").Activate Dim Mois As Byte Dim m As Double Dim n As Double Dim o As Double Dim p As Double Dim j As Double Dim VarMois As Double Dim VarAnnee As Double j = 2 m = 0 n = 0 o = 0 p = 0 r = 0 VarMois = 0 VarAnnee = 0 nbcolonne1 = Sheets("Feuil1").UsedRange.Columns.Count 'compte le nombre de colonnes non vides sur la feuille 1 nbligne1 = Sheets("Feuil1").UsedRange.Rows.Count 'compte le nombre de lignes non vides sur la feuille 1 For i = 2 To nbligne1 Mois = Month(CDate(Cells(i, 20))) Cells(i, 23).Value = Mois Annee = Year(CDate(Cells(i, 20))) Cells(i, 24).Value = Annee Next For i = 2 To nbligne1 If VarMois <> 0 And VarAnnee <> 0 And VarMois <> Cells(i, 23).Value And VarAnnee <> Cells(i, 24).Value Then Sheets("Feuil2").Cells(j, 1).Value = n Sheets("Feuil2").Cells(j, 2).Value = m Sheets("Feuil2").Cells(j, 3).Value = o Sheets("Feuil2").Cells(j, 4).Value = p Sheets("Feuil2").Cells(j, 5).Value = r End If If VarMois <> Cells(i, 23).Value And VarAnnee <> Cells(i, 24).Value Then m = 0 n = 0 o = 0 p = 0 r = 0 End If If Cells(i, 5).Value = "COMMISSION" Then n = n + 1 r = r + 1 'ElseIf Cells(i, 5).Value = "COMMISSION" And Cells(i, 2).Value = "RECEIPT" Then 'm = m + 1 'r = r + 1 ElseIf Cells(i, 5).Value = "PRINCIPAL" And Cells(i, 2).Value = "PAYMENT" Then o = o + 1 r = r + 1 ElseIf Cells(i, 5).Value = "PRINCIPAL" And Cells(i, 2).Value = "RECEIPT" Then p = p + 1 r = r + 1 End If Else j = j + 1 m = 0 n = 0 o = 0 p = 0 End If Next Sheets("Feuil2").Activate End Sub Question : C'est quoi aprÈs ton "Else"? Pourquoi tu remets tout à 0 sauf le j que tu incrémentes ?

klissou69 · Answer

Ca doit être une erreur. Je les enlève si j'ai  bien compris

klissou69 · Answer

C'etait censé remettre à 0 les variables et incrémenter la ligne où j'écris mon résultat. Mais du coup j'ai plus rien qui s'affiche maintenant. J'ai mon mois et année qui s'inscrivent dans la feuille 1 mais feuille 2 j'ai aucun résultat qui s'affiche. Du coup j'ai enlevé la remise à 0 après le Else et le Else lui même. Sub extractBOT() Sheets("Feuil1").Activate Dim Mois As Byte Dim m As Double Dim n As Double Dim o As Double Dim p As Double Dim j As Double Dim VarMois As Double Dim VarAnnee As Double j = 2 m = 0 n = 0 o = 0 p = 0 r = 0 VarMois = 0 VarAnnee = 0 nbcolonne1 = Sheets("Feuil1").UsedRange.Columns.Count 'compte le nombre de colonnes non vides sur la feuille 1 nbligne1 = Sheets("Feuil1").UsedRange.Rows.Count 'compte le nombre de lignes non vides sur la feuille 1 For i = 2 To nbligne1 Mois = Month(CDate(Cells(i, 20))) Cells(i, 23).Value = Mois Annee = Year(CDate(Cells(i, 20))) Cells(i, 24).Value = Annee Next For i = 2 To nbligne1 If VarMois <> 0 And VarAnnee <> 0 And VarMois <> Cells(i, 23).Value And VarAnnee <> Cells(i, 24).Value Then Sheets("Feuil2").Cells(j, 1).Value = n Sheets("Feuil2").Cells(j, 2).Value = m Sheets("Feuil2").Cells(j, 3).Value = o Sheets("Feuil2").Cells(j, 4).Value = p Sheets("Feuil2").Cells(j, 5).Value = r End If If VarMois <> Cells(i, 23).Value And VarAnnee <> Cells(i, 24).Value Then m = 0 n = 0 o = 0 p = 0 r = 0 If Cells(i, 5).Value = "COMMISSION" Then n = n + 1 r = r + 1 'ElseIf Cells(i, 5).Value = "COMMISSION" And Cells(i, 2).Value = "RECEIPT" Then 'm = m + 1 'r = r + 1 ElseIf Cells(i, 5).Value = "PRINCIPAL" And Cells(i, 2).Value = "PAYMENT" Then o = o + 1 r = r + 1 ElseIf Cells(i, 5).Value = "PRINCIPAL" And Cells(i, 2).Value = "RECEIPT" Then p = p + 1 r = r + 1 End If j = j + 1 End If Next Sheets("Feuil2").Activate End Sub

Hermios · Answer

Ah ben ca.. c'Est à toi de répondre, suivant le comportement que tu souhaites obtenir...

klissou69 · Answer

Comme je te l'ai dit hier, je souhaite remettre à 0 en changeant de mois (une fois que j'ai compté tous les flux du mois d'avant ) . Donc je pense que ta remarque était cohérente et qu'ils étaient en trop.

Maintenant cela ne m'affiche plus rien, comme si ça ne rentrait dans une boucle ou qu'aucune variable n'était incrémentée :/

Hermios · Answer

Normal, tu as de nouveau enlevé le End If aprÈs : If VarMois <> Cells(i, 23).Value And VarAnnee <> Cells(i, 24).Value Then m = 0 n = 0 o = 0 p = 0 r = 0 Tu dois le laisser juste après ca, et pas à la fin

klissou69 · Answer

j'ai copié la mauvaise version --' Voilà ce que j'ai comme code pour l'instant et qui n'affiche rien : Sub extractBOT() Sheets("Feuil1").Activate Dim Mois As Byte Dim m As Double Dim n As Double Dim o As Double Dim p As Double Dim j As Double Dim VarMois As Double Dim VarAnnee As Double j = 2 m = 0 n = 0 o = 0 p = 0 r = 0 VarMois = 0 VarAnnee = 0 nbcolonne1 = Sheets("Feuil1").UsedRange.Columns.Count 'compte le nombre de colonnes non vides sur la feuille 1 nbligne1 = Sheets("Feuil1").UsedRange.Rows.Count 'compte le nombre de lignes non vides sur la feuille 1 For i = 2 To nbligne1 Mois = Month(CDate(Cells(i, 20))) Cells(i, 23).Value = Mois Annee = Year(CDate(Cells(i, 20))) Cells(i, 24).Value = Annee Next For i = 2 To nbligne1 If VarMois <> 0 And VarAnnee <> 0 And VarMois <> Cells(i, 23).Value And VarAnnee <> Cells(i, 24).Value Then Sheets("Feuil2").Cells(j, 1).Value = n Sheets("Feuil2").Cells(j, 2).Value = m Sheets("Feuil2").Cells(j, 3).Value = o Sheets("Feuil2").Cells(j, 4).Value = p Sheets("Feuil2").Cells(j, 5).Value = r End If If VarMois <> Cells(i, 23).Value And VarAnnee <> Cells(i, 24).Value Then m = 0 n = 0 o = 0 p = 0 r = 0 End If If Cells(i, 5).Value = "COMMISSION" Then n = n + 1 r = r + 1 'ElseIf Cells(i, 5).Value = "COMMISSION" And Cells(i, 2).Value = "RECEIPT" Then 'm = m + 1 'r = r + 1 ElseIf Cells(i, 5).Value = "PRINCIPAL" And Cells(i, 2).Value = "PAYMENT" Then o = o + 1 r = r + 1 ElseIf Cells(i, 5).Value = "PRINCIPAL" And Cells(i, 2).Value = "RECEIPT" Then p = p + 1 r = r + 1 End If j = j + 1 Next Sheets("Feuil2").Activate End Sub

Hermios · Answer

Tu as oublié de définir varMois et VarAnnée: If VarMois <> Cells(i, 23).Value And VarAnnee <> Cells(i, 24).Value Then m = 0 n = 0 o = 0 p = 0 r = 0 VarMois = Cells(i, 23) VarAnnee = Cells(i, 24) End If

klissou69 · Answer

Je me disais bien qu'on en faisait pas grand chose de ces 2 variables ^^

klissou69 · Answer

Bon au moins cela m'affiche quelque chose. J'ai une somme  (fausse ) cumulée de chaque opération qui apparait à la millième ligne .

Du coup je vais essayer de regarder d'un peu plus près mes boucles

klissou69 · Answer

J'ai un peu de mal à comprendre les conditions : " If VarMois <> 0 And VarAnnee <> 0 And VarMois <> Cells(i - 1, 23).Value And VarAnnee <> Cells(i, 24).Value Then" et " VarMois <> Cells(i, 23).Value And VarAnnee <> Cells(i, 24).Value Then" Sachant que je veux compter le nombre d'opé par mois ( donc tant que la valeur de cells(i,23) ne bouge pas, on incrémente. Dès que ca bouge, on copie colle le total dans la ligne j, on initialise nos variables, et on recommence le décompte sur le mois d'après

Hermios · Answer

varMois et varAnnée sont des variables globales.
Elles correspondent au mois que tu es en train d'analyser.

Le premier if :
Si tes valeurs ne sont pas nulles (donc tu as déjà analyser au moins un mois) et ne sont pas égales à la cellule courante (donc tu as changé de mois), 
alors tu sauvegardes les données calculées (donc du mois précédent)

Second if :
Si tes valeurs ne sont pas égales à celles de la cellule courante (donc tu es dans un nouveau mois)
tu réinitialises toutes tes valeurs.

Je viens de voir pourquoi tu affiches à la 1000eme ligne :
ton j=j+1 doit être dans le premier if, à la fin de celui-ci (juste avant le end if)

klissou69 · Answer

oui je l'ai modifié donc c'est bon c'est affiché en ligne 2 maintenant. Mais je n'ai que la somme totale qui s'affiche, pourquoi n'ai je pas les sommes intérmediaires ( par mois ) dont j'ai besoin ? Je devrais avoir une écriture des résultats du mois à chaque changement de mois. Sub extractBOT() Sheets("Feuil1").Activate Dim Mois As Byte Dim m As Double Dim n As Double Dim o As Double Dim p As Double Dim j As Double Dim VarMois As Double Dim VarAnnee As Double j = 2 m = 0 n = 0 o = 0 p = 0 r = 0 VarMois = 0 VarAnnee = 0 nbcolonne1 = Sheets("Feuil1").UsedRange.Columns.Count 'compte le nombre de colonnes non vides sur la feuille 1 nbligne1 = Sheets("Feuil1").UsedRange.Rows.Count 'compte le nombre de lignes non vides sur la feuille 1 For i = 2 To nbligne1 Mois = Month(CDate(Cells(i, 20))) Cells(i, 23).Value = Mois Annee = Year(CDate(Cells(i, 20))) Cells(i, 24).Value = Annee Next For i = 2 To nbligne1 If VarMois <> 0 And VarAnnee <> 0 And VarMois <> Cells(i, 23).Value And VarAnnee <> Cells(i, 24).Value Then Sheets("Feuil2").Cells(j, 1).Value = n Sheets("Feuil2").Cells(j, 2).Value = m Sheets("Feuil2").Cells(j, 3).Value = o Sheets("Feuil2").Cells(j, 4).Value = p Sheets("Feuil2").Cells(j, 5).Value = r j = j + 1 End If If VarMois <> Cells(i, 23).Value And VarAnnee <> Cells(i, 24).Value Then m = 0 n = 0 o = 0 p = 0 VarMois = Cells(i, 23) VarAnnee = Cells(i, 24) End If If Cells(i, 5).Value = "COMMISSION" Then n = n + 1 r = r + 1 'ElseIf Cells(i, 5).Value = "COMMISSION" And Cells(i, 2).Value = "RECEIPT" Then 'm = m + 1 'r = r + 1 ElseIf Cells(i, 5).Value = "PRINCIPAL" And Cells(i, 2).Value = "PAYMENT" Then o = o + 1 r = r + 1 ElseIf Cells(i, 5).Value = "PRINCIPAL" And Cells(i, 2).Value = "RECEIPT" Then p = p + 1 r = r + 1 End If Next Sheets("Feuil2").Activate End Sub

Hermios · Answer

C'est étrange en effet. Ca veut surement dire que dans ta phrase If VarMois <> 0 And VarAnnee <> 0 And VarMois <> Cells(i, 23).Value And VarAnnee <> Cells(i, 24).Value Then toutes les conditions ne sont jamais respectées ensemble Essaie, pour chaque boucle, d'afficher la valeur de VarMois dans une cellule quelconque Je suis prêt à parier que la valeur reste à 0.

klissou69 · Answer

VarMois prend la valeur 7 puis en milieu de tableau elle passe à 1 ... qui ne correspond pas du tout au moins de la ligne à ce moment la.

Hermios · Answer

Ok,
Tu as combien de mois, et à combien ca commence (Jusqu'à combien)?

klissou69 · Answer

Ca part du mois de juillet 2012 jusqu'au mois de juillet 2013 ( 13 mois ) avec 4000 lignes, sachant qu'il y en a environ 1200 qui m'intéressent C'est à dire dont la cellule (i,5 ) prend la valeur commission, principale etc...

Hermios · Answer

Bon, c'Est normal que ca repasse à 1, puisque tu arrives au mois de janvier.
QUelle valeur devrait prendre la variable à ce moment de l'année?

klissou69 · Answer

Eh bien c'est en plein milieu de lignes du mois de décembre donc 12.

Hermios · Answer

Regarde attentivement la ligne à partir de laquelle ca fait ca. C'est possible qu'elle soit mal écrite

klissou69 · Answer

Y a peut être un souci avec l'année, car sur la ligne "VarMois <> 0 And VarAnnee <> 0 And VarMois <> Cells(i, 23).Value And VarAnnee <> Cells(i, 24).Value Then" ca veut dire que c'est vérifié uniquement si on change d'année, ce qui n'est pas vrai pour les mois de la même année .

Sinon je ne vois vraiment pas la et ca m'ennuie :/

klissou69 · Answer

Ca y est j'ai une piste. La somme affichée est bien la somme des flux mais uniquement sur l'année 2012, il ne prend en compte la condition que quand l'année est différente du coup. Mais du coup si j'enlève la condition sur l'année, ca m'affiche la variable intermédiaire de toutes les lignes !! Je comprends plus, ma logique a atteint ses limites :/

Hermios · Answer

Ah oui, tu as tout à fait raison! Bon, en fait, à moins que tu ne fasses pas un compte suivi (les mois ne se suivent pas, et donc tu pourrais passer de juillet 2012 à juillet 2013 directement), l'année n'a aucun intérêt. Je te conseille de la supprimer!

klissou69 · Answer

Je sais pas si tu as lu mon message juste au dessus du coup vu qu'on s'est croisés :p

Je veux bien l'enlever mais ça m'affiche toute les OP du coup. 

Je suis quelque peu dubitatif la.

Hermios · Answer

"ca m'affiche toute les OP du coup"-> Et c'Est pas ce que tu veux?

klissou69 · Answer

Toutes, chacune séparément, 1 par 1 ! Pas par mois :'(

Hermios · Answer

TU peux réafficher ton code final stp?

klissou69 · Answer

Avec plaisir :

Sub extractBOT()

Sheets("Feuil1").Activate
Dim Mois As Byte

Dim m As Double
Dim n As Double
Dim o As Double
Dim p As Double
Dim j As Double
Dim k As Double

Dim VarMois As Double
Dim VarAnnee As Double
j = 2
k = 2


m = 0
n = 0
o = 0
p = 0
r = 0

VarMois = 0
VarAnnee = 0

nbcolonne1 = Sheets("Feuil1").UsedRange.Columns.Count 'compte le nombre de colonnes non vides sur la feuille 1
nbligne1 = Sheets("Feuil1").UsedRange.Rows.Count 'compte le nombre de lignes non vides sur la feuille 1

For i = 2 To nbligne1

    Mois = Month(CDate(Cells(i, 20)))
    Cells(i, 23).Value = Mois
    
    Annee = Year(CDate(Cells(i, 20)))
    Cells(i, 24).Value = Annee
Next

    For i = 2 To nbligne1
        If VarMois <> 0 And VarAnnee <> 0 And VarMois <> Cells(i, 23).Value Then  ' j'ai enlevé And VarAnnee <> Cells(i, 24).Value
        
        Sheets("Feuil2").Cells(j, 1).Value = n
        Sheets("Feuil2").Cells(j, 2).Value = m
        Sheets("Feuil2").Cells(j, 3).Value = o
        Sheets("Feuil2").Cells(j, 4).Value = p
        
        Sheets("Feuil2").Cells(j, 5).Value = r
        
        j = j + 1
        
        Sheets("Feuil2").Cells(k, 7).Value = VarMois
        k = k + 1
        End If

        If VarMois <> Cells(i, 23).Value And VarAnnee <> Cells(i, 24).Value Then
            m = 0
            n = 0
            o = 0
            p = 0
            
            VarMois = Cells(i, 23)
            VarAnnee = Cells(i, 24)
            Sheets("Feuil2").Cells(k, 7).Value = VarMois
        k = k + 1

        End If
    
        If Cells(i, 5).Value = "COMMISSION" Then
            n = n + 1
            r = r + 1
            Sheets("Feuil2").Cells(k, 7).Value = VarMois
            k = k + 1
        'ElseIf Cells(i, 5).Value = "COMMISSION" And Cells(i, 2).Value = "RECEIPT" Then
            'm = m + 1
            'r = r + 1

        ElseIf Cells(i, 5).Value = "PRINCIPAL" And Cells(i, 2).Value = "PAYMENT" Then
            o = o + 1
            r = r + 1
            Sheets("Feuil2").Cells(k, 7).Value = VarMois
            k = k + 1

        ElseIf Cells(i, 5).Value = "PRINCIPAL" And Cells(i, 2).Value = "RECEIPT" Then
            p = p + 1
            r = r + 1
            Sheets("Feuil2").Cells(k, 7).Value = VarMois
            k = k + 1

        End If

        


Next

Sheets("Feuil2").Activate

End Sub

Hermios · Answer

If VarMois <> Cells(i, 23).Value And VarAnnee <> Cells(i, 24).Value Then

klissou69 · Answer

C'est ce que j'ai mis, le then est au dessous

Hermios · Answer

Oui, et c'est faux (varAnnee...)

klissou69 · Answer

Je ne comprends pas

Hermios · Answer

On a dit que tu supprimais complètement les années, puisqu'elles sont inutiles. Donc il faut tout enlever de ce qui les concerne. (En regardant ton code, je vois que tu n'en as enlevé aucune en fait)

klissou69 · Answer

J'avais juste enlevé la condition :
  And VarAnnee <> Cells(i, 24).Value
 juste après mon for. Mais je vais les enlever partout dans ce cas

klissou69 · Answer

Oh mon dieu je crois que ça marche ... Au bout du 55éme message ALLELUIA !
En fait la variable année empechait de rentrer dans la boucle c'est ça ? 

Merci pour ta patience Hermios, tu as vraiment du mérite ;)

Je te souhaite un bon we et à bientot sur le forum sûrement !

Hermios · Answer

Oui, c'Est ca.
Pas de soucis :D Bon wix à toi aussi!

VBA Ligne "oubliée " après comparaison

57 réponses

Votre réponse

Discussions similaires

Newsletters