GROS NUL

Sub start()

Range("N5:P5").Interior.Color = RGB(250, 0, 0) 'coloration des cellules N5 à P5 en rouge
Range("Q5:S5").Interior.Color = RGB(200, 250, 250) 'coloration des cellules Q5 à S5 en bleu ciel
Range("T5:W5").Interior.Color = RGB(100, 100, 250) 'coloration des cellules T5 à W5 en bleu
Range("N6:W6").Interior.Color = RGB(255, 200, 0) 'coloration des cellules N6 à W6 en Jaune
Range("N7:W7").Interior.Color = RGB(250, 150, 80) 'coloration des cellules N7 à W7 en orange
Range("N5:W7").Borders.Color = RGB(0, 0, 0) 'coloration des bordures Q5 à W7 en noir

Range("N5").Value = "U(V)" 'Insertion des caractères dans la cellule N5
Range("N5").Font.Size = 20 'Choix de la taille du texte dans la cellule N5
Range("Q5").Value = "I(A)"
Range("Q5").Font.Size = 20
Range("T5").Value = "DPF(°)"
Range("T5").Font.Size = 20
Range("U5").Value = "P(W)"
Range("U5").Font.Size = 20
Range("V5").Value = "Q(Var)"
Range("V5").Font.Size = 20
Range("W5").Value = "S(VA)"
Range("W5").Font.Size = 20
Range("N6").Value = "Max"
Range("N6").Font.Size = 14
Range("O6").Value = "Min"
Range("O6").Font.Size = 14
Range("P6").Value = "RMS"
Range("P6").Font.Size = 14
Range("Q6").Value = "Max"
Range("Q6").Font.Size = 14
Range("R6").Value = "Min"
Range("R6").Font.Size = 14
Range("S6").Value = "RMS"
Range("S6").Font.Size = 14
Range("N7:W7").Value = "0,00" ' Insertion de la valeur 0,00 dans les cellules de N7 à W7

End Sub

Sub Restart()

Range("N5:W7").Interior.Color = RGB(255, 255, 255) 'coloration des bordures Q5 à W7 en blanc
Range("N5:W7").Value = "" ' Suppression de tous les caractères des cellules
Range("N5:W7").Borders.Color = RGB(200, 200, 200) 'coloration des bordures Q5 à W7 en gris
End Sub


Sub MinMax()

Cells(7, 14) = Application.WorksheetFunction.Max(Range("C:C")) 'Chercher la valeur Max dans la colonne C et la recopier dans la cellule N7
Cells(7, 15) = Application.WorksheetFunction.Min(Range("C:C")) 'Chercher la valeur Min dans la colonne C et la recopier dans la cellule O7
Cells(7, 17) = Application.WorksheetFunction.Max(Range("B:B"))
Cells(7, 18) = Application.WorksheetFunction.Min(Range("B:B"))

End Sub