Soustraction dans une colonne

Fermé

lucas141201 - 17 mai 2021 à 22:19
yg_be Messages postés 22730 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 26 avril 2024 - 18 mai 2021 à 09:00

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

A voir également:

Soustraction dans une colonne
Déplacer une colonne excel - Guide
Colonne word - Guide
Additionner colonne excel - Guide
Figer une colonne excel - Guide
Trier colonne excel - Guide

1 réponse

Réponse 1 / 1

yg_be Messages postés 22730 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 26 avril 2024 1 477
18 mai 2021 à 09:00

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

Discussions similaires

liste de noms par ordre alphabétique

colonne A disparue tableur excel

Formule magique excel??????

je veut créer des codes

Cantact des personnes autour de moi

Discussions similaires

Newsletters