Microsoft 365 Problème lors réinitialisation

[AIXELS]

Bonjour à tous les Amis du Forum.
Je reviens vers vous une fois de plus.
Mon problèmes est le suivant :
J'ai développé une application en m'inspirant de programmes que j'ai trouvés.
Le but de cette application est le suivi de la vente et le rendu de monnaie lors
d'un tournoi de football organisé par une association à but non lucratif.

Les saisies et rendus de monnaie fonctionnent bien.
Mais si je veux réinitialiser les données : effacer les anciennes données
la saisie n'est plus prise en compte.
Je vous joints le fichier.
Merci pour votre aide.
bien cordialement.

 

[TooFatBoy]

Bonjour,

Proposition :

Sub RENDRE_MONNAIE()
' Réinitialisation du rendu monnaie et achats

    Range("DEBIT").ClearContents
    Range("H1").ClearContents

    With Range("t_Ventes").ListObject
        If Not .DataBodyRange Is Nothing Then .DataBodyRange.Delete
    End With

    Application.Goto Range("t_Ventes").Resize(1, 1)

End Sub

 

[AIXELS]

Bonjour,

Proposition :

Sub RENDRE_MONNAIE()
' Réinitialisation du rendu monnaie et achats
Dim Lastline As Integer

    Range("DEBIT").ClearContents
    Range("H1").ClearContents

    With Range("t_Ventes").ListObject
        If Not .DataBodyRange Is Nothing Then .DataBodyRange.Delete
    End With

    Application.Goto Range("t_Ventes").Resize(1, 1)

End Sub

Merci pour ta réponse @TooFatBoy
COPIER_ACHATS ne fonctionne pas.
il ne recopie pas les achats effectués.
Merci pour ton aide.
Bien cordialement.

Sub COPIER_ACHATS()
    Dim ZoneToCopy As Range
    With Sheets("Ventes").ListObjects("t_Ventes")
        Set ZoneToCopy = .DataBodyRange(.ListRows.Count, 1).Resize(, 7)
    End With

    With Sheets("Caisse")
        .Activate
        .Range("C6").Resize(7, 1) = Application.WorksheetFunction.Transpose(ZoneToCopy)

    End With


    Usf_RENDRE_MONNAIE.Show 0

End Sub

 

[TooFatBoy]

Au temps pour moi : quand j'ai vu ta macro de réinitialisation j'ai pensé à la rectifier, mais après j'en ai oublié le reste... 🙁

 

[TooFatBoy]

Mais si je veux réinitialiser les données : effacer les anciennes données
la saisie n'est plus prise en compte.

COPIER_ACHATS ne fonctionne pas.
il ne recopie pas les achats effectués.

Ce n'est donc pas la saisie mais la copie qui ne fonctionne pas ?

 

[TooFatBoy]

Ta macro "COPIER_ACHATS" essaye de copier tout le tableau des ventes (H5:Nx), puis de coller le tout à partir de la cellule C6 de la feuille "CAISSE".
(je passe sur le Transpose)

T'es sûr que c'est vraiment exactement ça que tu veux faire ???

---

Si c'est en fait la ligne située au-dessus du tableau que tu veux copier/coller, alors il vaut mieux mettre des formules dans les cellules C6:C12.

Mais si tu veux absolument garder une macro inutile, je te propose ceci :

Sub COPIER_ACHATS()
'
Dim ZoneToCopy As Range

    Set ZoneToCopy = Range("t_Ventes[#Headers]").Resize(, 7).Offset(-1, 0)

    With Sheets("Caisse")
        .Activate
        .Range("C6").Resize(7, 1) = Application.WorksheetFunction.Transpose(ZoneToCopy)
    End With

    Usf_RENDRE_MONNAIE.Show 0

End Sub

 

[Dranreb]

Bonsoir.

Ta macro "COPIER_ACHATS" essaye de copier tout le tableau des ventes (H5:Nx)

Non, seulement sa dernière ligne.

 

[TooFatBoy]

Bonsoir.
Non, seulement sa dernière ligne.

Ah, OK, d'où le transpose. Merci.