Sub ecart()
With Feuil1.[E2:E5]
.FormulaR1C1 = "=RC2-R1C2"
.Value = .Value ' si on ne veut garder que les valeurs
End With
End Sub
Sub ecart()
With Feuil1.[E2:E5]
.FormulaR1C1 = "=RC2-" & Selection.Address(True, True, xlR1C1) -
.Value = .Value ' si on ne veut garder que les valeurs
End With
End Sub
Sub ecart()
With Feuil1.[E2:E5]
.FormulaR1C1 = "=RC2-R" & Selection.Row & "C"
.Value = .Value ' si on ne veut garder que les valeurs
End With
End Sub
Je positionne moi même avec ma souris le curseur sur une cellule de la colonne E et je clique sur la macro !!!Comprends pas.
Changez le en Feuil1.[E13:E17], c'est tout.
Ou si c'est toujours les 5 lignes à partir de la sélection With Selection.Resize(5)
il me semble que les cellules de la colonne 2 soient sous forme de texte, peut-être même sont-elles précédées du caractère "nul", non affichable.Je positionne moi même avec ma souris le curseur sur une cellule de la colonne E et je clique sur la macro !!!
Voici un exemple de ma macro qui bug et qui n'est pas correct :
Regarde la pièce jointe 1021105
Voici le résultat de ta macro qui ne soustrait pas :
Regarde la pièce jointe 1021106
Bonne nuit !
With ActiveCell.Offset(1).Resize(5)
.FormulaR1C1 = "=RC[-3]-R[-1]C[-3]"
.Value = .Value ' si on ne veut garder que les valeurs
End With
Bonjour Eric, tous,Bonjour,
en reprenant la macro de dranreb :
ericCode:With ActiveCell.Offset(1).Resize(5) .FormulaR1C1 = "=RC[-3]-R[-1]C[-3]" .Value = .Value ' si on ne veut garder que les valeurs End With
Option Explicit
Sub Ecart()
Dim i As Long
Sheets("Feuil1").Activate
For i = 1 To 4
ActiveCell.FormulaR1C1 = "=RC[-3]-R" & Selection.Row - i & "C2"
ActiveCell.Value = Selection.Value
ActiveCell.Offset(1, 0).Select
Next i
End Sub