T
tonix
Guest
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('K2Z2'), Type:=xlFillDefault
Range('K2Z2').Select
Range('J3').Select
Et je souhaiterais remplacer '500'par 'POIUY'. Restant a votre disposition.
tonix
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('K2Z2'), Type:=xlFillDefault
Range('K2Z2').Select
Range('J3').Select
Et je souhaiterais remplacer '500'par 'POIUY'. Restant a votre disposition.
tonix