Autres Supression de formule sur des cases ciblées avec condition - Excel 2007 VBA

[otarc]

Bonjour,

J'aimerai savoir si il est possible de supprimer toutes les formules des cases contenant les mots "RechercheV", "Index", "Equiv" dans leur formule. sans enlever les valeurs des cases. Sur le classeur entier.

Une solution est-elle également possible en définissant les feuilles à choisir ?

Je vous remercie pour votre retour,

Bien cordialement

 

[jmfmarques]

Moi j'ai mis ce code :

Dim sh As Worksheet, plage As Range, c As Range, k As Integer, dic
dic = Array("=*RECHERCHEV*", "=*INDEX*", "=*EQUIV*", "=*INDIRECT*", "=*SIERREUR*", "=*ESTERREUR*")

Non. pour des raisons de portabilité, il est préférable de mettre les noms anglais des fonctions et non les noms français (RECHERCHEV -->> LOOKUP , etc ...)
Et utiliser (comme je l'ai fait) la propriété Formula (valable quelle que soit la langue de la version) et non la propriété formulalocal (en langue locale uniquement)
Si tu as des difficultés à trouver la correspondance anglaise des fonctions présentes dans une formule mise par exemple en A1, cette simple instruction t'y aidera :
msgbox range("A1").formula

 

[otarc]

Soit, mais quelle est la prise de priorité pour savoir si oui ou non la case contenant les fonctions sera remplacé par la valeur ?

J'ai remarqué que si et seulement si il y a 2 des fonctions que j'ai paramétré, ça me remplace par la valeur sinon ça ne le fait pas.

 

[jmfmarques]

Je ne te comprends pas
Le code que je t'ai donné est tel qu'il suffit de la présence de l'une des fonctions concernées pour supprimer la formule et la remplacer par sa valeur.
je ne sais pas ce que tu fais, mais là, je crois que je vais t'abandonner.

 

[otarc]

EDIT : oui du coup ça fonctionne en remplacant par les équivants anglais !

Merci à vous deux pour votre patience,

Bonne journée

 

[jmfmarques]

si je mets que RECHERCHEV, ça ne me remplacera pas les cellules contenant RECHERCHEV

Et où (relis-moi) t'ai-je dit de mettre ce mot dans l'array dic ?
Pour mémoire :
dic = Array("=*VLOOKUP*", "=*INDEX*", "=*MATCH*")

veux-tu bien faire l'effort de faire tout ce qui t'a été dit, notamment en ce qui concerne la traduction en anglais des fonctions de la formule ?

 

[jmfmarques]

Un petit cadeau :

Toutes

Toutes les traductions des fonctions Excel.

fr.excel-translator.de