Modifier une formule

viret1290 Messages postés 141 Date d'inscription   Statut Membre Dernière intervention   -  
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   -

Bonjour,

je désirs inséré cette formule 

Cells(2, h).FormulaR1C1 = "=COUNTIF(R6C16:R100C16, ""X"")/2"

avec une variable exemple à la place de R100C16 mettre R30C16

selon la ligne ou je met cette formule

Merci

A voir également:

1 réponse

ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 

Bonjour

Pas très clair mais un essai

Sub ok()
Dim h As Long, li1 As Long, li2 As Long, co As String
Dim f As String
co = "O"
li1 = 6
li2 = 30
h = 3
f = "=NB.SI(" & co & li1 & ":" & co & li2 & ";" & """X""" & ")/2"
MsgBox f
Cells(2, h).FormulaLocal = f
li2 = 100
h = 5
f = "=NB.SI(" & co & li1 & ":" & co & li2 & ";" & """X""" & ")/2"
Cells(2, h).FormulaLocal = f
End Sub

Si ça ne correspond pas à ta demande, il faudra en dire un peu plus

Cdlmnt

0