Rechercher et remplacer

Bonjour

-Je fais une recherche (ctrl+F) puis dans l'onglet "Remplacer", j'écris la fonction "ARRONDI" pour chercher toutes les formules du classeur contenant cette fonction.

-Je voudrais en fait supprimer cette fonction partout dans le classeur, en gagnant du temps via cette recherche.

Y a-t-il un moyen d'y parvenir, svp ?

Merci.

Michel

Bonjour,

Il faudrait que tu précises ta demande.

Si je comprends bien, tu veux remplacer la fonction ARRONDI dans toutes les cellules d'une feuille d'un classeur.

Mais par quoi veux-tu la remplacer ?

A priori, les cellules concernées doivent contenir une formule du type

=ARRONDI(B1;0)

Tu veux qu'il ne reste que =B1 ?

Un fichier exemple ne serait pas de trop ...

A+

Bonjour,

Frangy, tu as parfaitement compris ma demande.

Je ne veux que B1 et non plus d'arrondi sur les formules du classeur.

Est-ce possible ?

Erwan

Tu peux tester ce code (nom de feuille "Feuil1" à adapter si besoin)

Sub SupprimerArrondi()
Dim C As Range
Dim FirstAddress As String
    With Worksheets("Feuil1").Cells
        Set C = .Find("ROUND", LookIn:=xlFormulas, lookat:=xlPart)
        If Not C Is Nothing Then
            Do
                C.Formula = "=" & Split(Split(C.Formula, "ROUND(")(1), ",")(0)
                Set C = .FindNext(C)
            Loop While Not C Is Nothing
        End If
    End With
End Sub

A+