Discussion :

[jeremm]

Bonjour,

J'ai cette ligne VBA :

Code :

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

ActiveCell.Offset(0, 1).Formula = "=CountIF(F1:F1000, ""Open"")"

Mais j'aimerai plutot faire quelque chose comme :

Code :

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

1
2
3
4
 
Dim nb_open As Integer
Set nb_open.Value = CountIF(F1:F1000, ""Open"") ' retourne un entier
ActiveCell.Offset(0, 1).Value = nb_open.Value ' inscrire la valeur et non la formule

Comment faire pour que la syntaxe soit bonne ?

Merci beaucoup.

[pgz]

Bonsoir.

Tu peux essayer

Code :

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

ActiveCell.Offset(0, 1).Value = Application.WorksheetFunction.CountIF(Range("F1:F1000"), "Open")

IL vaudrait mieux être plus précis dans la désignation de la cellule et de la plage, mais j'ai repris ce que tu avais commencé...

Cordialement,

PGZ

[jeremm]

Merci !!