aide pour macro avec formule

[bpol]

RE le forum,

voilà mon problème je voudrais inclure une formule dans des cellules mais les lignes sont variables vu que la macro indique à la suite dans une feuille.

voici le code que j'ai essayé mais il manque la variante pour la ligne et là je coince

Sheets("histo").Select
        ligne = Range("A65536").End(xlUp).Row + 1
        Cells(ligne, 1) = Sheets("fiche").Range("E2")
        Cells(ligne, 2).FormulaR1C1 = "= NBVAL(" & B & ":" & BB & ")"

Bpol

 

[Efgé]

Re : aide pour macro avec formule

Bonjour bpol,
Si j'ai bien compris...A essayer:

Cells(ligne, 2).FormulaLocal = "=NBVAL(" & B & ":" & BB & ")"

Cordialement

 

[bpol]

Re : aide pour macro avec formule

bonjour efgé,

elle s'arrête à hauteur de

Cells(ligne, 2).FormulaLocal = "=NBVAL(" & [B]B[/B] & ":" & BB & ")"

message :variable non définie

pour préciser je souhaite inclure la formule =NBVAL(B:BB)
mais pour chaque ligne encodées.

BPOL

 

[bpol]

Re : aide pour macro avec formule

Re,

comment puis je introduire la variable de ligne dans cette macro?

Merci
Bpol

 

[Efgé]

Re : aide pour macro avec formule

Re

ligne = Range("A65536").End(xlUp).Row + 1

Cordialement

 

[bpol]

Re : aide pour macro avec formule

Re efgé,
Ok mais cette ligne existe déjà mais elle coince à hauteur du nom de la réf de la colonne

Sheets("histo").Select
        ligne = Range("A65536").End(xlUp).Row + 1
        Cells(ligne, 1) = Sheets("fiche").Range("E2")
        Cells(ligne, 2).FormulaLocal = "=NBVAL(" &[B] B[/B] & ":" & BB & ")"

Bpol

 

[Efgé]

Re : aide pour macro avec formule

Il serait préférable de poster un fichier exemple ou au moins tout le code de la macro, si non on n'es pas couchés.
Cordialement

 

[Efgé]

Re : aide pour macro avec formule

Re
Peut être :

Cells(ligne, 2).FormulaLocal = "=NBVAL(""B:BB"")"

Il faut doubler les quotes " devant et derriere la plage.
Cordialement

 

[bpol]

Re : aide pour macro avec formule

Re,

voici le fichier simplifié le code se trouve dans la macro "créer"

Merci encore
Bpol

 

[Efgé]

Re : aide pour macro avec formule

Re
Peut être :

Cells(ligne, 2).FormulaLocal = "=NBVAL(""B:BB"")"

Il faut doubler les quotes " devant et derriere la plage.

C'est ça
Cordialement

 

[bpol]

Re : aide pour macro avec formule

re,

le résultat est la formule est bien dans la cellule mais dans la cellule il est indiqué 1 et la formule n'est pas active.

PS: j'ai commis une petite erreur c'est (C:BB) mais cela ne change ien au résultat.

Bpol

 

[Efgé]

Re : aide pour macro avec formule

Alors, essayez:

Cells(ligne, 2).FormulaLocal = "=NBVAL(C:BB)"

 

[bpol]

Re : aide pour macro avec formule

Merci Efgé,

Impec çà fonctionne!

j'arrête les frais avec ce fichier il me prend la tête

Bpol

 

[bpol]

Re : aide pour macro avec formule

Re,

une simple remarque la formule fncionne sur la 1ere ligne mais dès la 2e elle re-calcule la 1ere Ligne.

mais j'ai abandonné cette solution car cela me fera +/_ 1000 formules dans la colonne.

Bpol