Fonction Substitue en chaine Fermé

Question

Bonjour, 

J'ai trouvé ceci pour l'utilisation Substitue :
https://forums.commentcamarche.net/forum/affich-17553174-excel-fonction-substitue

Le problème est la restriction sur le nombre car j'ai beaucoup plus de de 7 mots à changer dans mon fichier. Existe-t-il une macro avec un tableau qui permettrait cela ?

J'ai aussi trouvé ceci (qui je pense correspond à ma recherche), mais je ne suis pas capable d'adapter le code :

Option Explicit
Option Base 1

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim Abbrev
  Dim changed As Range, c As Range
  Dim m As Variant
  
  Const AbbrevCol As String = "B"
  
  Set changed = Intersect(Target, Columns(AbbrevCol))
  If Not changed Is Nothing Then
    Abbrev = Array("g", "grams", "ts", "teaspoons", "tb", "tablespoons", "c", "cups", "m", "mls")
    Application.EnableEvents = False
    For Each c In changed
      m = Application.Match(c.Value, Abbrev, False)
      If IsNumeric(m) Then
        If m Mod 2 = 1 Then
          c.Value = Abbrev(m + 1)
        End If
      End If
    Next c
    Application.EnableEvents = True
  End If
End Sub

Configuration: Windows 7 / Firefox 30.0

eriiic · Answer

Bonjour,

Si tu expliquais ton besoin ?
Joindre un fichier de travail.
eric

alain.terieur12 · Answer

Bonsoir,
Désolé pour ce manque d'explication.
J'ai un fichier d'adresse. J'ai réussi jusqu'ici à séparer le numéro du reste de l'adresse. J'ai donc désormais des cellules avec par exemple :
 - RUE DES FLEURS
 - ALLEE CONDORCET
 - AVENUE DE LA REPUBLIQUE...
Je dois désormais remplacer toutes les RUE du fichier par R, les ALLEE par ALL...etc
La fonction SUBSTITUE répond à ma demande mais elle est limitée en nombre car j'ai bien plus de 7 ou 10 abréviations à remplacer dans mon fichier (AVE, ROUTE, RTE, COURS, IMPASSE, IMP...).
J'ai déjà utilisé une macro qu'un forumeur m'a gentiment fourni, dans laquelle il utilisait un tableau pour stocker les valeurs recherchées. J'imagine qu'il doit être possible de faire un tableau pour recencer mes RUE, ALLEE, AVENUE et un tableau de correspondance R, ALL, AV... pour faire les changements. Malheureusement, je n'ai pas les compétences requises en programmation.

alain.terieur12 · Answer

@via55 : merci de ta réponse. Je testerai cela demain au bureau.
Cordialement,

eriiic · Answer

Re,

Comme il s'agit d'adresses, pour les abréviation tu devrais te baser sur celles officielles pour les type de voie.
Rue ne s'abrège pas R par exemple.

Un guide avec les principales :
http://www.sirene.fr/sirene/public/variable/typvoie
Et un document plus complet : http://www.dsi.cnrs.fr/conduite-projet/phasedeveloppement/technique/etude-detaillee/modele-de-donnees/regles-enregistrement-adresses-postales.doc
Avec les bis etc en p6, et le types de voies à la fin.

eric

alain.terieur12 · Answer

@Eriic : merci pour cette précision, mais les données que je dois traiter seront couplées à des données de l'IGN, qui, entre autre, utilise R pour abrévier RUE.

alain.terieur12 · Answer

@via55 : merci cela fonctionne assez bien. Néanmoins, malgré la présence de certains mots dans la feuil1 associés à une abréviation, ils ne sont pas traiter dans le fichier. Une idée de la raison ?
Ex : IMPASSE reste IMPASSE au lieu de IMP, idem pour LOTISSEMENT ou ROND POINT

Fonction Substitue en chaine

6 réponses

Discussions similaires