Macro pour rechercher/remplacer tout dans des formules! Fermé

Question

Bonjour, 

je suis novice en macro.
je cherche à faire une petitre macro qui recherche dans ma feuille la chaine NB.JOURS.OUVRES et qui la remplace par NETWORKDAYS.
attention cette chaine de caractere est contenu dans une formule de la cellule.
j'ai fait un enregistrement automatique, avec rechercher/remplacer tout, ça marche bien:

Sub Macro8()
'
' Macro8 Macro
'

'
    Cells.Replace What:="NB.JOURS.OUVRES", Replacement:="networkdays", LookAt _
        :=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub

mais si je lance la macro sur ma feuille, elle ne fonctionne pas??
quelqu'un aurait-il une idée??
d'avance merci de ceux qui voudront bien me répondre...

Configuration: Windows 7 / Internet Explorer 8.0

ccm81 · Answer

Je pense qu'il te faut préciser la feuille dans laquelle la procedure s'applique
et tu peux simplifier ...

ActiveSheet.Cells.Replace "tutu", "titi"
cordialement

thais · Answer

bonsoir
merci déjà de me répondre!
mais je viens d'essayer et ça ne fonctionne pas...

thais · Answer

en cherchant parmi tous les forums, j'ai trouvé qque chose qui commence à fonctionner:
Sub Macro9()
For Each cell In ActiveWorkbook.Sheets("Liste indicateur qop").Range("i:i")
       cell.FormulaLocal = Replace(cell.FormulaLocal, "NB.JOURS.OUVRES", "networkdays")
    Next
End Sub

mais il faut que je le fasse sur chaque colonne de chaque feuille du classeur et cela prend dejà bcp de tps sur colonne.... j epense qu'il y a plus simple que de parcourir cellule par cellule...

Macro pour rechercher/remplacer tout dans des formules!

3 réponses

Discussions similaires