Ou est mon erreur ? please

[benny47]

Bonjour à tous !

J'essai de "tranformer" des lignes VBA R1C1 en WorksheetFunction
Mais je pense qu'il y a des erreurs ...

pouvez vous jetez un coup d'oeil ! please !

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 23/10/2012 par '

Origine ( tiré d'une fonction Excel ):

'Range("R138").Select
'ActiveCell.FormulaR1C1 = "=COUNTIF(R[-34]C:R[-4]C,""Oui"")"
'Range("R139").Select


Par celle là :

Application.WorksheetFunction.CountIf (Range("R107:R137)""Oui"))
Range("R143").Select
Selection.NumberFormat = "h:mm;@"
End Sub


Merci !!

 

[benny47]

Re : Ou est mon erreur ? please

Merci !!!
tout fonctionne comme je veux ..:!
y 'a plus qu'a appliquer ça pour tout mon tableau !