XL 2010 Suivi Budget perpétuel par Macro

Bonjour cathodique,

A placer dans le code de la feuille :
A+

job75 à dit:

Bonjour cathodique,

A placer dans le code de la feuille :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
With [Tablo]
    If [E1] < 0 And Application.Sum(.Columns(2)) <> 0 Then .Rows(.Rows.Count).Delete xlUp
End With
End Sub

A+

Cliquez pour agrandir...

Bonjour Job75,

Je te remercie pour ton code. Mais il ne répond pas exactement à mes attentes.
Ton code ne vide pas complètement le tableau, la 1ére est toujours présente (image ci-dessous).


J'ai surement mal expliqué mon problème:
1- un budget est inscrit en B1
2- lorsque je saisis des lignes, par formule en E1 calcul du solde restant.
3- lorsque le solde est égal à 0 (zéro), un message m'avertit que le budget est épuisé et empêche l'ajout de tout autre montant.
4- Lorsque le solde est à 0, permettre la saisie d'un nouveau budget, en le modifiant en B1 le tableau doit se vider complètement.

En espérant que j'ai été plus explicite. Merci.

job75 à dit:

Pour effacer le tableau il suffisait d'effacer B1 mais bon :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
With [Tablo]
    If [E1] < 0 And Application.Sum(.Columns(2)) <> 0 Then .Rows(.Rows.Count).Delete xlUp
    If Not Intersect(Target, [B1]) Is Nothing And Not .ListObject.DataBodyRange Is Nothing Then .Delete xlUp
End With
End Sub

Cliquez pour agrandir...

Bonsoir Job75,

J’avoue que je n'y avais pas pensé (effacer B1). J'ai sélectionné B1 et saisi une nouvelle valeur.
Je te remercie beaucoup. Je pense m'en sortir seul pour la suite.
Bonne soirée.