Le code ne fonctionne pas

[pascal82]

Bonjour à tous,
Je débute en VBA et mon petit code bloque en deuxième partie et je n'arrive pas à lui donner la bonne formule.
Le but cherché est de réaliser plusieurs boucles ou la formule injectée en « M17 » serait incrémentée au fur et a mesure des 10 boucles.

Merci par avance
Je joins le fichier en annexe

Sub Macrotest2()
'premiere partie
Dim X As Long
'X represente les valeurs successives de la division
For X = 16 To 25
' la formule est injectée dans la cellule M17 que je nomme laformule
Range("M17").FormulaR1C1 = "=SIN(RC[-11]/R" & X & "C15)"
' la formule est glissée jusqu'en bas
Range("M17").Select
Selection.AutoFill Destination:=Range("M17:M46"), Type:=xlFillDefault
Range("M17:M46").Select
'le résultat du calcul M12 est copié en colonne P + X
Range("M12").Copy
Range("P" & X).PasteSpecial Paste:=xlPasteValues

Next X

'deuxieme partie
Dim Y As Long
'X represente les valeurs successives de la division
For Y = 16 To 25
' la nouvelle formule est injectée dans la cellule M17

Range("M17").FormulaR1C1 = "=SIN(RC[-11]/R13C16" + "SIN(RC[-10]/R" & Y & "C15)"
' la formule est glissée jusqu'en bas
Range("M17").Select
Selection.AutoFill Destination:=Range("M17:M46"), Type:=xlFillDefault
Range("M17:M46").Select
'le résultat du calcul M12 est copié en colonne P + X
Range("M12").Copy
Range("q" & Y).PasteSpecial Paste:=xlPasteValues

Next Y
End Sub

 

[JNP]

Re : Le code ne fonctionne pas

Bonjour Pascal82 🙂,
A priori, j'écrirais

Range("M17").FormulaR1C1 = "=SIN(RC[-11]/R13C16)+SIN(RC[-10]/R" & Y & "C15)"

là, ça fonctionne, en espérant que c'est bien ce résultat que tu veux 🙄...
Bon dimanche 😎

 

[pierrejean]

Re : Le code ne fonctionne pas

Bonjour pascal82

Pas sur d'avoir compris ce que tu souhaites !!
Vois si tu peux tirer quelque chose de ceci

Edit: Salut JNP 🙂 🙂

 

[pascal82]

Re : Le code ne fonctionne pas

Bonjour JNP,

OK,
J’avais oublié la parenthèse
Merci encore

 

[pascal82]

Re : Le code ne fonctionne pas

Bonjour pierrejean,

C'est exactement ce que je veux
Merci encore