Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

FormulaR1C1 remplacé par FormulaLocal

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion cibleo
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

cibleo

XLDnaute Impliqué
Bonjour le forum,

Dans la colonne R, cette formule : =SI(Q2="";"";Q2-N2) traduite en VBA
Code: 
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)
Code: 
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.

Code: 
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
 
Trier par date Trier par votes
Re : FormulaR1C1 remplacé par FormulaLocal

Bonsoir,
A tout hasard
Code: 
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
 
Vote positif 0 Vote négatif
Re : FormulaR1C1 remplacé par FormulaLocal

Re bonsoir à tous,

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

Code: 
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
 
Vote positif 0 Vote négatif
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 :
Code: 
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.

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

Pouvez-vous m'aider, je m'y perds encore 😕
Cibleo
 
Vote positif 0 Vote négatif
Re : FormulaR1C1 remplacé par FormulaLocal

Salut Cibleo

Dans le code, mieux vaut toujours qualifier l'utilisation du Range()
Code: 
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
Code: 
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+
 
Vote positif 0 Vote négatif
Re : FormulaR1C1 remplacé par FormulaLocal

Salut Bruno,

D'accord avec toi sur ce point :
Code: 
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
 
Vote positif 0 Vote négatif
Re : FormulaR1C1 remplacé par FormulaLocal

Re,

Si plage dynamique, alors :
Code: 
Range("R" & DerLiR + 2).FormulaLocal= "=SOMMEPROD((JOURSEM(A2:A" & DerLig & ";2)=3)*(R2:R" & DerLig & "))"

A+
 
Vote positif 0 Vote négatif
Re : FormulaR1C1 remplacé par FormulaLocal

Re,

Cela me renvoyait une erreur #Nom# et ceci 😕
=SOMMEPROD((JOURSEM(A2:A;2)=3)*(R2:R))
Cliquez pour agrandir...
Y avait une erreur de retranscription DerLig à la place de DerLiR.
Code: 
Range("R" & DerLiR + 2).FormulaLocal = "=SOMMEPROD((JOURSEM(A2:A" & [COLOR=red]DerLiR[/COLOR] & ";2)=3)*(R2:R" & [COLOR=red]DerLiR[/COLOR] & "))"

Merci Bruno 😉

Cibleo
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

S
  • Résolu(e)
Autres ActiveWorkbook.Worksheets("vierge").AutoFilter.Sort.SortFields.Clear
2
Réponses
23
Affichages
3 K
AtTheOne
C
  • Résolu(e)
Microsoft 365 Amélioration Macro.
Réponses
7
Affichages
829
crazy
C
  • Question Question
Microsoft 365 Simplification de code
Réponses
1
Affichages
1 K
GADENSEB
C
  • Résolu(e)
Microsoft 365 Formule qui ralenti ma macro
2
Réponses
15
Affichages
3 K
mapomme
N
  • Résolu(e)
XL 2016 Lenteur à l'insertion de ligne en VBA
Réponses
5
Affichages
3 K
Nicocotte125
N
G
  • Question Question
XL 2013 Figer les valeurs après macro
Réponses
3
Affichages
2 K
danielco
D
J
  • Question Question
VBA, Comprendre FormulaR1C1=
Réponses
4
Affichages
39 K
Johanes
J
M
  • Question Question
Macro repeter tant que en codage VBA
Réponses
3
Affichages
2 K
Dranreb
M
  • Question Question
Optimisation macro avec boucles
Réponses
1
Affichages
899
titiborregan5
T
C
  • Question Question
Optimiser ma macro
Réponses
1
Affichages
2 K
Yaloo
Y
M
  • Question Question
Base de donnée excel avec VBA
Réponses
9
Affichages
2 K
cathodique
N
  • Question Question
Booster une macro
Réponses
5
Affichages
3 K
Staple1600
R
  • Question Question
pb export feuille excel en .csv quote
Réponses
5
Affichages
13 K
Staple1600
R
  • Question Question
Macro copier plage avec condition textbox
Réponses
0
Affichages
6 K
r0man0
R
J
  • Question Question
Pourquoi ma macro ne marche pas quand je l'éxécute en une macro !
Réponses
7
Affichages
3 K
gilbert_RGI
M
  • Question Question
Macro trop longue
Réponses
6
Affichages
2 K
Tirou
T
J
  • Question Question
Optimiser temps calcul macro
Réponses
8
Affichages
2 K
Softmama
S
  • Question Question
VBA : Compter 1 occurence dans une plage dynamique
2 3 4
Réponses
45
Affichages
9 K
pierrejean
L
  • Question Question
Macro fonctionne pas sous Office 2007
Réponses
4
Affichages
2 K
Lorenzogazier
L
F
  • Question Question
insertion dans LISTBOX des valeurs sur plusieurs lignes d'une autre LISTBOX
Réponses
0
Affichages
2 K
fid
F
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…