Insertion d'une formule

[Charles]

Bonjour le monde

Je désire insérer une formule dans une cellule qui contient déjà des données. Ex. en c12, =somme(c5:c11). J'aimerais ajouter la fonction arrondi à zéro. Il faut que la cellule contienne =arrondi(somme(c5:c11),0). Je le fait à la main avec F2.

J'essai de le faire dans une macro car j'a beaucoup (plus de 1000) de cellules à modifier pour ajouter la fonction arrondi dedans.

Merci

Charles

 

[myDearFriend]

Bonsoir Charles,


Colle cette procédure dans un module VBA, sélectionne la plage dans laquelle tu souhaites voir les formules modifiées et lance la macro :

Public Sub ModifFormule()
Dim R As Range
For Each R In Selection
If Not Application.Intersect(R, Cells.SpecialCells(xlCellTypeFormulas)) Is Nothing Then
R.FormulaLocal = "=ARRONDI(" & Mid(R.FormulaLocal, 2) & ";0)"
End If
Next R
End Sub

J'espère que ça pourra répondre à ta demande...


Cordialement,
Didier_mDF

 

[Charles]

Je te remerci énormément Didier. Tu m'as sauvé beaucuop d'ouvrage.
Dans ta formule, j'ai changé ";0)" par ",0)" et cela fonctionne.

Merci merci merci