Problème de modification de formules Excel avec VBA.

Bonjour à tous,

J'ai tout une plage de cellules qui contiennent des formules.

Ce que je voudrais c'est avec une macro, rajouter la fonction arrondi dans la cellule tout en gardant la formule.

Exemple avec une cellule au hasard :

avant --> A4 = L2+ 2* L3
après --> A4 = arrondi(L2+2*L3;0)

Code:

---

1 2 3 4 5 6 7 8 9

Sub AvecArrondi() Dim cellule As Range Dim temp As String For Each cellule In Selection temp = Right(cellule.formula, Len(cellule.Formula) - 1) cellule.Value = "=arrondi" & temp & Chr(40) & ";0" & Chr(41) Next End Sub

---

1) Ma boucle parcourt toutes les cellules de la plage que j'ai sélectionnée.

2) Pour chaque cellule on prend la valeur de la formule en enlevant le "=" et on stocke donc la formule sans le "égale" dans la variable temp.

Avec l'exemple de la cellule A4 d'en haut on obtient donc une variable temp qui est de type String avec "L2+ 2* L3".

3)On rajoute la fonction "arrondi" avec les parenthèses chr(40) et chr(41), tout ça en concaténant.

Hé bien ça ne marche pas, erreur 1004, mais vraiment je comprends pas, je serais vraiment curieux de comprendre ce qui fait foirer la macro.

Merci d'avance de votre aide.

Code:

---

1 2 3 4 5 6

Dim vCel As Range, Plage As Range   Set Plage = Range("B1:B10") ' à adapter For Each vCel In Plage vCel.Formula = "=Round(" & Mid(vCel.Formula, 2) & ",2)" Next vCel

---

ou pour vérifier si la cellule contient une formule.

Code:

---

1 2 3 4 5 6

Dim vCel As Range, Plage As Range   Set Plage = Range("B1:B10") ' à adapter For Each vCel In Plage If Left(vCel.Formula, 1) = "=" Then vCel.Formula = "=Round(" & Mid(vCel.Formula, 2) & ",2)" Next vCel

---

Merci Mercatog, c'est exactement ce que je voulais.

Par contre est-ce que tu aurai compris ce qui foire dans ma dernière ligne de code, parce que ça je me suis pris la tête et je vois pas le problème ? étant donnée que je concatène que des types string je vois pas ce qui se passe, pourquoi ça fait cette erreur

cellule.formula et non cellule.value
en plus, cellule.formulalocal et cellule.formula sont différentes (arrondi, à la place de round

Ok merci pour l'explication,

par contre ce que je comprends pas dans ton bout de code comment Excel fait pour comprendre que le round faut le traduire en français et le foutre dans la page, normalement quand c'est entre "" on touche pas, c'est ça que je pige pas, moi je pensais qu'il mettait tel quel, du coup je comprends plus rien.

C'est la dernière question après j'arrête de t'embêter ;)


PS : t'es info informaticien ? je me suis toujours demandé comment les mecs sur ce forum s'y connaissaient là dedans, en entreprise je vois jamais personne qui connaît...

Code:

---

c.formula="=round(X,2)"

---

sera traduite en français
ou

Code:

---

c.formulalocal="=arrondi(X,2)"

---

si tu as Office en français