Discussion :

[Olivierporcinet]

Bonjour,

Je recherche un code VBA pour la formule

Code :

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

NB.SI.ENS(C23:C30;"";B23:B30;"<"&AUJOURDHUI()-30;A23:A30;"<>"&"")

ceci afin d'afficher le résultat dans un MsgBox.


Merci.

Bonne journée.

[Olivierporcinet]

Un petit essai.... qui ne fonctionne pas !!

Code :

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

1
2
3
4
5
6
7
Sub TEST()
Dim Nb_Lignes_vides()
 
    Nb_Lignes_vides = Application.CountIfs(Range("C23:C30"), "", Range("B23:B30"), "<" Date() - 30, Range("A23:A30"), "<> ")
    MsgBox Nb_Lignes_vides
 
End Sub

[Pierre Fauconnier]

Salut

1. Il ne faut pas de parenthèses dans la déclaration de nb_lignes_vides;
2. il ne faut pas d'espace dans l'expression de la condition sur A23:A30: "<> " ==>> "<>";
3. Il faut soitmultiplier la date par 1 pour la transformer en numérique, soit la formater en anglo-saxon car VBA comprend les dates en anglais (Format(Date - 30, "mm/dd/yyyy") ou Format(Date - 30, "yyyy/mm/dd")).

Code :

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

1
2
3
4
5
6
7
Sub TEST1()
Dim Nb_Lignes_vides
 
    Nb_Lignes_vides = Application.CountIfs(Range("C23:C30"), "", Range("B23:B30"), "<" & (Date - 30) * 1, Range("A23:A30"), "<>")
    MsgBox Nb_Lignes_vides
 
End Sub

[Olivierporcinet]

Un grand merci.

Bonne journée