Discussion :

[Methodrone8]

Bonjour à tous
j'aimerais récuperer des formules présentes dans les cases et les modifier afin d'obtenir un
"=Si(estnum(formule);formule;0)

j'ai donc écrit le code suivant:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub modifchaine()
Dim temp As Variant, chain As Variant
Dim i As Integer, j As Integer
 
For i = 8 To 935
    For j = 5 To 48
    chaine = ActiveSheet.Cells(i, j).Formula
    temp = Replace(chaine, "=", "")
    ActiveSheet.Cells(i, j).Formula = "=IS(ISNUMBER(" & temp & ");" & temp & ";0)"
    Next j
Next i
 
End Sub

Cependant, la fonction marche si j'enlève le = à ActiveSheet.Cells(i, j).Formula = "=IS(ISNUMBER(" & temp & ");" & temp & ";0)", or je veux qu'il soit présent sinon excel ne l'interpretera pas comme une fonction!

Si je le met, il me met erreur 1004!
Je ne sais pas comment résoudre ce problème, pouvez vous m'aider svp?
Merci!

[tedo01]

Bonjour,

Le problème vient peut-être du IS au lieu de IF ?
Il faut aussi remplacer les points-virgules par des virgules dans la notation internationale.
J'essaierais donc

Code :

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

ActiveSheet.Cells(i, j).Formula = "=IF(ISNUMBER(" & temp & ")," & temp & ",0)"

Sinon, je te déconseille "temp = Replace(chaine, "=", "")", cela va supprimer tous les signe = de la formule, ce qui peut être embêtant. Il vaut mieux l'écrire

Code :

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

1
2
3
4
 
If Mid(temp, 1, 1) = "=" Then
   temp = Mid(temp, 2)
End If

[Methodrone8]

Merci beaucoup! ca a l'air de marcher! J'étais fatigué hier, j'ai meme pas vu le IS IS

[Methodrone8]

Edit: non rien