Macro pour rechercher/remplacer tout dans des formules!
thais
-
thais -
thais -
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...
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...
A voir également:
- Macro pour rechercher/remplacer tout dans des formules!
- Rechercher remplacer word - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Remplacer disque dur par ssd - Guide
- Rechercher ou entrer l'adresse - Guide
- Formules - Télécharger - Études & Formations
3 réponses
Je pense qu'il te faut préciser la feuille dans laquelle la procedure s'applique
et tu peux simplifier ...
et tu peux simplifier ...
ActiveSheet.Cells.Replace "tutu", "titi"cordialement
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...
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...