Option Explicit
Option Base 1
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Formule(5) As String
Dim Texte As String
Dim Fonction As String
If Not Application.Intersect(ActiveCell, Range("B:B")) Is Nothing Then
Select Case Target.Value
Case "Abs"
Formule(1) = "=Abs( 50.3)"
Formule(2) = "=Abs(-50.3)"
Fonction = Target.Value
Texte = ""
Texte = Texte + Formule(1) & " renvoie " & Evaluate(Formule(1)) & vbCrLf
Texte = Texte + Formule(2) & " renvoie " & Evaluate(Formule(2)) & vbCrLf
Call Message(Texte, Fonction)
Case "Array"
Dim MyWeek
MyWeek = Array("Lun", "Mar", "Mer", "Jeu", "Ven", "Sam", "Dim")
Formule(1) = "MyWeek = Array(""Lun"", ""Mar"", ""Mer"", ""Jeu"", ""Ven"", ""Sam"", ""Dim"")"
Formule(2) = "=MyWeek(2)"
Formule(3) = "=MyWeek(4)"
Fonction = Target.Value
Texte = ""
Texte = Texte + Formule(1) & vbCrLf & vbCrLf
Texte = Texte + Formule(2) & " renvoie " & MyWeek(2) & vbCrLf
Texte = Texte + Formule(3) & " renvoie " & MyWeek(4) & vbCrLf
Call Message(Texte, Fonction)
End Select
End If
End Sub