Private à modifier éventuellement

Bonjour à tous,

J'ai fait ce petit Private ci-dessous qui me permet de faire effacer toute une ligne en faisant SUPPR sur le montant d'une ligne (Crédit ou débit)
Cette ligne devient blanche et peut se trouver au milieu du tableau si je n'ai pas constaté mon erreur aussitôt.
Evidemment on peut Sélectionner par le N° de ligne puis Edition Supprimer.
Est-il possible de faire juxtaposer cette ligne blanche à la précédente et à la suivante à l'enregistrement du programme?
Je ne sais si ça va être compréhensible par tous sans le programme!
Merci pour vos éventuels retours et bonne fin de WE à tous.
Bien cordialement

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If (Target.Column = 4 Or Target.Column = 5) And Target.Row > 2 Then If Target = "" Then Application.EnableEvents = False Range("A" & Target.Row & ":G" & Target.Row).ClearContents Application.EnableEvents = True End If End If End Sub

---

Bonjour,
Je ne comprends pas ce que tu veux.
D'après la lecture de ta procédure, la plage des colonnes A à G de la ligne où l'on tape sur Suppr s'efface à condition que la ligne soit supérieure à la ligne 2 et que l'action se fasse sur les colonnes D ou E.
Si tu veux effacer également la ligne qui précède ou qui suit il faut simplement modifier la référence aux cellules.

Bonjour Philippe,
Je me suis certainement mal expliqué. Lorsque je tape SUPPR sur le montant, la ligne s'efface en totalité (de A à G), donc la ligne est vide. Ce que je veux maintenant c'est faire supprimer la première ligne vide trouvée.
Merci de m'avoir répondu et bonne journée à toi.
Cordialement

Bonjour,

Citation:

---

Ce que je veux maintenant c'est faire supprimer la première ligne vide trouvée

---

Toujours pas certain d'avoir compris.

La dernière ligne remplie trouvée dans une plage en partant par exemple de A2, c'est

Code:

---

Range("A2").End(xlDown)

---

Donc pour obtenir la première vide, il faut ajouter Offset(1) et avec en plus EntireRow.Delete, tu supprimes la ligne entière

Code:

---

Range("A2").End(xlDown).Offset(1).EntireRow.Delete

---

Si tu veux supprimer toutes les lignes dont la cellule de la colonne A est vide

Code:

---

Range("A2:A100").SpecialCells(xlCellTypeBlanks).EntireRow.Delete

---

Maintenant, si tu veux supprimer la ligne entière (celle où tu as appuyé sur Suppr) plutôt que les cellules de A à G, alors il faut utiliser cette ligne d'instruction

Code:

---

Target.EntireRow.Delete

---

Un grand MERCI. J'ai appliqué la dernière solution, c'est celle que je voulais.
Le l'ai mise dans le code ci-dessous (je ne sais pas si c'est le bon endroit mais ça fonctionne!!!)
Bonne journée à toi et bonne semaine.
Bien cordialement

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If (Target.Column = 4 Or Target.Column = 5) And Target.Row > 2 Then If Target = "" Then Application.EnableEvents = False Range("A" & Target.Row & ":G" & Target.Row).ClearContents Application.EnableEvents = True Target.EntireRow.Delete End If End If End Sub

---

Bonjour,
La ligne 6 de ta procédure est en trop alors et il vaut mieux supprimer la ligne avant de remettre EnableEvents à True
Soit

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If (Target.Column = 4 Or Target.Column = 5) And Target.Row > 2 Then If Target = "" Then Application.EnableEvents = False Target.EntireRow.Delete Application.EnableEvents = True End If End If End Sub

---

Merci Philippe,
Tout fonctionne parfaitement.
Nous sommes toujours des 'Eternels" Apprentis...et c'est tant mieux!!!
Bonne journée à toi et à tous les membres du forum.
Bien cordialement