probléme d'ecriture

PHILIP · 27 Septembre 2011

Bonjour à tous

J'ai ce bout de code

Code:

For F = 4 To 34
    If Cells(F, 1) = Date Then
    Range("GZ" & F).Select (parceque je remplis la colonne GZ chaque jour )
ActiveCell.FormulaR1C1 = "=

qui dit que si une cellule de la colonne A qui contient les jours du mois correspond à la date du jour , je selectionne la cellule GZ de la ligne identifiée et j'y mets une formule qui doit m'aditionner les cellules (B et D) x 0.74 + (C et E) *2.1 de cette même ligne donc
("b" & f +"d" & f)*0.74 +("c" & f +"d" & f)*2.1 mais je n'y arrive pas parceque la formule ressort en texte ou m'écris nom?

pourriez vous m'aider

mutzik · 27 Septembre 2011

Re : probléme d'ecriture

bonjour

essaie
("b" & f "+d" & f)*0.74 +("c" & f "+d" & f)*2.1

mth · 27 Septembre 2011

Re : probléme d'ecriture

Bonjour à tous

Au cas où (mais peut-être mal compris)

Code:

    ActiveCell.Formula = "=((B" & f & "+C" & f & ")*0.74)+(C" & f & "+D" & f & ")*2.1"

Bonne journée à tous

mth

PHILIP · 27 Septembre 2011

Re : probléme d'ecriture

Bonjour Mutzik

voila j'ai mis

Code:

ActiveCell.FormulaR1C1 = "= ("b" & f "+ d" & f)*0.74 +("c" & f "+d" & f)*2.1

mais là il me met erreur de compilation , attendu de fin d'instruction en me mettant le B en erreur ? j' ai fais une erreur ?

mutzik · 27 Septembre 2011

Re : probléme d'ecriture

re,

ActiveCell.Formula = "=(b" & f & "+d" & f & ")*0.74 +(c" & f & "+d" & f & ")*2.1"

si on mets R1C1, il faut déclarer les cellules en numéro de colonne et non en lettre de colonne

PHILIP · 27 Septembre 2011

Re : probléme d'ecriture

Merci à vous , Mutzik et Mth votre savoir m'a été benefique

probléme d'ecriture

PHILIP

XLDnaute Occasionnel

mutzik

XLDnaute Barbatruc

mth

XLDnaute Barbatruc

PHILIP

XLDnaute Occasionnel

mutzik

XLDnaute Barbatruc

PHILIP

XLDnaute Occasionnel

Discussions similaires