Formule et texte

[Aladin]

Bonjour le forum
J' ai une formule du type
ActiveCell.FormulaR1C1 = "=COUNTA(RC[-4]:RC[-1])" et je voudrais mettre le mot suivant typical derriere le résultat, j' ai déja éssayé de faire ceci
ActiveCell.FormulaR1C1 = "=COUNTA(RC[-4]:RC[-1])" & "Typical" , mais ça ne marche pas.
Merci pour toute aide
Aladin

 

[Gorfael]

Re : Formule et texte

Bonjour le forum
J' ai une formule du type
ActiveCell.FormulaR1C1 = "=COUNTA(RC[-4]:RC[-1])" et je voudrais mettre le mot suivant typical derriere le résultat, j' ai déja éssayé de faire ceci
ActiveCell.FormulaR1C1 = "=COUNTA(RC[-4]:RC[-1])" & "Typical" , mais ça ne marche pas.
Merci pour toute aide
Aladin

Salut
ActiveCell.FormulaR1C1 = "=COUNTA(RC[-4]:RC[-1],""" & "Typical" & """)"

Les guillemets doivent être doublés pour apparaître dans la formule

Si tu utilise une instruction de ce style, tu dois utiliser un SELECT, ce n'est pas ce qu'il y a de mieux
Range("E5").SELECT
ActiveCell.FormulaR1C1 = "=COUNTA(RC[-4]:RC[-1],""" & "Typical" & """)"

est plus efficace et plus rapide en le remplaçant par
Range("E5").FormulaR1C1 = "=COUNTA(RC[-4]:RC[-1],""" & "Typical" & """)"

ou pour la version française

Range("E5").FormulaLocal = "=NB.SI(A5:D5;""" & "Typical" & """)"

A+

 

[Aladin]

Re : Formule et texte

Bonjour Gorfael et le forum
Merci pour ta réponse et j' ai éssayé les 2 solutions, mais cela
augmente mon de résultat de 1 et si j' éfface toules les célules, j' ai toujours le résultat 1 au lieo de zéro
Aladin

 

[Gorfael]

Re : Formule et texte

Bonjour Gorfael et le forum
Merci pour ta réponse et j' ai éssayé les 2 solutions, mais cela
augmente mon de résultat de 1 et si j' éfface toules les célules, j' ai toujours le résultat 1 au lieo de zéro
Aladin

Salut
comme je ne connais pas tes données, regarde dans la cellule sur Excel si la formule inscrite correspond à celle dans VBA
Le fait que ton résultat soit différent de ce que tu attends ne signifie pas que l'instruction soit mauvaise : Teste-la sur une feuille vierge avec tes donnée en A1: D1 et ta formule entrée manuellement dans la cellule E1 et par le code VBA en E2

Sub test()
Range("E2").FormulaLocal = "=NB.SI(A1:D1;""" & "AA" & """)"
End sub

que tu exécutes, et tu mets manuellement, dans E1, la formule :

=NB.SI(A1:D1;""AA"")

et tu regardes
- si les formules sont identiques en E1 et E2
- si tes résultats sont identiques en E1 et en E2, en fonction des "AA" dans A1: D1

Comme j'utilises la version française, je mets tout en français, mais c'est à adapter pour l'anglais

Sinon, donne la formule que tu veux inscrire dans la cellule, et le code que tu utilises
A+

 

[pierrejean]

Re : Formule et texte

bonjour Aladin

Salut Gorfael

j'obtiens un resultat avec ceci peut-etre a adapter

 ActiveCell.FormulaR1C1 = "=TEXT(COUNTA(RC[4]:RC[1]),0) & "" TYPICAL"""

 

[Aladin]

Re : Formule et texte

Rebonjour Gorfael et le forum
J' ai trouvé la solution qui est de type
ActiveCell.FormulaR1C1 = "=COUNTA(RC[-4]:RC[-1]) & "" Typical(s)"""
Merci pour tes réponses et bonne continuation
Aladin

 

[Aladin]

Re : Formule et texte

Bonjour PierreJean
je n' avais pas vu ton post lorsque j' ai fait ma réponse et te remercie pour ta réponse mais j' ai trouvé la solution que j' indique dans mon poste
Aladin