En tapant 4 x 3 dans une cellule Excel, comment puis-je obtenir directement le résultat ? Merci
AV
SI tu veux le résultat sans saisir le signe = : dans le module de la feuille (pour une saisie en A1) :
Private Sub Worksheet_Change(ByVal zz As Range) If zz.Address <> "$A$1" Then Exit Sub Application.EnableEvents = False On Error Resume Next zz = Evaluate("=" & zz) Application.EnableEvents = True End Sub
AV
SI tu veux le résultat sans saisir le signe = :
dans le module de la feuille (pour une saisie en A1) :
Private Sub Worksheet_Change(ByVal zz As Range)
If zz.Address <> "$A$1" Then Exit Sub
Application.EnableEvents = False
On Error Resume Next
zz = Evaluate("=" & zz)
Application.EnableEvents = True
End Sub
SI tu veux le résultat sans saisir le signe = : dans le module de la feuille (pour une saisie en A1) :
Private Sub Worksheet_Change(ByVal zz As Range) If zz.Address <> "$A$1" Then Exit Sub Application.EnableEvents = False On Error Resume Next zz = Evaluate("=" & zz) Application.EnableEvents = True End Sub