Discussion :

[undo74]

Bonjour a tous,

J'ai une question sur la formule NB.SI.ENS:
Quand je tape la formule

Code :

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

=NB.SI.ENS(K:K;"Gelé";L:L;"<01/01/2015")

j'ai le bon sur le résultat .

Mais si je place dans la cellule A1 la date puis je modifie ma formule :

Code :

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

=NB.SI.ENS(K:K;"Gelé";L:L;"<A1")

j'ai toujours zéro

Exemple dans le fichier en pj.

Pouvez-vous svp me donnée un coup de main merci d'avance pour votre aide.

[rjamin]

Bonjour,
Essayez comme ça

Code :

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

=NB.SI.ENS(K:K;"Gelé";L:L;"<"&A1)

A1, étant une adresse de cellule, ne doit pas se trouver dans le critère 2. Les critères doivent être au format texte mais si vous mettez A1 à l'intérieur du critère c'est considéré comme une chaine de caractères et non pas comme le contenu de la cellule A1.

[undo74]

Bonjour,

ça marche très bien Merci a vous pour vos réponses.

J'aurais besoin savoir si nous pouvons transformer la fonction en code VBA avec la saisie de la date via une boite de dialogue.

en pj exemple avec une macro et boite de dialogue mais je n'ai pas la bonne syntaxe pour que cela fonctionne

Merci encore pour votre aide plus que précieuse.

[joe.levrai]

Bonjour,

exemple fonctionnel sur le fichier transmis

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 Macboite()
Dim Vardate As Date 'variable Date de saisie
Dim DerLig As Long
 
Vardate = InputBox("Saisir une date", "Entrer la date")
 
With Feuil2
    .Cells(1, 1) = CLng(Vardate)
    DerLig = .Cells(.Rows.Count, 11).End(xlUp).Row
 
    With .Range(.Cells(7, 2), .Cells(10, 2))
        .Formula = "=COUNTIFS($K$2:$K$" & DerLig & ",A7,$L$2:$L$" & DerLig & ",""<"" & $A$1)"
        '.Value = .Value  ' remplace les formules par les valeurs
    End With
End With
End Sub

tu as le choix entre laisser les formules, ou remplacer par les valeurs (voir commentaire dans le code)

[undo74]

Bonjour,

exemple fonctionnel sur le fichier transmis

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 Macboite()
Dim Vardate As Date 'variable Date de saisie
Dim DerLig As Long
 
Vardate = InputBox("Saisir une date", "Entrer la date")
 
With Feuil2
    .Cells(1, 1) = CLng(Vardate)
    DerLig = .Cells(.Rows.Count, 11).End(xlUp).Row
 
    With .Range(.Cells(7, 2), .Cells(10, 2))
        .Formula = "=COUNTIFS($K$2:$K$" & DerLig & ",A7,$L$2:$L$" & DerLig & ",""<"" & $A$1)"
        '.Value = .Value  ' remplace les formules par les valeurs
    End With
End With
End Sub

tu as le choix entre laisser les formules, ou remplacer par les valeurs (voir commentaire dans le code)

Bonjour Joe,

MERCI MERCI MERCI trop fort !!!!


Tout est nickel ça marche très bien !

;-) A+