VBA Référence absolue

[vdh_xavier]

Bonjour à tous,

Je voudrais savoir comment je peux faire pour, dans une macro, préciser que des cellules doivent être absolues et pas relatives. J’ai ce bout de code :

Sheets("Tableau petits créanciers").Select
Range("D2").Select
ActiveCell.FormulaR1C1 = "=RC[-1]*R[" & nblignespetits & "]C/R[" & nblignespetits & "]C[-1]"
Range("D2").Select
derlin = Range("A65536").End(xlUp).Row
Range("D2").AutoFill Destination:=Range("D2😀" & derlin), Type:=xlFillDefault

Je veux en effet que R[" & nblignespetits & "]C ET R[" & nblignespetits & "]C[-1] ne changent pas lorsque je tire la formule vers le bas.

Merci pour votre aide

 

[Venitien]

Re : VBA Référence absolue

Salut,

ta demande est étrange car tu veux que ta formule qui s'appuie sur la variable "nblignespetits" (donc qui varie conformément à sa nature...) ne varie pas...

Du fait je me dit que je n'ai pas du bien saisir ta demande.. Tu peux précisers'il te plais?

Merci.

 

[vdh_xavier]

Re : VBA Référence absolue

J'ai dû me tromper alors. Je veux que nblignespetits varie.
Je vais l'écrire comme si ce n'était pas dans une macro : je souhaite que en D2 s'écrive la formule C2*Dnblignespetits/Cnblignespetits. Ensuite je veux pouvoir "tirer" la formule vers le bas et que C2 devienne C3, C4, C5 etc, mais que Dnblignespetits/Cnblignespetits soit relatif et ne bouge pas.
Merci

 

[GIBI]

Re : VBA Référence absolue

Bonjour,


il faut utiliser la proprité Formula pour écrire en référence absolu
si j'ai compris l'exemple cela donne
ActiveCell.Formula = "=$c2*$d" & nblignespetits & " / $C$" & nblignespetits

 

[vdh_xavier]

Re : VBA Référence absolue

Ca marche très bien, merci beaucoup!!