F
Fab61
Guest
Bon décidement ce matin j'ai du mal et je vois pas d'ou viens le probleme !!
Je me selection sur ma derniere ligne afin d'i appliquer une Formule en B2 et mettre une valeur de '01' dans C3 et ensuite recopier la valeur la formule en tant que valeur (pour ne plus avoir la formule)
voici mon code :
Mias le truc c'est qu'il ne me fait pas ceu que je voudrai il me recolle pas la formule en valeur et la formule il la met en A1 !.
Merci de vos réponse
Je me selection sur ma derniere ligne afin d'i appliquer une Formule en B2 et mettre une valeur de '01' dans C3 et ensuite recopier la valeur la formule en tant que valeur (pour ne plus avoir la formule)
voici mon code :
Code:
Range('A65000').End(xlUp).Offset(0, 0).Select
ActiveCell.EntireRow.Offset(0, 0).Range('C1').Select
ActiveCell.FormulaR1C1 = '01'
Range('A65000').End(xlUp).Offset(0, 0).Select
ActiveCell.EntireRow.Offset(0, 0).Range('B1').Select
ActiveCell.FormulaR1C1 = '=IF(ISBLANK(RC[6]),'''',RC[6]&'' / ''&RC[1])'
For Each c In Columns('B').SpecialCells(xlCellTypeFormulas, 23)
c = c.Value
Next c
LockUnlockWorkSheet shtEnCours, enLock
Range('A65000').End(xlUp).Offset(0, 0).Select
Mias le truc c'est qu'il ne me fait pas ceu que je voudrai il me recolle pas la formule en valeur et la formule il la met en A1 !.
Merci de vos réponse