Discussion :

[toushusss]

Bonjour,
Je souhaiterais savoir comment incrémenter une cellule avec une cellule qui se trouve sur la ligne du dessus.
Je m'explique : j'ai un tableau qui se rempli au fure et à mesure en décalant à chaque fois la derniére ligne " Total" vers le bas. Or sur une série de cellule je dois renseigner des Indexs de consommation : par exemple en B2 je rentre l'ancien index, en C2 le nouvelle index puis la fois d'aprés je dois récupérer l'index en C2 pour le recopier en B3 ( il devient ainsi l'ancien index) et rentrer un nouvel index en C3 et ainsi de suite . La saisie des indexs se faisant par macro je ne sais pas comment appeler la cellule d'avant. Si j'avais un tableau avec un nombre de ligne bien défini un simple = et le nom de la cellule précédente suffirait, mais la comme je ne sais pas à l'avance le nom de la cellule précédente comment faire ?

[trollinou]

Essaie la commande "Offset"


Te permet d'obtenir la cellule sur la ligne juste au dessus

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("A2").Offset(-1,0)

[rvtoulon]

Bonjour,
Pour l'exemple donné ça pourrais ressembler à ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub test()
Dim derligne As Integer
With Sheets("Feuil1")
'permet d'identifier le numéro de la derligne utilisée de la colonne B
derligne = .Cells(.Rows.Count, 2).End(xlUp).Row
'donne la valeur de la cellule C(x) à la nouvelle cellule B(x)
.Cells(derligne + 1, 2).Value = .Cells(derligne, 3).Value
End With
End Sub

J'ai pas Testé, il faut aussi adapter à tes besoins.

[toushusss]

merci pour vos éléments de réponse ! Le probléme est que j'ai mon code qui se présente de cette façon :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
.Range("L" & Tot.Row - 1).Insert Shift:=xlDown 'inserer ligne au dessus
.Range("L" & Tot.Row - 1) = 'cellule de la colonne M sur la ligne d'avant ( c'est ça que je cherche à nommer

[trollinou]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Range("L" & Tot.Row - 1) = .Range("M" & Tot.Row - 1).offset(-1, 0)

[toushusss]

merci trollinou. Impecable

[trollinou]

De rien ! au plaisir