Bonjour,

j'ai un code pour sélectionner des cellules "480 cellules à la fois" qui fonctionne à l'aide d'un bouton "Sélectionne" et qui affiche dans les cellules [K2 & M2]
Mon code:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Sub selectionne()
Dim MaPlage As Range
Dim i, j As Integer
i = [K2]
j = [M2]
Set MaPlage = Range("D" & i & ":G" & j)
MaPlage.Select
End Sub
Et j'ai un code pour ajouter des ligne "480 lignes"
Mon code:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
Sub ajout()
  Range("K2").Value = Range("K2").Value + 480
  Range("M2").Value = Range("M2").Value + 480
  [p1].Value = [p1].Value + 1
  [p2].Value = "Nous somme le:" & " " & Now()
End Sub
Tous cela fonctionne très bien mais j'aimerai lui apporter une modification, j'aimerai pouvoir aller en arrière je m'explique :
ex: si j'ai en K2 485 et en M2 965 j'aimerai à l'aide d'un bouton pouvoir revenir en K2 5 & M2 485 ect...

je vous remercie de votre aide

Cordialement

Max