Aide sur correction de formule insérée par code VBA

[fb62840]

Bonjour à toutes et tous,

Pourriez-vous m'aider à corriger cette formule ?

Elle bloque à l'exécution : "erreur définie par l'application ou par l'objet"

Sheets("inscrits").Range("H" & i).Formula = "=IF(RC[-1]<8,""<8;si(G2<10;<10;si(G2<12;<12;si(G2<15;<15;si(G2<18;<18;si(<50;<50;si(G2>=50;>=50;"""""")"""
[Code]

Merci pour votre aide

Voir le fichier joint.

 

[Roland_M]

Re : Aide sur correction de formule insérée par code VBA

bonjour

vérifier d'abord la formule car il y a des If et des Si !?

et ensuite les "" !?

 

[Dranreb]

Re : Aide sur correction de formule insérée par code VBA

Bonjour.

Private Sub CommandButton1_Click()
With Me.[G2].Resize(Me.[A65536].End(xlUp).Row - 1, 2)
   .Columns(1).FormulaR1C1 = "=DATEDIF(RC2,""01/09/2013"",""y"")"
   .Columns(2).FormulaR1C1 = "=CHOOSE(MATCH(RC7,{0;8;10;12;15;18;50}),""<8"",""<10"",""<12"",""<15"",""<18"",""<50"","">=50"")"
   End With
End Sub

 

[fb62840]

Re : Aide sur correction de formule insérée par code VBA

Bonjour Roland et Dranreb,

Merci Roland, effectivement je me retrouvais avec des if et des si... j'ai "mélangé" les 2 au cours de l'enregistrement de la macro.

Dranreb, excellente ta proposition de rédaction qui convient parfaitement, au passage une excellente illustration des fonctions bien plus "économiques" et efficace que la fonction si.

Merci beaucoup à tous les deux