VBA : remplacer une formule par "" dans une colonne

Bonjour,

J'aimerais, à l'aide d'une macro, remplacer le texte d'une formule (calcul d'un pourcentage par exemple : " =A2/2450*100 " ) par rien dans toute une colonne.


J'utilise la syntaxe suivante :

Code:

---

1 2 3

Range("A2", Cells(Rows.Count, "A").End(xlUp)).Replace " texte d'une formule ", "", xlWhole

---

je ne trouve pas le code pour le "texte d'une formule"


Merci d'avance,

Markym

Bonjour.

A adapter

Code:

---

1 2 3

Public Sub essai_specialcells() Range("G1:G10").SpecialCells(xlCellTypeFormulas).Value = "" End Sub

---

Si plusieurs formules sont présentes, alors utiliser la méthode Replace en précisant bien tous les arguments (Lookat..)
Une aide ici
L'argument What sera le texte de la formule (copier/coller à partir de la barre de formule du tableur)

Bonjour,


tu fais une boucle for du début à la fin

et dans chaque cellule du affecte ""



le replace : remplace quelque chose par un autre
si la formule s'incémente il va falloir gérer l'incrémentation de la formule et si autre formule survient il faudra le gérer aussi ... :triste:

comme je l'ai si dessus

une boucle
une affectation


et basta (c'est plus simple)

enfin par rapport à ta demande initiale

Je retire ce que j'ai dis et j'avoue que je n'ai pas penser à SpecialCells(xlCellTypeFormulas) donc c'est pas si penible à faire

Citation:

---

Envoyé par Igloobel

si la formule s'incémente il va falloir gérer l'incrémentation de la formule et si autre formule survient il faudra le gérer aussi

---

:coucou: MarcelG Bien vu :plusser:

Salut Igloobel

Merci.

On pouvait aussi coder

Code:

---

Range("G2:G7").SpecialCells(xlCellTypeFormulas).ClearContents

---

Merci pour vos suggestions, malheureusement le texte change à chaque fois dans la colonne,

Citation:

---

L'argument What sera le texte de la formule (copier/coller à partir de la barre de formule du tableur)

---

donc je ne peux pas copier/coller la formule

finalement il faudrait que je puisse remplacer voire effacer n'importe quel texte dans la colonne.

Markym

c'est bon effectivement, je n'avais pas vu la fin du message...

Merci!
Markym

Salut,

Tu peux aussi coder

Code:

---

Range("G2:G7").SpecialCells(xlCellTypeFormulas).ClearContents

---

Au demeurant, retourne ton code complet

A nouveau.

Si on affecte la méthode Replace à un objet Range, alors l'utilisation des jokers (* et ?) est possible

Code:

---

1 2 3 4 5

Option Explicit   Public Sub essai_remplace() Range("D4:D6").SpecialCells(xlCellTypeFormulas).Replace What:="=3*E?", Replacement:="", Lookat:=xlPart End Sub

---

Bonjour,

attention que SpecialCells génère une erreur qu'il faut traiter si plage résultante vide :

Code:

---

1 2 3

On Error Resume Next Range("D4:D6").SpecialCells(xlCellTypeFormulas).Replace What:="=3*E?", Replacement:="", Lookat:=xlPart On Error GoTo 0

---

eric

Bonjour Eric, Bonjour le Forum,

Sur mon poste, (Excel 2016),
J'ai supprimé les lignes 4 et 6
En cellule D5, formule

Citation:

---

=3*E5

---

J'ai relancé le code sans gestion d'erreur.
Aucune erreur.

Pourrais-tu tenter un cas de figure.
Par avance, merci.

Bonjour

Citation:

---

Envoyé par eriiic

attention que SpecialCells génère une erreur qu'il faut traiter si plage résultante vide

---

Citation:

---

Envoyé par MarcelG

Bonjour Eric, Bonjour le Forum,

Sur mon poste, (Excel 2016),
J'ai supprimé les lignes 4 et 6
En cellule D5, formule
J'ai relancé le code sans gestion d'erreur.
Aucune erreur

---

Si tu laisse la ligne 5, la plage n'est pas vide !!!!

Bien sûr que non!
Je réponds juste à la problématique de notre ami markym et j'ai relevé la remarque d'Eric..
L'objet : remplacer une formule par une cellule vide.
Je me suis placé avant tout dans ce cas de figure.

Merci pour toutes vos contributions !

Bonjour,

plante si la plage ne contient plus aucune formule.
Si on est sûr à 100% que ça n'arrivera jamais ok, sinon...
Comment être sûr à 100% des utilisateurs ?
eric