Remplacer a partir d'un tableau Excel

Re,

Le fichier s'appelle maintenant ....xlsm (car macro à l'intérieur, ne pas changer l'extension)

J'ai supposé que la feuille Liste était la feuille Parametres. Attention, tu as 'N°' en colonne A, si c'est présent dans une cellule traitée ça sera remplacé....

Je t'ai aussi ajouté un raccourci clavier, CTRL+r pour lancer la macro après la sélection des cellules.
http://www.cijoint.fr/cjlink.php?file=cj201101/cijlooY4ac.xlsm
Il faut activer et accepter les macros.

eric

Bonsoir,

shListe As Worksheet le domaine d'activité
Set shListe = Worksheets("Liste des Symbols") ou la macro prend les abreviation et leur ref.
oui, et c'est pour alléger le code et mettre shListe seulement partout où l'on fait référence au Worksheets("Liste des Symbols")

Application.ScreenUpdating = False
Pour accélérer le code, les cellules modifiées sont mises à jour en une fois à la fin de la macro (avec le =true)

For Each c In Selection pour chaque c sélectionnés exact, donc pour chaque cellule sélectionnée

c = Replace(c, shListe.Cells(lig, 1), "'" & shListe.Cells(lig, 2) & "'") on remplace les caractères compris dans la colonne 1 par ceux de la colonne 2 en les mettant entre '
tout à fait

For lig = 2 To shListe.[A65536].End(xlUp).Row
lig : variable qui va aller de 2 à la dernière ligne avec une valeur dans la colonne A (=.[A65536].End(xlUp).Row : en réalité on part du bas (A65536) et on remonte sur la 1ère cellule écrite et on récupère son n° avec .row)

dans la phrase G13= 1 et V(3)=1 ou 3 ou "G13" devrai être remplacer par CHAUFFAGE AUXILIAIRE il est remplacer par ECHELLE DE P° qui ce réfère a G1
et le t de "et" est replacer par TEMPS (en général)
ok, c'est moi qui ai mal travaillé. Ce n'est pas grave et je vois comment corriger mais je reçois du monde ce soir, pas sûr que je puisse poster ce soir...

eric

PS :
ton nouveau fichier est différent de l'exemple fourni
Quelle est ta liste ?
Celle de Parametres ou celle de 'Liste des Symbols' ? ou les 2 ?

De plus à-priori il faut tenir compte de la casse des caractères.
Tu confirmes ? Si oui la saisie devra totalement exacte avec majuscules/minuscules

Apparemment tu as bien saisi un espace après chaque abréviation ce qui facilite leur détection et lève les ambigüités. Par contre il faut absolument que cet espace soit bien présent dans les formules...

C'est donc un peu plus complexe que prévu, j'attends tes éclaircissements

Par contre les espaces des abréviations ne figurent pas dans formules je les ai donc supprimées en esperant que cela ne complique pas trop les choses.
Ben si
Comment savoir si le t de 'temps' est à replacer ou non ?
Si dans la formule le t à remplacer est toujours suivi d'un espace la macro peut le contrôler, mais si tu as t*2 ou t+2 ils ne seront pas remplacés si tu ne veux pas le remplacer dans 'temps'.
Dans ce cas il faudrait une liste de caractères qui definissent une fin de mot (comme un espace)
Ce qui complique singulièrement la macro

Si tu as de la liberté pour la rédaction des formules autant y encadrer les mots clés par des espaces ce qui règle presque tous les problèmes.
Tu peux les laisser sans espaces dans la liste.
eric

until perd ses espaces
Il fallait remplacer les ' par des espaces.

serait il possible que cela donne
1.0<1.20 et TE8<111
Heuuu, ça fait un peu gros à faire...

Bonsoir,

Je pense que c'est plus raisonnable de démarrer une nouvelle discussion car là je n'aurais pas le temps.
Précise quand même si seulement les + et - encadrés de valeurs t'interessent ce qui est beaucoup plus léger à prendre en compte.

eric

Voici mon fichier pas final mais bien avancé
http://www.cijoint.fr/cjlink.php?file=cj201102/cijAGwTetc.xlsm

Je clos le sujet et en recréer un autre pour le finaliser sachant que je n'est pas de réponse.