act-6 : enregistreur macro
Exemple⚓
.
1 Sub FMD_Obs_Classes_Modele() 2 '3 ' FMD_Obs_Classes_Modele Macro4 '5 ' Touche de raccourci du clavier: Ctrl+Shift+F6 '7 ActiveCell.FormulaR1C1 = "N à t = 0" 8 Range("A3").Select 9 ActiveCell.FormulaR1C1 = "tdeb" 10 Range("B3").Select 11 ActiveCell.FormulaR1C1 = "tfin" 12 Range("C3").Select 13 ActiveCell.FormulaR1C1 = "tc" 14 Range("D3").Select 15 ActiveCell.FormulaR1C1 = "dt" 16 Range("E3").Select 17 ActiveCell.FormulaR1C1 = "dN(tc)" 18 Range("F3").Select 19 ActiveCell.FormulaR1C1 = "N(tdeb)" 20 Range("G3").Select 21 ActiveCell.FormulaR1C1 = "R(tdeb)" 22 Range("H3").Select 23 ActiveCell.FormulaR1C1 = "La(tc)" 24 Range("C4").Select 25 ActiveCell.FormulaR1C1 = "=RC[-2]+(RC[-1]-RC[-2])/2" 26 Range("D4").Select 27 Application.CutCopyMode = False 28 ActiveCell.FormulaR1C1 = "=RC[-2]-RC[-3]" 29 Range("F4").Select 30 ActiveCell.FormulaR1C1 = "=R[1]C" 31 Range("F5").Select 32 Application.CutCopyMode = False 33 ActiveCell.FormulaR1C1 = "=R[-1]C-R[-1]C[-1]" 34 Range("F5").Select 35 ActiveCell.FormulaR1C1 = "=R[-1]C-R[-1]C[-1]" 36 Range("F5").Select 37 ActiveCell.FormulaR1C1 = "=R[-1]C-R[-1]C[-1]" 38 Range("G4").Select 39 ActiveCell.FormulaR1C1 = "=RC[-1]/R1C[-5]" 40 Range("H4").Select 41 ActiveCell.FormulaR1C1 = "=IF(RC[-3]>0,RC[-3]/RC[-2]/RC[-4],0)" 42 Range("H5").Select 43 End Sub 44 | Le code ci-contre résulte de l'enregistrement macro. Copiez le dans le module Dans la feuille de calcul, activez la cellule A1, puis à l'aide du menu Vous devez constater le résultat ci-dessous |
| |
.