Bonsoir Draneb,
désolé je ne veux pas de formule dans la macro puisque la position de la cellule rouge colonne E se situera sur n'importe quelle ligne !
Ainsi la macro démarrera depuis la position de la sélection de la cellule colonne E sur n'importe quelle ligne !
Je n'y ai pas arrivé ( voir ma macro ecart)
Merci à l'avance !
Alors changez R1C2 en l'adresse R1C1 de la cellule à prendre. Par exemple :
VB:
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
Ou bien si ça doit pouvoir marcher même en sélectionnant un cellule d'une autre colonne
VB:
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 !!!
Voici un exemple de ma macro qui bug et qui n'est pas correct :
Voici le résultat de ta macro qui ne soustrait pas :
Bonne nuit !
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
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.
il y a eu un post récent à ce propos ...
la solution immédiate est de valider dans la barre de formule , chaque cellule de cette colonne.
Re,
Je crois que j'ai la réponse en se positionnant sous la cellule rouge colonne E :
Code:
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
Merci à vous deux pour vos réponses !
Bonne journée !