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+
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+
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.
Code:
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.
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.
Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
nb = Evaluate("COUNTIF(A1:A65536," & (Target.Value) & ")")
End Sub