Modifier code VBA

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:

---

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:

---

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

Je ne suis pas sûr d'avoir compris ton problème mais ceci devrait faire l'affaire :

Code:

---

1 2 3 4 5 6 7 8

Sub retrait() If Range("K2").Value > 480 And Range("M2").Value > 480 Then 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 If End Sub

---

Comme je n'ai pas compris ce qu'est p1 et p2, je n'y ai pas touché.

Salut Menhir,

Exactement se que je rechercher Nickel

Je te remercie et te souhaite une bonne journée

Max