Recherche instruction VBA

pascal82 · 28 Mars 2011

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 · 28 Mars 2011

Re : Recherche instruction VBA

Bonsoir,

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

Code:

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

bonne soiré
@+

Softmama · 28 Mars 2011

Re : Recherche instruction VBA

hello,

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

VB:

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 · 28 Mars 2011

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

Recherche instruction VBA

pascal82

XLDnaute Occasionnel

Pierrot93

XLDnaute Barbatruc

Softmama

XLDnaute Accro

pascal82

XLDnaute Occasionnel

Discussions similaires

Recherche instruction VBA

pascal82

XLDnaute Occasionnel

Pierrot93

XLDnaute Barbatruc

Softmama

XLDnaute Accro

pascal82

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency