Discussion :

[alain78]

Bonjour à toutes et à tous.

Mon problème: Dans une feuille la colonne A contient les dates. Je veux connaître le nombre de cellules qui satisfont 2 conditions :
1ère condition : égale ou supérieure à la date de début (datedebut)
2ème condition: égale ou inférieure à la date de fin(datefin)

J'ai essayé avec NB.SI et j'ai commencé avec une seule condition

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

nb_ligne_base=nb.si("A:A";">=" & datedebut)

J'ai testé avec datedebut="26/03/2021". Le résultat affiché est 2 alors que c'est 7 qui est attendu (du 26/03/2021 au 01/04/2021).

Précisions : les dates sont enregistrées dans la colonne A au format américain mais sont bien restituées au format français. J'ai vérifié la feuille et compté manuellement.

Voyez vous l'erreur ?

Merci pour votre aide.

[alain78]

Je me suis trompé.

Après avoir essayé sans résultat NB.SI et NB.SI.ENS j'ai essayé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

nb_ligne_base = Application.CountIf(Range("A:A"), ">=" & datedebut)

C'est cette ligne qui me donne le résultat de 2 au lieu de 7 !!!

Bref si vous avez une solution qui me permette de connaitre le nombre de cellules qui satisfont les 2 conditions >= datedebut ET <=datefin je suis preneur.

Merci encore

[ChristianBosch]

Salut,

Pourquoi ne pas faire une boucle for avec des if ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub test()
Dim i As Integer, k As Integer
 
k = 0
 
For i = 2 To Feuil1.Cells(Rows.Count, 1).End(xlUp).Row
    If Feuil1.Range("a", i) >= datedebut Then
            If Feuil1.Range("a", i) >= datefin Then
            k = k + 1
        End If
    End If
Next
 
MsgBox k
 
End Sub

Un truc du genre

CB

[alain78]

Bonjour Christian.

J'ai essayé plusieurs fois sans succès. De guerre lasse j'ai trouvé une solution à mon problème qui était de supprimer la dernière ligne blanche dans une ListBox crée par VBA à partir d'une feuille de calcul et comportant plusieurs conditions de création.

La liste est bien crée mais à chaque fois elle comporte une dernière ligne vierge. Et je n'arrive pas à comprendre pourquoi.
Voici le code qui génère cela.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
   Me.liste_journal.AddItem
 
   Do While ActiveCell.Value <> ""
 
        If ActiveCell.Value >= CDate(datedebut) And ActiveCell.Value <= CDate(datefin) Then
            'var1 = ActiveCell.Offset(0, 0).Value
            Me.liste_journal.AddItem
            Me.liste_journal.List(k, 0) = ActiveCell.Offset(0, 0).Value
            k = k + 1
        End If
 
        ActiveCell.Offset(1, 0).Select
        If ActiveCell.Value = "" Then
            Exit Do
        End If
 
   Loop

Alors ma solution simple (qui ne me satisfait pas quand à la pureté du code mais le résultat est là !) consiste à supprimer le dernier item (qui est toujours vierge) .
Donc après le loop je mets l'instruction.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    Me.liste_journal.RemoveItem (Me.liste_journal.ListCount - 1)

Voilà. En espérant comprendre un jour l'origine du problème.

Merci pout ton aide.

[Pierre Fauconnier]

Salut.

Excel permet de réaliser cela sans boucles. Tu ne dis pas comment tu valorises tes dates bornes. Voici un exemple avec les dates bornes placées en cellules C1 et C2

application.countifs(range("a:a"),">=" & range("c1").value*1,range("a:a"),"<=" & range("c2").Value*1)

Tu aurais intérêt à travailler avec des tableaux structurés pour délimiter plus correctement tes plages et éviter de travailler sur des colonnes entières. Note également que les boucles sont très gourmandes en temps d'exécution. Tu as donc tout intérêt à t'appuyer sur Excel plutôt que de traiter le problème en "programmation pure" => Quand on écrit du VBA pour Excel, on pense Excel avant de penser VBA

[alain78]

Bonjour et merci Pierre.

Etant à la retraite, Excel peut prendre tout son temps pour me répondre ..... Je blague.

Je vais travailler sur ta proposition sachant que je ne connais pas à l'avance les dates bornées saisies par l'utilisateur. Je les remplacerai par des variables bien évidemment.

Bonne journée.

[Pierre Fauconnier]

Ce sont déjà des "variables" puisque j'utilise des cellules, mais on peut effectivement les remplacer par des "vraies" variables en VBA. Ce qui me semble important, c'est de travailler avec des tableaux structurés qui facilitent le code, tant à la conception qu'à la rédaction, à la lecture et à la maintenance. Si les dates bornes venaient de cellules comme dans mon exemple, il me semblerait judicieux de nommer ces cellules pour détacher encore plus le code de la structure de tes feuilles.

Je donne un exemple d'utilisation des plages nommées dans ce message