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
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