Erreur dans ActiveCell.FormulaLocal

[Temjeh]

Bonsoir et merci d'avance

Code du départ:=ARRONDI(NB.SI(G2:G61;"")*100/NBVAL(G2:G61);0) &" %"

je veut lui mettre avec des variables avec insertion par macro pour les ligne et j'ai une erreur 1004 dans ceci:

ActiveCell.FormulaLocal = "=ARRONDI(NB.SI(G" & NLig1 & ":G" & NLig2 & ";"")*100/NBVAL(G" & NLig1 & ": G" & NLig2);0)"

Le haut du code n'est pas vraiment nécessaire pour vous guider je pense

Merci beaucoup

Temjeh

 

[ninbihan]

Re : Erreur dans ActiveCell.FormulaLocal

Bonsoir Temjeh

Je pense que le pb vient des guillemets, à tester:
ActiveCell.FormulaLocal = "=ARRONDI(NB.SI(G" & NLig1 & ":G" & NLig2 & ";"""")*100/NBVAL(G" & NLig1 & ": G" & NLig2);0)"

Bonne soirée,

Ninbihan

 

[Lord Nelson]

Re : Erreur dans ActiveCell.FormulaLocal

Salut,

Je vois ceci :

ActiveCell.FormulaLocal = "=ARRONDI(NB.SI(G" & NLig1 & ":G" & NLig2 & ";" & Chr(34) & Chr(34) & ")*100/NBVAL(G" & NLig1 & ":G" & NLig2 & ");0)"

à tester...

A+
Horatio

 

[Catrice]

Re : Erreur dans ActiveCell.FormulaLocal

Bonsoir,

Il y avait les """" et :

ActiveCell.FormulaLocal = "=ARRONDI(NB.SI(G" & NLig1 & ":G" & NLig2 & ";"""")*100/NBVAL(G" & NLig1 & ":G" & NLig2 & ");0)"

Edit : Bonsoir Lord Nelson, plus rapide ....

 

[Temjeh]

Re : Erreur dans ActiveCell.FormulaLocal

Merci beaucoup on y est presque

Il y a erreur de syntaxe il me met je pense l'erreur à l'avant dernière parenthèse

merci

Temjeh

Oups je test vos solution et reviens!!!!!!!!!!!

 

[gbinforme]

Re : Erreur dans ActiveCell.FormulaLocal

ActiveCell.FormulaLocal = "=ARRONDI(NB.SI(G" & NLig1 & ":G" & NLig2 & ";"")*100/NBVAL(G" & NLig1 & ": G" & NLig2);0)"

ActiveCell.FormulaR1C1 = "=ROUND(COUNTIF(R" & NLig1 & "C7:R" & NLig2 & "C7,"""")*100/COUNTA(R" & NLig1 & "C7:R" & NLig2 & "C7),0) &"" %"""

en fait les fonctions VBA sont en anglais et les ";" sont des ","
et la formulation des plages est "R1C1", donc ligne(Row)N° et colonne(Column)N°

 

[Catrice]

Re : Erreur dans ActiveCell.FormulaLocal

Re,

Avec FormulaLocal, sur un Excel 2002 FR, pas de probleme avec :
ActiveCell.FormulaLocal = "=ARRONDI(NB.SI(G" & NLig1 & ":G" & NLig2 & ";"""")*100/NBVAL(G" & NLig1 & ":G" & NLig2 & ");0)"

 

[Lord Nelson]

Re : Erreur dans ActiveCell.FormulaLocal

Salut GBInforme,

Justement, tout l'intérêt de FormulaLocal est de programmer Excel-VBA en français bien de chez nous !

Quel bonheur !

A+
Horatio

 

[Temjeh]

Re : Erreur dans ActiveCell.FormulaLocal

Merci beaucoup

Deux ou trois des votre fonctionnent.

NLig2 = ActiveCell.Offset(-1, 0).Row ...ca ca va

J'ai de la difficulté et je ne sais pas pourquoi à déclare mon NLig1

'Test sur ma col vers le haut et lorsque rencontre une formule sélect la cell du bas de sa col
For i = ActiveCell.Row To 1 Step -1
If Left(CStr(Range("G" & i).FormulaLocal), 1) = "=" Then
NLig1 = i + 1
Exit For
End If
Next i

...cherche la 1ère cell du dessus qui n'a pas de formule dedans. Dans une autre application ce code fonctionne mais ici la boucle stop sur la cell au dessus de l'activecell

Merci pour tout

Temjeh

 

[Lord Nelson]

Re : Erreur dans ActiveCell.FormulaLocal

Re,

Je la jouerais comme ceci :

For i = ActiveCell.Row To 1 Step -1
If Range("G" & i).HasFormula Then
NLig1 = i + 1
Exit For
End If
Next i

 

[Temjeh]

Re : Erreur dans ActiveCell.FormulaLocal

Merci beaucoup

Mon erreur est toujours là

Pourtant si je lui fait un test sur une autre col ca fonctionne mais pas en col G ...bizzarre

Test sur col E c'est bon ...E a que des mots sans chiffres ...G que des chiffres

For i = ActiveCell.Offset(-2, 0).Row To 1 Step -1
If Range("E" & i).HasFormula Then
NLig1 = i + 1
MsgBox NLig1
Exit For
End If
Next i

'à la sorti de la boucle sélect la cell en bas de la cel avec formule
'pour la première de la plage
NLig2 = ActiveCell.Offset(-1, 0).Row
ActiveCell.FormulaLocal = "=ARRONDI(NB.SI(G" & NLig1 & ":G" & NLig2 & ";"""")*100/NBVAL(G" & NLig1 & ":G" & NLig2 & ");0)"

A+

Temjeh

 

[Temjeh]

Re : Erreur dans ActiveCell.FormulaLocal

Rebonjour à tous

Je reste sur le même fil car ma dernière question est semblable:

J'ai ceci: =ARRONDI(NB.SI(G285:G295;"")*100/(LIGNE()-LIGNE(G285));0)&" %" que je veut mettre comme l'autre du haut dans un code:

Ceci est bon:
ActiveCell.FormulaLocal = "=ARRONDI(NB.SI(G" & NLig1 & ":G" & NLig2 & ";" & Chr(34) & Chr(34) & ")*100/(LIGNE()-LIGNE(G285));0)&"" %"""

Sauf que comme plus haut dans ce poste je voudrais lui mettre avec variable(ici c'est la fin ...*100/(LIGNE()-LIGNE(G285)) car le reste est bon

J'ai essayé beaucoup de chose comme pour avoir le NLig1:

No de Ligne active - No de ligne variable

...*100/(LIGNE()-(" & NLig1")

...*100/(LIGNE()-(" & NLig1&")

...*100/(LIGNE()-(NLig1)

Merci pour votre aide

Temjeh

 

[pierrejean]

Re : Erreur dans ActiveCell.FormulaLocal

bonjour Temjeh

A tester

(LIGNE()-" & Nlig1 & ")

 

[Temjeh]

Re : Erreur dans ActiveCell.FormulaLocal

Merci encore pour ton aide

Un gros merci aussi à:

La perfection ! Lord Nelson, Catrice et gbinforme qui mon beaucoup fait avancé

A+

Temjeh