Recherche instruction VBA

[pascal82]

Bonjour à tous,

Si cela existe, je cherche l’instruction VBA pour faire apparaître uniquement le résultat du calcul mais sans la formule.
Autre sujet, le collage de la cellule M12 provoque des mouvements désagréables de la feuille Excel. La aussi si quelqu‘un connaît l’instruction.
Si le sujet a déjà été abordé, désolé mais je n’ai pas trouvé.

Merci par avance

Exemple :

Dim C As Long
For C = 16 To 116
Range("M17").FormulaR1C1 = "=SIN(RC[-11]/R13C16) +SIN(RC[-10]/R13C17)+ SIN(RC[-9]/R" & C & "C15)"
Range("M17").Select
Selection.AutoFill Destination:=Range("M17:M117"), Type:=xlFillDefault
Range("M17:M117").Select
Range("M12").Copy
Range("R" & C).PasteSpecial Paste:=xlPasteValues
Next C

 

[Pierrot93]

Re : Recherche instruction VBA

Bonsoir,

pour empêcher le rafraichissement de l'écran :

Application.ScreenUpdating = False
'ton code
Application.ScreenUpdating = True

bonne soiré
@+

 

[Softmama]

Re : Recherche instruction VBA

hello,

A priori, vois ce que ceci donne, à tester donc :

Sub Test()
Range("M17").FormulaR1C1 = "=SIN(RC[-11]/R13C16) +SIN(RC[-10]/R13C17)+ SIN(RC[-9]/R16C15)"
Range("M17").AutoFill Destination:=Range("M17:M117"), Type:=xlFillDefault
Range("M17:M117").Value = Range("M17:M117").Value
Range("M12").Copy Range("R16:R116")
end Sub()

 

[pascal82]

Re : Recherche instruction VBA

Bonjour Pierrot93 et Softmama,

Merci pour la rapidité, pour le rafraichissement de l'écran c'est OK, pour le code il faut que je travail.

Bonne soirée