Problème de modification de formules Excel avec VBA.

**jayjay78** · 27/03/2010, 17h12

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 :

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

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.

**mercatog** · 27/03/2010, 17h24

Code :

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

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 :

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

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

**jayjay78** · 27/03/2010, 17h34

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

**mercatog** · 27/03/2010, 17h38

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

**jayjay78** · 27/03/2010, 17h58

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