Liste des formules utiles pour la formation TIFCC.
Sommaire |
Relation pression-température pour le fluide R22, T en kelvin, le résultat en pression absolue (bar)
=EXP(75,30265+(-4155,54)/T+0,018343*T+(-11,3186)*LN(T))-0,01325
Voici un exemple d'utilisation avec le tableur Calc de la suite bureautique OpenOffice.org ; à noter la dernière valeur de la formule pour que le résultat soit en pression relative (bar)
=A1+273,15
=EXP(75,30265+(-4155,54)/A2+0,018343*A2+(-11,3186)*LN(A2))-1,01325
Macro Microsoft Excel pour colorer en gris le fond d'une ligne sur deux d'une feuille de calcul.
Sub CouleurLignesGris() Dim Ind As Boolean, Ligne As Range Cells.Interior.ColorIndex = xlNone For Each Ligne In ActiveWorkbook.ActiveSheet.UsedRange.SpecialCells(xlCellTypeVisible).Rows If Ind = True Then Ligne.Interior.ColorIndex = 15 ' Rendre gris End If Ind = Not Ind Next Ligne End Sub
Macro Microsoft Excel pour colorer en gris le fond d'une ligne sur deux d'une feuille de calcul, uniquement sur la sélection (plage) en cours.
Sub CouleurLignesGris() Dim Ind As Boolean, Ligne As Range rPlage = ActiveWindow.RangeSelection.Address Cells.Interior.ColorIndex = xlNone For Each Ligne In ActiveWorkbook.ActiveSheet.Range(rPlage).Rows If Ind = True Then Ligne.Interior.ColorIndex = 15 ' Rendre gris End If Ind = Not Ind Next Ligne End Sub
Macro Microsoft Excel pour rendre transparent le fond d'une ligne sur deux d'une feuille de calcul.
Sub CouleurLignesTransparent() Dim Ind As Boolean, Ligne As Range Cells.Interior.ColorIndex = xlNone For Each Ligne In ActiveWorkbook.ActiveSheet.UsedRange.SpecialCells(xlCellTypeVisible).Rows If Ind = True Then Ligne.Interior.ColorIndex = xlNone ' Rendre transparent End If Ind = Not Ind Next Ligne End Sub