FormulaR1C1 remplacé par FormulaLocal

[cibleo]

Bonjour le forum,

Dans la colonne R, cette formule : =SI(Q2="";"";Q2-N2) traduite en VBA

ShtR.Cells(DerLiR, [COLOR=red]18[/COLOR]).FormulaR1C1 = "=IF(RC[-1]="""","""",RC[-1]-RC[-4])"

Dans la colonne U, cette autre formule : =SI(R2="";"";R2*0,85-S2-T2)

ShtR.Cells(DerLiR, [COLOR=blue]21[/COLOR]).FormulaR1C1 = "=IF(RC[-3]="""","""",RC[-3]*0.85-RC[-2]-RC[-1])"

Ces 2 instructions font partie d'une boucle Do...Loop While que j'aimerais supprimer.
Mais intégrer dans la macro ci-dessous sous forme de FormulaLocal.

Sub Calcul_H_Prise_Serv() 'PierreJean
DerLiR = Sheets("Synthese").Range("A65536").End(xlUp).Row
For n = 2 To DerLiR
 Range("N" & n).FormulaLocal = "=prise_serv(" & n & ")"
 Range("O" & n).FormulaLocal = "=lieu_heure(" & n & ")"
 'Range("[COLOR=red]R[/COLOR]" & n).[COLOR=green]FormulaLocal[/COLOR] =
 'Range("[COLOR=blue]U[/COLOR]" & n).[COLOR=green]FormulaLocal[/COLOR] =
Next n
End Sub

Comment puis-je les retranscrire ?

Cibleo

 

[kjin]

Re : FormulaR1C1 remplacé par FormulaLocal

Bonsoir,
A tout hasard

Sub Calcul_H_Prise_Serv() 'PierreJean
DerLiR = Sheets("Synthese").Range("A65536").End(xlUp).Row
For n = 2 To DerLiR
Range("N" & n).FormulaLocal = "=prise_serv(" & n & ")"
Range("O" & n).FormulaLocal = "=lieu_heure(" & n & ")"
Range("R" & n).FormulaLocal = "=SI(Q" & DerLiR & "="""";"""";Q" & DerLiR & "-N" & DerLiR & ")"
Range("U" & n).FormulaLocal = "=SI(R" & DerLiR & "="""";"""";R" & DerLiR & "*0,85-(S" & DerLiR & "-T)" & DerLiR & ")"
Next n
End Sub

A+
kjin

 

[cibleo]

Re : FormulaR1C1 remplacé par FormulaLocal

Re bonsoir à tous,

Merci de m'avoir aiguiller Kjin 🙂, grâce à toi, j'ai fini par trouver.

Sub Calcul_H_Prise_Serv() 'PierreJean
DerLiR = Sheets("Synthese").Range("A65536").End(xlUp).Row
For n = 2 To DerLiR
Range("N" & n).FormulaLocal = "=prise_serv(" & n & ")"
Range("O" & n).FormulaLocal = "=lieu_heure(" & n & ")"
Range("R" & n).FormulaLocal = "=SI(Q" & n & "="""";"""";Q" & n & "-N" & n & ")"
Range("U" & n).FormulaLocal = "=SI(R" & n & "="""";"""";R" & n & "*0,85" & "-S" & n & "-T" & n & ")"
Next n
End Sub

Cibleo

 

[kjin]

Re : FormulaR1C1 remplacé par FormulaLocal

Bonsoir,

...
Range("R" & n).FormulaLocal = "=SI(Q" & [COLOR="Red"]DerLiR[/COLOR] & "="""";"""";Q" & DerLiR & "-N" ....

Bah, je devais être dans l'arbre...(expression locale, c'est à dire mon bureau...)
A+
kjin

 

[cibleo]

Re : FormulaR1C1 remplacé par FormulaLocal

Bonjour le forum,
Bonjour kjin,

En bout de colonne R, j'ai la somme de la plage et donc la formule suivante : =SOMME($R$2:$R$5)

Traduite en VBA comme ceci :

Cells(DerLiR + 1, [COLOR=red]18[/COLOR]).FormulaLocal = "=SOMME(" & Cells([COLOR=blue]2[/COLOR], [COLOR=red]18[/COLOR]).Address & ":" & Cells([COLOR=green]DerLiR[/COLOR], [COLOR=red]18[/COLOR]).Address & ")"

Toujours en colonne R, j'aimerais retranscrire cette formule : =SOMMEPROD((JOURSEM(A2:A5;2)=3)*(R2:R5))
qui correspond à la somme des mercredis.

Cells(DerLiR + 2, [COLOR=red]18[/COLOR]).FormulaLocal = "=SOMMEPROD.........

Pouvez-vous m'aider, je m'y perds encore 😕
Cibleo

 

[Compte Supprimé 979]

Re : FormulaR1C1 remplacé par FormulaLocal

Salut Cibleo

Dans le code, mieux vaut toujours qualifier l'utilisation du Range()

Sub Calcul_H_Prise_Serv()  'PierreJean
  With Sheets("Synthese")
    DerLiR = .Range("A65536").End(xlUp).Row
    For n = 2 To DerLiR
      .Range("N" & n).FormulaLocal = "=prise_serv(" & n & ")"
      .Range("O" & n).FormulaLocal = "=lieu_heure(" & n & ")"
      .Range("R" & n).FormulaLocal = "=SI(Q" & n & "="""";"""";Q" & n & "-N" & n & ")"
      .Range("U" & n).FormulaLocal = "=SI(R" & n & "="""";"""";R" & n & "*0,85" & "-S" & n & "-T" & n & ")"
    Next n
  End With
End Sub

Avec ce code on est certain que les cellules remplies sont celle située dans la feuille "Synthese"

Sinon pour ta dernière question

Range("R" & DerLiR + 2).FormulaLocal= "=SOMMEPROD((JOURSEM(A2:A5;2)=3)*(R2:R5))"

Je ne vois pas trop ou se situe le problème avec FormulaLocal 😕

A+

 

[cibleo]

Re : FormulaR1C1 remplacé par FormulaLocal

Salut Bruno,

D'accord avec toi sur ce point :

Range("R" & DerLiR + 2).FormulaLocal=

J'ai oublié de préciser que la formule venait se placer au bout d'une plage dynamique.
Donc =SOMMEPROD((JOURSEM(A2:A?;2)=3)*(R2:R?)) soit jusqu'à la dernière ligne.

Dans mon élan, j'espère ne pas avoir posé une question stupide 😱

Cibleo

 

[Compte Supprimé 979]

Re : FormulaR1C1 remplacé par FormulaLocal

Re,

Si plage dynamique, alors :

Range("R" & DerLiR + 2).FormulaLocal= "=SOMMEPROD((JOURSEM(A2:A" & DerLig & ";2)=3)*(R2:R" & DerLig & "))"

A+

 

[cibleo]

Re : FormulaR1C1 remplacé par FormulaLocal

Re,

Cela me renvoyait une erreur #Nom# et ceci 😕

=SOMMEPROD((JOURSEM(A2:A;2)=3)*(R2:R))

Y avait une erreur de retranscription DerLig à la place de DerLiR.

Range("R" & DerLiR + 2).FormulaLocal = "=SOMMEPROD((JOURSEM(A2:A" & [COLOR=red]DerLiR[/COLOR] & ";2)=3)*(R2:R" & [COLOR=red]DerLiR[/COLOR] & "))"

Merci Bruno 😉

Cibleo