Soustraction dans une colonne
lucas141201
-
yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention -
yg_be Messages postés 23541 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
A voir également:
- Soustraction dans une colonne
- Déplacer une colonne excel - Guide
- Trier une colonne excel - Guide
- Colonne word - Guide
- Formule somme excel colonne - Guide
- Figer une colonne excel - Guide
1 réponse
yg_be
Messages postés
23541
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 584
bonjour,
suggestion:
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