XL 2021 Caisse Buvette

[ggdasad]

Bonjour j'essaie de créer ma caisse de buvette, pour le club de pétanque et je n'arrive pas a finaliser pour sauvegarder les mouvement de la vente des boissons et gérer le stock.
Merci pars avance pour l'aide apportée

 

[sylvanu]

Bonjour Ggdasad, et bienvenu sur XLD,
Pour faire le cumul des formules ne tiennent pas compte que leur valeur précédente, il vaut mieux passer par du VBA pour cumuler les ventes.
En PJ un essai. J'ai rajouté un bouton "Effacer données de la journée" avec demande de confirmation.
A tester.

Sub cahs()
With Sheets("produit")
    .[C4:C15] = [L4:L15].Value
    For L = 4 To 15
        .Cells(L, "K") = .Cells(L, "J") + .Cells(L, "C")
    Next L
End With
[L4:L14].ClearContents
End Sub
Sub EffacerJournée()
rep = MsgBox("Confirmez effacement des données", vbYesNo)
If rep = vbNo Then Exit Sub
Sheets("produit").[C4:C15,K4:K15].ClearContents
End Sub

 

[ggdasad]

Bonjour Ggdasad, et bienvenu sur XLD,
Pour faire le cumul des formules ne tiennent pas compte que leur valeur précédente, il vaut mieux passer par du VBA pour cumuler les ventes.
En PJ un essai. J'ai rajouté un bouton "Effacer données de la journée" avec demande de confirmation.
A tester.

Sub cahs()
With Sheets("produit")
    .[C4:C15] = [L4:L15].Value
    For L = 4 To 15
        .Cells(L, "K") = .Cells(L, "J") + .Cells(L, "C")
    Next L
End With
[L4:L14].ClearContents
End Sub
Sub EffacerJournée()
rep = MsgBox("Confirmez effacement des données", vbYesNo)
If rep = vbNo Then Exit Sub
Sheets("produit").[C4:C15,K4:K15].ClearContents
End Sub

Merci pour la réactivité, le cumul de la journée ne fonctionne pas bon moi je suis novice en excel et le VBA
aucune connaissance

 

[sylvanu]

Re,
Oups! Effectivement un petit bug s'était glissé. 😱
Sorry.

.Cells(L, "K") = .Cells(L, "J") + .Cells(L, "C")
au lieu de
.Cells(L, "K") = .Cells(L, "K") + .Cells(L, "C")

 

[ggdasad]

Re,
Oups! Effectivement un petit bug s'était glissé. 😱
Sorry.

.Cells(L, "K") = .Cells(L, "J") + .Cells(L, "C")
au lieu de
.Cells(L, "K") = .Cells(L, "K") + .Cells(L, "C")

Grand merci belle avancée bonne journée