Soustraction dans une colonne

Question

Bonjour, j'ai une colonne A et j'aimerais créer une deuxième colonne avec dans celle ci toutes les valeurs de la colonne A - A2 de manière a avoir la première valeur égale à 0 car A2 - A2 et ainsi de suite, mais mon code ne marche pas.

Sub Dureté()
  Dim i As Integer
    For i = 5000 To 2 Step -1
        If Range("B" & i) <= 0.1 Then
            Rows(i).EntireRow.Delete
        End If
    Next i
 Sheets("Feuil").Activate
    Columns("C:C").Insert Shift:=xlToRight
    Range("C1").FormulaR1C1 = "Real Displacement"
    Range("C2:C4000").Value = Range("A2:A4000").Value - Range("A2").Value
    Range("C2:C250").Select
End Sub

yg_be · Answer

bonjour,
suggestion:
Sub ca2()
Dim cl As Range
Set cl = [A2]
Do While IsNumeric(cl) And cl <> ""
    cl.Offset(, 2) = cl - [A2]
    Set cl = cl.Offset(1)
Loop
End Sub

Soustraction dans une colonne

1 réponse

Discussions similaires

Newsletters