Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Inserer une formule par vba

Inserer une formule par vba

8 réponses
Avatar
gege
Bonjour a tous,
Je seche sur un probleme d'insertion de formule par vba.
J'aimerai copier cette formule dans une cellule :

'=3DSOMME(NB.SI($R$18:$S$51;"OUI");NB.SI($R$82:$S$115;"OUI"))

J'ai fait =E7a :
Formule =3D "=3DSum(countif($R$18:$S$51;" & "OUI" & ");countif
($R$82:$S$115;" & "OUI" & ")))"

Range("M16").Formula =3D Formule

mais ca ne fonctionne pas (meme avec range.text ...)
Aidez moi svp, je suis au bord de la crise de nerfs ;-))
Cdlt
gege
Signaler un problème avec ce contenu

8 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
denis P
Bonjour Gege

ActiveCell.FormulaR1C1 "=SUM(COUNTIF(R18C18:R51C19,""OUI""),COUNTIF(R82C18:R115C19,""OUI""))"

denis p.



"gege" a écrit dans le message de
news:858f01c4d0b1$80792bb0$
Bonjour a tous,
Je seche sur un probleme d'insertion de formule par vba.
J'aimerai copier cette formule dans une cellule :

'=SOMME(NB.SI($R$18:$S$51;"OUI");NB.SI($R$82:$S$115;"OUI"))

J'ai fait ça :
Formule = "=Sum(countif($R$18:$S$51;" & "OUI" & ");countif
($R$82:$S$115;" & "OUI" & ")))"

Range("M16").Formula = Formule

mais ca ne fonctionne pas (meme avec range.text ...)
Aidez moi svp, je suis au bord de la crise de nerfs ;-))
Cdlt
gege
Avatar
isabelle
bonjour gege,

Formule = "=SUM(COUNTIF($R$18:$S$51,""OUI""),COUNTIF($R$82:$S$115,""OUI""))"
Range("M16").Formula = Formule

isabelle


Bonjour a tous,
Je seche sur un probleme d'insertion de formule par vba.
J'aimerai copier cette formule dans une cellule :

'=SOMME(NB.SI($R$18:$S$51;"OUI");NB.SI($R$82:$S$115;"OUI"))

J'ai fait ça :
Formule = "=Sum(countif($R$18:$S$51;" & "OUI" & ");countif
($R$82:$S$115;" & "OUI" & ")))"

Range("M16").Formula = Formule

mais ca ne fonctionne pas (meme avec range.text ...)
Aidez moi svp, je suis au bord de la crise de nerfs ;-))
Cdlt
gege


Avatar
gege
Ouf .. merci
Ca commencait a me prendre la tete!!
Heureusement qu'il y des gens comme vous pour eviter la
dépression chez certaines catégories de gens comme moi!!!
Merci encore
Ca fonctionne impec
cdlt
gege
-----Message d'origine-----
Bonjour Gege

ActiveCell.FormulaR1C1 =
"=SUM(COUNTIF(R18C18:R51C19,""OUI""),COUNTIF
(R82C18:R115C19,""OUI""))"


denis p.



"gege" a écrit dans
le message de

news:858f01c4d0b1$80792bb0$
Bonjour a tous,
Je seche sur un probleme d'insertion de formule par vba.
J'aimerai copier cette formule dans une cellule :

'=SOMME(NB.SI($R$18:$S$51;"OUI");NB.SI
($R$82:$S$115;"OUI"))


J'ai fait ça :
Formule = "=Sum(countif($R$18:$S$51;" & "OUI"
& ");countif

($R$82:$S$115;" & "OUI" & ")))"

Range("M16").Formula = Formule

mais ca ne fonctionne pas (meme avec range.text ...)
Aidez moi svp, je suis au bord de la crise de nerfs ;-))
Cdlt
gege


.



Avatar
JpPradier
Bonjour gege

Si tu veux rester en mode A1 :

Formule = "=Sum(countif($R$18:$S$51," & ""OUI"" & "),countif($R$82:$S$115,"& ""OUI"" & "))"
Range("M16").Formula = Formule

j-p
Avatar
ru-th
Variante

[A1].FormulaLocal =
"=SOMME(NB.SI($R$18:$S$51;""OUI"");NB.SI($R$82:$S$115;""OUI""))"


a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"gege" a écrit dans le message de
news: 858f01c4d0b1$80792bb0$
Bonjour a tous,
Je seche sur un probleme d'insertion de formule par vba.
J'aimerai copier cette formule dans une cellule :

'=SOMME(NB.SI($R$18:$S$51;"OUI");NB.SI($R$82:$S$115;"OUI"))

J'ai fait ça :
Formule = "=Sum(countif($R$18:$S$51;" & "OUI" & ");countif
($R$82:$S$115;" & "OUI" & ")))"

Range("M16").Formula = Formule

mais ca ne fonctionne pas (meme avec range.text ...)
Aidez moi svp, je suis au bord de la crise de nerfs ;-))
Cdlt
gege
Avatar
gege
Merci à tous

-----Message d'origine-----
Bonjour gege

Si tu veux rester en mode A1 :

Formule = "=Sum(countif($R$18:$S$51," & ""OUI""
& "),countif($R$82:$S$115,"& ""OUI"" & "))"

Range("M16").Formula = Formule

j-p

.



Avatar
gege
Merci à tous
-----Message d'origine-----
bonjour gege,

Formule = "=SUM(COUNTIF($R$18:$S$51,""OUI""),COUNTIF
($R$82:$S$115,""OUI""))"

Range("M16").Formula = Formule

isabelle


Bonjour a tous,
Je seche sur un probleme d'insertion de formule par vba.
J'aimerai copier cette formule dans une cellule :

'=SOMME(NB.SI($R$18:$S$51;"OUI");NB.SI
($R$82:$S$115;"OUI"))



J'ai fait ça :
Formule = "=Sum(countif($R$18:$S$51;" & "OUI"
& ");countif


($R$82:$S$115;" & "OUI" & ")))"

Range("M16").Formula = Formule

mais ca ne fonctionne pas (meme avec range.text ...)
Aidez moi svp, je suis au bord de la crise de nerfs ;-))
Cdlt
gege
.





Avatar
gege
Merci à tous
-----Message d'origine-----
Variante

[A1].FormulaLocal =
"=SOMME(NB.SI($R$18:$S$51;""OUI"");NB.SI
($R$82:$S$115;""OUI""))"



a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"gege" a écrit dans
le message de

news: 858f01c4d0b1$80792bb0$
Bonjour a tous,
Je seche sur un probleme d'insertion de formule par vba.
J'aimerai copier cette formule dans une cellule :

'=SOMME(NB.SI($R$18:$S$51;"OUI");NB.SI
($R$82:$S$115;"OUI"))


J'ai fait ça :
Formule = "=Sum(countif($R$18:$S$51;" & "OUI"
& ");countif

($R$82:$S$115;" & "OUI" & ")))"

Range("M16").Formula = Formule

mais ca ne fonctionne pas (meme avec range.text ...)
Aidez moi svp, je suis au bord de la crise de nerfs ;-))
Cdlt
gege


.