formula r1c1

[tonix]

bonjour le forum,
J'aimerais savoir si c'est possible de déclarer une variable et de l'utiliser dans 'formular1c1'.

Dim POIUY As Long
POIUY = Range('A65536').End(xlUp).Row
Range('K2').Select
ActiveCell.FormulaR1C1 = _
'=SUMIF(C5,''Total'',C)-SUMPRODUCT((R6C1:R500C1=''BEIP04102DA_NEW Naftec '')*(R6C5:R500C5=''Total''),R[4]C:R[498]C)-SUMPRODUCT((R6C1:R500C1=''BEIP04102EUR_NEW Naftec'')*(R6C5:R500C5=''Total''),R[4]C:R[498]C)'
Range('K2').Select
Selection.AutoFill Destination:=Range('K2😀Z2'), Type:=xlFillDefault
Range('K2😀Z2').Select
Range('J3').Select
Et je souhaiterais remplacer '500'par 'POIUY'. Restant a votre disposition.
tonix

 

[chris]

Bonjour
Il remplacer partout R500 par R & POIUY

Attention aux guillemets qui doivent fermer R et être rouverts si nécessaire après & POIUY

 

[Hervé]

bonjour tonix


sans avoir testé, essaye comme ceci :

With Range('K2')
.FormulaR1C1 = _
'=SUMIF(C5,''Total'',C)-SUMPRODUCT((R6C1:R' & POIUY & 'C1=''BEIP04102DA_NEW Naftec '')*(R6C5:R' & POIUY & 'C5=''Total''),R[4]C:R[498]C)-SUMPRODUCT((R6C1:R' & POIUY & 'C1=''BEIP04102EUR_NEW Naftec'')*(R6C5:R' & POIUY & 'C5=''Total''),R[4]C:R[498]C)'
.AutoFill Destination:=Range('K2😀Z2'), Type:=xlFillDefault
End With

edition : salut chris 🙂

salut

Message édité par: hervé, à: 29/03/2006 11:31

 

[tonix]

bonjour chris, hervé,

Visiblement cela fonctionne, merci beaucoup et bonne journée.