Discussion :

[kokoVBA]

Bonjour,
manipulant dans le cadre de mon travail beaucoup de tableaux sous E-03, j'utilise souvent la fonction "=si(estnum(x);x;y).
Concrètement je voudrais pouvoir faire une macro qui change les formule des cellules sélectionnées pour y ajouter ce fameux si(estnum(...
ex : dans une plage de cellules données, supposons A1:B1, j'ai les formules suivantes :
en A1 : "=C2/D2"
en B1 : "=E4/F4"
la macro devrait me donner :
en A1 : "=si(estnum(C2/D2);C2/D2;0)" (ex : je mets 0 par défaut)
en B1 : "=si(estnum(E4/F4);E4/F4;0)"

j'avais pensé à une macro de la forme "for each cel in selection..."
mais mes tentatives ne donnent rien.
Merci d'avance pour votre aide

[Gorfael]

Salut kokoVBA et le forum
N'ayant pas plus de précision, je ne peux pas définir le choix des cellules à modifier

Code :

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

1
2
3
4
5
6
7
8
9
Sub test()
Dim cel As Range
For Each cel In Range([A1], Range("B" & Rows.Count).End(xlUp))
    If Not IsEmpty(cel) Then
        cel.FormulaLocal = "=si(estnum(" & Right(cel.FormulaLocal, Len(cel.FormulaLocal) - 1) & ");" & _
            Right(cel.FormulaLocal, Len(cel.FormulaLocal) - 1) & ";0)"
    End If
Next cel
End Sub

C'est pour la plage A1 à dernière cellule de B. Testes
A+
Nota : à mon sens, esterr() serait plus approprié

[kokoVBA]

Bonjour Gorfael,
et 1000 merci pour ta réponse à la fois rapide et précise.
Mon problème est résolu et je vais grâce à toi gagner de précieuses heures de travail. Voici en définitive le code employé, j'ai changé le début "in range..." par "in selection" comme ça je selectionne la plage de cellules que je veux modifier et je fais tourner le code.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Sub siestnum()
 
Dim cel As Range
For Each cel In Selection
    If Not IsEmpty(cel) Then
        cel.FormulaLocal = "=si(estnum(" & Right(cel.FormulaLocal, Len(cel.FormulaLocal) - 1) & ");" & _
            Right(cel.FormulaLocal, Len(cel.FormulaLocal) - 1) & ";0)"
    End If
Next cel
End Sub

Encore merci!