Discussion :

[markym]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[MarcelG]

Bonjour.

A adapter

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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)

[Igloobel]

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 ...

comme je l'ai si dessus

une boucle
une affectation


et basta (c'est plus simple)

enfin par rapport à ta demande initiale

[Igloobel]

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

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

MarcelG Bien vu

[MarcelG]

Salut Igloobel

Merci.

On pouvait aussi coder

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[markym]

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

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

[MarcelG]

Salut,

Tu peux aussi coder

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Au demeurant, retourne ton code complet

[markym]

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

Merci!
Markym