Evaluate NB.SI() = erreur 2015

[Compte Supprimé 979]

Evaluate NB.SI() = erreur 2015 [RESOLU]

Bonjour à tous,

Est-ce que quelqu'un peut m'expliquer pourquoi en VBA 😕

Private Sub Worksheet_Change(ByVal Target As Range)
  Nb = ActiveSheet.Evaluate("NB.SI(1:1;" & Chr(34) & Target.Value & Chr(34) & ")")
End Sub

Ne fonctionne pas et me renvoie : Erreur 2015

Target.value me retourne bien la valeur que je viens de saisir

J'aimerais de façon très simple, savoir combien de valeurs indentiques existent !?

J'ai les neurones qui bloquent 😀

Merci pour vos réponses

 

[Cousinhub]

Re : Evaluate NB.SI() = erreur 2015

Bonsoir, bruno

je n'ai pas cherché le pourquoi, mais tu peux essayer avec ce code :

nb2 = Application.CountIf([1:1], Target)

Edit, et avec la méthode Evaluate :

nb3 = Evaluate("COUNTIF(1:1," & """" & Target & """)")

 

[Compte Supprimé 979]

Re : Evaluate NB.SI() = erreur 2015

Salut Bh²

Merci je n'avais absolument pas pensé à cette solution, ça devrait convenir 😉

Bravo ...

 

[job75]

Re : Evaluate NB.SI() = erreur 2015

Bonsoir,
Sinon essayer :
Nb = ActiveSheet.Evaluate("NB.SI(1:1;""" & Chr(34) & Target.Value & Chr(34) & """)")
Le texte de critère doit être entre guillemets doubles. Je n'ai pas testé.
A+

 

[Cousinhub]

Re : Evaluate NB.SI() = erreur 2015

Re-
(j'édite pas, ne sachant si tu as lu mon dernier Edit)

avec ta méthode, cela devrait également le faire :

nb3 = Evaluate("COUNTIF(1:1,""" & Target & """)")

J'avais mis un [ " & " ] de trop (mais cela fonctionnait également)

 

[Compte Supprimé 979]

Re : Evaluate NB.SI() = erreur 2015

Salut Job75,

Bonsoir,
Sinon essayer :
Nb = ActiveSheet.Evaluate("NB.SI(1:1;""" & Chr(34) & Target.Value & Chr(34) & """)")
Le texte de critère doit être entre guillemets doubles. Je n'ai pas testé.
A+

Merci pour ta réponse, mais celle là ne fonctionne pas
ERREUR 2015

A+

 

[Compte Supprimé 979]

Re : Evaluate NB.SI() = erreur 2015

Re-
(j'édite pas, ne sachant si tu as lu mon dernier Edit)
avec ta méthode, cela devrait également le faire :

nb3 = Evaluate("COUNTIF(1:1,""" & Target & """)")

J'avais mis un [ " & " ] de trop (mais cela fonctionnait également)

Encore merci,
Celle là est plus dans mon type de développement et elle focntionne,
donc je garde 😉

Thanks 😀

 

[job75]

Re : Evaluate NB.SI() = erreur 2015

Oui bien sûr chr(34)="
Donc supprimez-les :
Nb = ActiveSheet.Evaluate("NB.SI(1:1;""" & Target.Value & """)")
A+

 

[Kotov]

Re : Evaluate NB.SI() = erreur 2015

Bonjour à tous,

Bruno, pour répondre à ta question initiale (en gros, pourquoi ça ne marche pas), je te propose de traduire ta ligne en anglais, comme dans l'exemple suivant :

Le principe : la formule en anglais et le séparateur devient virgule au lieu de point virgule
Sur l'exemple suivant, ça semble fonctionner mais je n'ai pas réalisé de test exhaustif.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
nb = Evaluate("COUNTIF(A1:A65536," & (Target.Value) & ")")
End Sub

A +

Kotov

EDIT : désolé Bhbh, je n'avais pas actualisé le fil. Ma réponse fait doublon.

 

[Compte Supprimé 979]

Re : Evaluate NB.SI() = erreur 2015

Oui bien sûr chr(34)="
Donc supprimez-les :
Nb = ActiveSheet.Evaluate("NB.SI(1:1;""" & Target.Value & """)")
A+

Désolé Job75, mais toujours pas ....

STP, teste ton code avant de donner les réponse, ce serait cool 😉

A+

 

[Compte Supprimé 979]

Re : Evaluate NB.SI() = erreur 2015

Bonjour à tous,
Bruno, pour répondre à ta question initiale (en gros, pourquoi ça ne marche pas), je te propose de traduire ta ligne en anglais, comme dans l'exemple suivant :

Le principe : la formule en anglais et le séparateur devient virgule au lieu de point virgule
Sur l'exemple suivant, ça semble fonctionner mais je n'ai pas réalisé de test exhaustif.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
nb = Evaluate("COUNTIF(A1:A65536," & (Target.Value) & ")")
End Sub

A +

Kotov

Salut Voisin 😉

Je serais curieux de savoir quand même pourquoi ça ne marche pas avec NB.SI() !?

A les mystères de l'informatique

A+

 

[Kotov]

Re : Evaluate NB.SI() = erreur 2015

Salut Voisin 😉

Je serais curieux de savoir quand même pourquoi ça ne marche pas avec NB.SI() !?

A les mystères de l'informatique

A+

----------

Re voisin,

Je n'ai pas la réponse. C'est juste un point que j'ai remarqué : avec Evaluate, le mieux c'est l'anglais.

Bonne soirée
Kotov

 

[job75]

Re : Evaluate NB.SI() = erreur 2015

Kotov a tout à fait raison, il faut utiliser dans VBA la traduction anglaise des fonctions Excel : NB.SI() est traduit en anglais par COUNTIF().
A+