equivalence formule et VBA

job75

XLDnaute Barbatruc

• 29 Août 2009

• #2

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+

 

Vote positif 0 Vote négatif

V

vedene

Guest

• 30 Août 2009

• #3

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

 

Dernière modification par un modérateur: 30 Août 2009

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 30 Août 2009

• #4

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 ??

 

Vote positif 0 Vote négatif

V

vedene

Guest

• 30 Août 2009

• #5

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 30 Août 2009

• #6

Re : equivalence formule et VBA

Re

A tester:

Code:

.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é !!

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 30 Août 2009

• #7

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) 😉

 

Dernière édition: 30 Août 2009

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 30 Août 2009

• #8

Re : equivalence formule et VBA

Bonjour à tous,
Salut Job,
Salut PJ,

Peux-tu essayer avec :

Code:

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

 

Vote positif 0 Vote négatif

V

vedene

Guest

• 31 Août 2009

• #9

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 ?

 

Dernière modification par un modérateur: 31 Août 2009

Vote positif 0 Vote négatif