probleme selection

[mathieu]

bonjour a tous

j ai un probleme avec une macro.
la macro marche sur une feuille de test mais des que je veux l introduire dans mon programme elle plante et me dit l 'erreur suivante : ' La méthode Select de la classe range a échoué'

je ne comprend pas pourquoi.


voila mon code :

With Sheets('facturation')
L = .Range('N65536').End(xlUp).Row
For i = 2 To L
.Cells(i, 5).Select
ActiveCell.FormulaR1C1 = '=RIGHT(RC[-3],10)'
.Cells(i, 2).Select
ActiveCell.FormulaR1C1 = '=LEFT(RC[0],LEN(RC[0])-11)'
Next i
End With

si vous avez des idees je vous ecoute.

merci d avance

Bonne journée è vous

@+ Mat

 

[2passage]

Bonjour,

je ne sais pas trop comment ça marchait sur ta feuille de test , vu que ça :
=LEFT(RC[0],LEN(RC[0])-11)
ça fait une zoulie référence circulaire, chez moi...

sinon, evite les select inutiles. Je te propose de tester comme ca :

For i = 2 To Sheets('facturation').Range('N65536').End(xlUp).Row
     Sheets('facturation').Cells(i, 5).FormulaR1C1 = '=RIGHT(RC[-3],10)'
     Sheets('facturation').Cells(i, 2).FormulaR1C1 = '=LEFT(RC[0],LEN(RC[0])-11)'
Next i

Quant à la circulaire.. je ne sais pas ce que tu veux faire donc je te laisse gérer
A+

 

[mathieu]

merci bcp ca marche nikel

@+