Switzerland started getting unique ticket across public transport companies since 1857. Now it's enshrined in the law (and over 240 different transportation companies are participating, incl. train, bus, gondola, boats, etc.).

(service direct in French, direkter Verkher in German)

Prices are much higher than Germany though.