Rechercher remplacer une partie d'une formule en VBA

Résolu/Fermé

Mist59 Messages postés 2 Date d'inscription dimanche 27 mars 2016 Statut Membre Dernière intervention 28 mars 2016 - 27 mars 2016 à 15:36
Mist59 Messages postés 2 Date d'inscription dimanche 27 mars 2016 Statut Membre Dernière intervention 28 mars 2016 - 28 mars 2016 à 13:01

Bonjour,
Je cherche le morceau de code qui me manque pour indiquer à ma macro que la partie à remplacer se situe à l'intérieur d'une formule dans une cellule. J'ai utilisé l'enregistreur de macro avec ctrl H dans lequel on peut choisir "formule" mais ce terme ne se traduit pas en VBA

Columns("AO:AO").Select
With Selection
.Replace What:="SOUS.TOTAL(9", Replacement:="SOUS.TOTAL(3", _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:= _
False, ReplaceFormat:=False
End With
Merci de votre aide

A voir également:

Rechercher remplacer vba
Rechercher ou entrer l'adresse - Guide
Rechercher et remplacer word - Guide
Adresse IP locale : comment la trouver facilement - Guide
Remplacer disque dur par ssd - Guide
Rechercher une chanson - Guide

2 réponses

Réponse 1 / 2

Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 523
28 mars 2016 à 09:29

Bonjour,

Essaie :

Columns("AO:AO").Replace What:="SUBTOTAL(9", Replacement:="SUBTOTAL(3", _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:= _
False, ReplaceFormat:=False

A+

Réponse 2 / 2

Mist59 Messages postés 2 Date d'inscription dimanche 27 mars 2016 Statut Membre Dernière intervention 28 mars 2016
Modifié par Mist59 le 28/03/2016 à 13:05

Bonjour Gyrus

Merci de ta réponse, mais ça ne marche pas mieux. J'ai déjà essayé.
En fait le code ne trouve pas la formule.
Si je transforme la formule en texte (sans le signe = ou en plaçant un ' devant le signe =) alors la macro s'applique mais évidemment ça ne me sert qu'à constater le phénomène. Je pense que l'instruction se réfère par défaut à du texte et ne comprend pas qu'il faut remplacer un élément de la formule.

Errare humanum est !!!

ça fonctionne parfaitement !!!

Merci beaucoup

Discussions similaires

recherche à partir de la barre d'adresse

"L'indice n'appartient à la sélection" + VBA

Le bon coin, comment retrouver un pseudonyme ?

Discussions similaires

Newsletters