ContourPlot[Log[y/a]==a*Exp[a y],{y,-1,3},{a,-3,1}]