Discussion :

[Un Internaute]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Philippe Tulliez]

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.

[Un Internaute]

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

[Philippe Tulliez]

Bonjour,

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Target.EntireRow.Delete

[Un Internaute]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Philippe Tulliez]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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