Supprimer les sous-domaines d'une URL

Question

J'ai besoin de nettoyer des URL en ne gardant que les noms de domaines. Sous forme Excel ça donne : Passer de marketer.lpsnmedia.net à lpsnmedia.net ou encore e.service.formation-mail.fr à formation-mail.fr Je me suis perdu dans mes formules entre les : =DROITE(A1;NBCAR(A1)-TROUVE(".";A1)) et les =SI(ESTNUM(TROUVE(".";A1;DROITE(A1;NBCAR(A1)-TROUVE(".";A1))));DROITE(A1;NBCAR(A1)-TROUVE(".";A1));A1) et les =REMPLACER(A1;1;TROUVE(".";SUBSTITUE(A1;".";"";NBCAR(A1)-NBCAR(DROITE(A1;"."))));"") et les =SI(ESTERREUR(CHERCHE(".";A1));A1;DROITE(A1;CHERCHE(".";A1)-1)) Je ne sais plus sur quel pied danser. Pleeeeeeease, heeeeeeeeelp ...

EngueEngue · Accepted Answer

=SI(NBCAR(A1)-NBCAR(SUBSTITUE(A1;".";""))=2;DROITE(A1;NBCAR(A1)-TROUVE(".";A1));SI(NBCAR(A1)-NBCAR(SUBSTITUE(A1;".";""))=3;DROITE(DROITE(A1;NBCAR(A1)-TROUVE(".";A1));NBCAR(DROITE(A1;NBCAR(A1)-TROUVE(".";A1)))-TROUVE(".";DROITE(A1;NBCAR(A1)-TROUVE(".";A1))))))

Et ainsi desuite.. Sinon ce serait plus simple de faire une fonction personnaliséée toute simple.

Function extrairedomaine(R As Range)
x = Split(R, ".")
For i = UBound(x) - 1 To UBound(x)
extrairedomaine = extrairedomaine & "." & x(i)
Next i
extrairedomaine = Right(extrairedomaine, Len(extrairedomaine) - 1)
End Function

Puis =extrairedomaine(A1)