Soustraction dans une colonne
lucas141201
-
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention -
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention -
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
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
1 réponse
-
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention Ambassadeur 1 588
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
