equivalence formule et VBA

[vedene]

Bonjour,🙂

Je voudrais mettre cette formule dans un VBA

=CONCATENER(TEXTE(NB.SI(D$9😀$142;"I");NB.SI(D$9😀$142;"I"));"-";TEXTE(NB.SI(D$9😀$142;"X");NB.SI(D$9😀$142;"X")))

Elle fonctionne en tant que formule et si je la colle dans un VBA, il y a erreur.
je penses que cela tient du language.
Quelqu'un peut-il m'aider ?😕😕

Merci d'avance

 

[job75]

Re : equivalence formule et VBA

Bonjour,

Décidément c'est la (fin de) saison...

On peut utiliser FormulaLocal pour entrer la formule sans modifier la syntaxe.

Mais il ne faut pas oublier de doubler les guillemets, puisque l'on met toute la formule entre guillemets.

A+

 

[vedene]

Re : equivalence formule et VBA

Bonjour,

Merci à JOB75 de de pencher sur mon problème.

Voici un morceau de mon VBA

For i = k To 1 Step -1 'k est le nombre de compétences
.Columns(5).Insert
.Columns(5).ColumnWidth = 2
.Cells(7, 5) = Arr(i, 1)
.Cells(6, 5) = Arr(i, 5)
.Cells(8, 5).FormulaR1C1 = "=COUNTA(R[+134]C:R[+1]C)[/B][/B]" 'mise en place des formules

En fait je voudrais remplacer COUNTA.... par ma formule

=CONCATENER(TEXTE(NB.SI(D$9$AK142;"I");NB.SI(D$9 $AK142;"I"));"-";TEXTE(NB.SI(D$9$AK142;"X");NB.SI(D$9$AK142;"X")) )

Je bataille comme un fou mais il y a toujours une erreur de syntaxe

Pouvez-vous me dépanner, c'est (comme pour tous) "important" pour moi

Merci d'avance

 

[pierrejean]

Re : equivalence formule et VBA

bonjour vedene

Salut Job

A mon avis il conviendrait tout d'abord d'avoir une formule correcte
Voir : D$9$142 : Quelle est cette plage ??

 

[vedene]

Re : equivalence formule et VBA

bonjour pierrejean

Milles excuses, mais j'ai fais un copier collé de la formule du premier message, mais les smiley se sont placés seuls

il faut lire $AK$142

Merci et a plus

 

[pierrejean]

Re : equivalence formule et VBA

Re

A tester:

.Cells(8, 5).FormulaLocal = "=CONCATENER(TEXTE(NB.SI($AK$142;""I"");NB.SI($AK$142;""I""));"" - "";TEXTE(NB.SI($AK$142;""X"");NB.SI($AK$142;""X"")))"

ce qui revient a faire ce que Job avait préconisé !!

 

[TooFatBoy]

Re : equivalence formule et VBA

Bonjour,

Juste une petite remarque :
dans la formule ce n'était pas : D $ 9 $ 1 4 2
mais c'était : D $ 9 : D $ 1 4 2 (à cause des smileys bien sûr) 😉

 

[JCGL]

Re : equivalence formule et VBA

Bonjour à tous,
Salut Job,
Salut PJ,

Peux-tu essayer avec :

ActiveCell.Formula = "=CONCATENATE(TEXT(COUNTIF(R9C[3]:R[141]C37,""I""),COUNTIF(R9C[3]:R[141]C37,""I"")),""-"",TEXT(COUNTIF(R9C[3]:R[141]C37,""X""),COUNTIF(R9C[3]:R[141]C37,"" X"")))"

A++
A+ à tous

 

[vedene]

Re : equivalence formule et VBA

Bonjour à tous,

Et merci.

C'est nickel. J'ai pris la présentation de JCGL.

Affaire résolue

Mais ou "cliquer" pour marquer comme résolu ?