Afficher un message
  #22 (permalien)  
Ancien 28/06/2010, 13h42
Avatar de RémySansDomaines
RémySansDomaines (Déconnecté)
Yoda
 
Inscrit : mai 2009
Lieu: Suisse
Messages: 1 871
Chats: 2230
Par défaut Re : Outils pour domainers

C'est bien connu, l'un des outils les plus utilisés par les domainers et responsable d'un taux d'usure de la rétine fortement supérieur à la moyenne au sein de cette espèce est...

Excel.

Des listes de domaines, on en traite parfois plusieurs dizaines par jour, et ce dans des formats de toutes sortes, notamment dans la langue française et ses éèêëâàçùôûïî...

Les IDN vous donnent des boutons ? Vous en avez marre de faire le ménage à la main dans les listes de noms de domaine accentués ? Vous voulez remplacer d'une seule traite des caractères accentués par leur version sans accent (é => e, â => a, etc), et ce sans gaspiller de précieuses minutes à répliquer au cas par cas la fonction "remplacer" ?

Les macros sont vos amies et celle-ci devrait faire votre bonheur

Sub conv()
  For Each c In Selection
    c.Value = sansAccent(c)
  Next c
End Sub

Function sansAccent(chaine)
   codeA = "ÉÈÊËÔéèêëâàçùôûïî"
   codeB = "EEEEOeeeeaacuouii"
   temp = chaine
   For i = 1 To Len(temp)
    p = InStr(codeA, Mid(temp, i, 1))
    If p > 0 Then Mid(temp, i, 1) = Mid(codeB, p, 1)
   Next
   sansAccent = temp
End Function
De quoi se faire fusiller par les adeptes des IDN, mais bon
Répondre en citant