Discussion :

[apdf1]

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

[Menhir]

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

Code :

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

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é.

[apdf1]

Salut Menhir,

Exactement se que je rechercher Nickel

Je te remercie et te souhaite une bonne journée

Max