Erreur dans ActiveCell.FormulaLocal

ninbihan

XLDnaute Impliqué

• 13 Juin 2007

• #2

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

 

Vote positif 0 Vote négatif

L

Lord Nelson

XLDnaute Occasionnel

• 13 Juin 2007

• #3

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

 

Vote positif 0 Vote négatif

C

Catrice

XLDnaute Barbatruc

• 13 Juin 2007

• #4

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

 

Vote positif 0 Vote négatif

Temjeh

XLDnaute Accro

• 13 Juin 2007

• #5

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

 

Dernière édition: 13 Juin 2007

Vote positif 0 Vote négatif

G

gbinforme

XLDnaute Impliqué

• 13 Juin 2007

• #6

Re : Erreur dans ActiveCell.FormulaLocal

Temjeh à dit:

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

Cliquez pour agrandir...

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°

 

Vote positif 0 Vote négatif

C

Catrice

XLDnaute Barbatruc

• 14 Juin 2007

• #7

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

 

Vote positif 0 Vote négatif

L

Lord Nelson

XLDnaute Occasionnel

• 14 Juin 2007

• #8

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

 

Vote positif 0 Vote négatif

Temjeh

XLDnaute Accro

• 14 Juin 2007

• #9

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

 

Dernière édition: 14 Juin 2007

Vote positif 0 Vote négatif

L

Lord Nelson

XLDnaute Occasionnel

• 14 Juin 2007

• #10

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

 

Vote positif 0 Vote négatif

Temjeh

XLDnaute Accro

• 14 Juin 2007

• #11

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

 

Vote positif 0 Vote négatif

Temjeh

XLDnaute Accro

• 14 Juin 2007

• #12

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 14 Juin 2007

• #13

Re : Erreur dans ActiveCell.FormulaLocal

bonjour Temjeh

A tester

Code:

(LIGNE()-" & Nlig1 & ")

 

Vote positif 0 Vote négatif

Temjeh

XLDnaute Accro

• 14 Juin 2007

• #14

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

 

Dernière édition: 14 Juin 2007

Vote positif 0 Vote négatif