Prob de cumul avec cellule d'avant vba

[gao77610]

Bonjour

J'ai un soucis avec cette macro

Dim DateActuelle As Date

Set DateSortie = Sheets("Sortie").Range("A65536").End(xlUp)

DateActuelle = Date

If DateSortie.Value <> DateActuelle Then

DateSortie.Offset(1, 0).Value = DateActuelle

DateSortie.Offset(1, 1).Value = DateSortie.Offset(0, 1).Value - 1

Else

DateSortie.Offset(0, 1).Value = DateSortie.Offset(0, 1).Value - 1

End If

Set DateSortie = Nothing

Le soucis c'est que a chaque clic la valeur se cumul avec la cellule au dessus

Et je voudrais l'ignorer

Merci

 

[youky(BJ)]

Re : Prob de cumul avec cellule d'avant vba

Bonjour gao,
Pas sur d'avoir pigé mais essai ceci...

Private Sub CommandButton1_Click()
Dim DateActuelle As Date
Set DateSortie = Sheets("Sortie").Range("A65536").End(xlUp)
If DateSortie.Value <> Date Then
    DateSortie.Offset(1, 0).Value = Date
    DateSortie.Offset(1, 1).Value = 1 'DateSortie.Offset(0, 1).Value - 1
Else
    DateSortie.Offset(0, 1).Value = DateSortie.Offset(0, 1).Value + 1
End If
Set DateSortie = Nothing
End Sub

 

[gao77610]

Re : Prob de cumul avec cellule d'avant vba

Bonjour youky

Voila le soucis: quand je clic sur bouton ca me mets la date en A1 et une Valeur en B1, Le lendemain toujours par le meme bouton, la date se mets en A2 et la valeur en B2, mais le soucis c'est que la valeur en B2 se cumul avec la B1, et je ne le souhaite pas.

Bouton change valeur en +1 ou moins -1 par rapport a zero que je veux

Merci

 

[youky(BJ)]

Re : Prob de cumul avec cellule d'avant vba

Re:
Peut être comme ceci mais je comprends toujours pas ta demande.
Dans cette macro je fais les moins, je pense que tu as un autre bouton pour les +.
Si c'est pas cela .....explique bien la demande
A+

Private Sub CommandButton1_Click()
Set DateSortie = Sheets("Sortie").Range("A65536").End(xlUp)
If DateSortie.Value <> Date Then
    DateSortie.Offset(1, 0).Value = Date
    DateSortie.Offset(1, 1).Value = -1
Else
    DateSortie.Offset(0, 1).Value = DateSortie.Offset(0, 1).Value - 1
End If
Set DateSortie = Nothing
End Sub

 

[gao77610]

Re : Prob de cumul avec cellule d'avant vba

Re

Je te remercie , je viens de tester c'est parfait

Merci encore

A+