Soustraction jusqu'a cellule non vide

bonjour,

je souhaiterai effectuer une soustraction entre des cellules jusqu'à la dernière cellule non vide. (Le format des cellules de bases sont "dates" et je les voudrai en "nombre". "Soustraire la cellule L1 et les cellules à partir de F6 jusqu'à la derniere cellule non vide. Le résultat doit apparaître à partir de G6

Merci de votre aide :)

j'ai essayé ce code mais cela ne fonctionne pas :

sub soustraction ()

dim i as long

dim last as long

last = range ("g"&rows.count).end(xlup).rox

for i = 6 to last

cells(i,7)=cells(i,6) - cells(1,11)

next

end sub

Bonsoir,

Pourquoi passer par une macro ?

Si oui alors ceci fait le travail bien que ce soit long si beaucoup de ligne. Dans ce cas passer par une table, faire la différence et copier la column range en value :

Sub soustraction()
Dim i As Long
Dim last As Long
last = Range("F" & Rows.Count).End(xlUp).Row
For i = 6 To last
    Cells(i, 7) = CLng(Cells(i, 6) - Cells(1, 11))
Next
End Sub

Bonne soirée.

Bonsoir,

Il y a un .rox au lieu de .row.

Je suis d'accord avec Ergotamine, que je salue au passage, à priori nul besoin de macro pour ceci.

Cela fonctionne merci beaucoup :), comment puis-je rajouter des bordures au résultat, c'est à dire jusqu'à la cellule non vide ?