FormulaR1C1

[siocnarf]

Bonjour,

Je vais m'enfoncer la tête dans un bureau si ça continue.
Pourquoi une formule comme celle-ci:

 .Columns(1).FormulaR1C1 = "=RECHERCHEV(B2;'[Analyse ASP v1.0.xlsm]Categorisation'!R2C1:R472C2;2;FAUX)"

génère-t-elle une erreur "généré par l'application ou par l'objet Erreur d'exécution 1004.

Pourtant si je branche la formule suivante dans une celle, cela fonctionne.

=RECHERCHEV(B2;'[Analyse ASP v1.0.xlsm]Categorisation'!R2C1:R472C2;2;FAUX)"

mais pas lorsque j'utilise FormulaR1C1.

Merci,

 

[Dull]

Re : FormulaR1C1

Salut siocnarf, le Forum

il ne faut pas utiliser les formules locales

A préférer .FormulaLocal

.Columns(1).FormulaLocal = "=RECHERCHEV(B2;'[Analyse ASP v1.0.xlsm]Categorisation'!R2C1:R472C2;2;FAUX)"

Si tu tiens à FormulaR1C1, fait enregistrer une macro et écrit ta formule ton RechercheV se transformera en VLOOKUP
Bonne Journée

 

[job75]

Re : FormulaR1C1

Bonjour siocnarf, salut mon cher Dull 🙂

Avec FormulaR1C1 il faut :

- utiliser la syntaxe anglaise (virgules)

- traiter correctement les références relatives (B2 ici).

Vous n'indiquez pas dans quelles cellules vous voulez entrer la formule, alors je suppose que c'est en A2:A100 :

With [A2:A100] 'par exemple
 .Columns(1).FormulaR1C1 = "=VLOOKUP(RC[1],'[Analyse ASP v1.0.xlsm]Categorisation'!R2C1:R472C2,2,False)"
End With

A+

 

[siocnarf]

Re : FormulaR1C1

Bonjour,

Vous êtes trop fort. Je ne l'aurais jamais deviné.
À quelle case correspond RC[1]?
Avec ce code, la première formule apparaît en A1 au lieu de A2, comment pourrais-je faire pour que cela commence en A2?

With Workbooks(C_StrChiffrierDeBase).Sheets(1).UsedRange
  .Columns(1).FormulaR1C1 = "=VLOOKUP(RC[1],'[Analyse ASP v1.0.xlsm]Categorisation'!R2C1:R472C2,2,False)"
  Application.Goto .Cells(1), True
End With

Merci,

 

[job75]

Re : FormulaR1C1

Re,

Pour que les formules commencent en A2 :

With Workbooks(C_StrChiffrierDeBase).Sheets(1).UsedRange
  .Offset(1).Resize(.Rows.Count - 1).Columns(1).FormulaR1C1 _
  = "=VLOOKUP(RC[1],'[Analyse ASP v1.0.xlsm]Categorisation'!R2C1:R472C2,2,False)"
  Application.Goto .Cells(1), True
End With

Nota : RC[1] est la référence de la cellule à droite de la cellule contenant la formule.

A+

 

[siocnarf]

Re : FormulaR1C1

Bonjour,

Trop fort. Y-a-t-il un ouvrage de référence qui permet d'apprendre à coder aussi bien?

Merci,

François