FormulaR1C1

siocnarf · 8 Août 2014

Bonjour,

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

Code:

 .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.

Code:

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

mais pas lorsque j'utilise FormulaR1C1.

Merci,

Dull · 8 Août 2014

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 · 8 Août 2014

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 :

Code:

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 · 8 Août 2014

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?

Code:

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 · 8 Août 2014

Re : FormulaR1C1

Re,

Pour que les formules commencent en A2 :

Code:

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 · 8 Août 2014

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

FormulaR1C1

siocnarf

XLDnaute Occasionnel

Dull

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

siocnarf

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

siocnarf

XLDnaute Occasionnel

Discussions similaires

FormulaR1C1

siocnarf

XLDnaute Occasionnel

Dull

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

siocnarf

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

siocnarf

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency