Vba // excel
Résolu
Bonjour,
Bonjour,
j ai un module ou fonction comptage de couleur qui marche tres bien
Function NBC(Cible As Range, k As Integer) As Long
Dim o, i%
Application.Volatile
For Each o In Cible
If o.Interior.ColorIndex = k Then i = i + 1
Next
NBC = i
End Function
dans la feuille la formule marche impec ex =NBC(N5:N53;5)
mais je voudrais envoyer cette formule par macro ( du genre )
ActiveSheet.Cells(60, 1).Formula = "=NBC(N5:N53;5)" ou
range("A3").Formula = "=NBC(N5:N53;5)" et la ca ne marche plus
merci de m eclairer
Bonjour,
j ai un module ou fonction comptage de couleur qui marche tres bien
Function NBC(Cible As Range, k As Integer) As Long
Dim o, i%
Application.Volatile
For Each o In Cible
If o.Interior.ColorIndex = k Then i = i + 1
Next
NBC = i
End Function
dans la feuille la formule marche impec ex =NBC(N5:N53;5)
mais je voudrais envoyer cette formule par macro ( du genre )
ActiveSheet.Cells(60, 1).Formula = "=NBC(N5:N53;5)" ou
range("A3").Formula = "=NBC(N5:N53;5)" et la ca ne marche plus
merci de m eclairer
Configuration: Windows XP / Firefox 3.6
2 réponses
-
ContributeurBonjour,
Pour manipuler les formules en vba il faut respecter la syntaxe anglaise (noms de fonction en anglais et la virgule en séparateur de liste).
Donc essaie avec range("A3").Formula = "=NBC(N5:N53,5)"
eruic -
, ; mort de rire merci vraiment car j etais a 400 km de penser a ca . merci encore et bon week end
