FormulaR1C1

[VIARD]

Bonjour à toutes et tous

J’ai une formule matricielle, de cette forme. En "C10"

= produit(A10 ;C8)

que j’ai transcrit en VBA

Sub CalculEnVBA()
Range(“C8”).value=27
Range(“A10”).value=3
Range("C10").Select
With Selection
    .FormulaR1C1 = "=product(R[-2]C,RC[-2])"
    .NumberFormat = Form
    With .Font
        .Size = 8
        .Name = "Arial Narrow"
    End With
End With
End Sub

Ceci fonctionne correctement.

A présent, j’ai ajouté une condition.

En matricielle à Si(A10<>0 ;Produit(A10 ;C8) ;"") , c’est ok

Je veux la mettre en VBA, et la je coince.

Merci d’avance pour ce renseignement.

Jean-Paul

 

[JCGL]

Re : FormulaR1C1

Bonjour à tous,

A10 sera toujours différent de 0 avec ton code : pourquoi mettre une condition ?

Sub CalculEnVBA()
    Range("C8") = 27
    Range("A10") = 3
    With Range("C10")
        .Formula = "=IF(RC[-2]<>0,RC[-2]*R[-2]C,"""")"
        '.NumberFormat = Form
        With .Font
            .Size = 8
            .Name = "Arial Narrow"
        End With
    End With
End Sub

 

[VIARD]

Re : FormulaR1C1

Bonjour JCGL

C'est exacte, depuis l'évolution du dossier je suis obligé de traiter ce cas, dans certaine situation je peux avoir zéro ou rien,
J'avais écrit quelquechose de proche sans résultat.
.FormulaR1C1 = "=if(R[-2]C<>0);product(R[-2]C,RC[-2]);"")"
Je vais tester ta formule et te tiens au courant.
Nul doute, elle est assurément bonne.

Merci

Jean-Paul

 

[VIARD]

Re : FormulaR1C1

ReBonjour JCGL

J'apprécie énormément la concision de la formule.
ça marche du tonnerre, je ne maîtrise pas trop bien le basculement en vba.
Encore merci

A bientôt

Jean-Paul

 

[VIARD]

Re : FormulaR1C1

Bonjour JCGL et à toutes et tous

Cette manip du coup je l'ai approfondi et ce que j'aurai du faire dés le départ.

solution pour trouvé la formule en VBA depuis une formule Matricielle.

Sub ControleFormules()
    With Cells(10, 3)
        MsgBox "FormulaLocal" & vbTab & .FormulaLocal & vbNewLine _
         & "FormulaR1C1" & vbTab & .FormulaR1C1
    End With
End Sub

Si ça peut aider.

Salutation

Jean-Paul

 

[tototiti2008]

Re : FormulaR1C1

Bonjour VIARD, Bonjour JCGL 🙂

Une autre solution est d'utiliser l'enregistreur de macro puis de revalider la formule que tu as tapé dans ta cellule, ça te permet de voir comment ça s'écrira en VBA

 

[VIARD]

Re : FormulaR1C1

Bonjour Tototiti et JCGL

Merci, je vais tester ta solution.
Ce sont des petits détails à laquel on ne pense pas toujours.

Salutation

Jean-Paul