Discussion :

[PASCAL9210]

Bonjour,

Je rencontre un problème qui me parait simple, mais que je n’arrive pas à résoudre.

J’ai un tableau Excel (5 colonnes) que je remplis au fur et à mesure. J’ai créé un bouton pour supprimer la dernière ligne (s’il y a erreur de saisie).

Voici le code :

Code :

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

Rows(Range("B" & Rows.Count).End(xlUp).Row).Delete

La première colonne de mon tableau se trouve dans la colonne B, puis suive les quatre suivantes jusqu’à F. L’intitulé des colonnes se trouve sur la ligne 5. Le souci avec ce code, c’est qu’il ne s’arrête pas à la ligne 6 et qu’il remonte aussi sur la ligne où se trouve les intitulés des colonnes (ce qui me parait normal vu que je n’ai pas mis de limite).

Si vous pouvez m’aider,

Merci d’avance

Pascal

[BENNASR]

Pour supprimer la dernière ligne

Code :

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

1
2
3
4
Sub EntireRow()
      i = Range("B" & Rows.Count).End(xlUp).Row
      Cells(i, 1).EntireRow.Delete
End Sub

[BENNASR]

ou bien directement

Code :

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

1
2
3
Sub EntireRow()
      Cells(Range("B" & Rows.Count).End(xlUp).Row, 1).EntireRow.Delete
End Sub

[patricktoulon]

re
bonjour

supprimer la dernière ligne (s’il y a erreur de saisie).

comment controle tu l' erreur de saisie?????

[PASCAL9210]

Bonjour Bennasr,
Merci pour ta réponse, mais ton code ne fonctionne pas. Ce que je veux dire, c'est que je peux remonter (supprimer) jusqu'à la ligne ou se trouve les intitulés des colonnes.

J'ai changé le chiffre 1 par 6 dans le code ...Row, 1)... mais sans résultat.

[Menhir]

La première colonne de mon tableau se trouve dans la colonne B, puis suive les quatre suivantes jusqu’à F. L’intitulé des colonnes se trouve sur la ligne 5. Le souci avec ce code, c’est qu’il ne s’arrête pas à la ligne 6 et qu’il remonte aussi sur la ligne où se trouve les intitulés des colonnes (ce qui me parait normal vu que je n’ai pas mis de limite).

Etant donné que dans le code que tu présentes, il n'y a pas de boucle ou autre instruction laissant penser que cette ligne de code peut s'enchaîner de manière redondante, qu'est-ce qui fait que le code continue (ce que laisse supposer ton "ne s'arrête pas") ?

Si c'est simplement l'appui successif sur le bouton, tu peux mettre un test If qui vérifie le numéro de ligne avant de faire le Delete.

Code :

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

If Cells(Rows.Count, 2).End(xlUp).Row > 5 Then

Par contre, si ce que tu souhaites, c'est supprimer toutes les ligne en dessous de la ligne 5 :

Code :

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

If Range("B5:F" & Cells(Rows.Count, 2).End(xlUp).Row).Delete(xlShiftUp)

Code :

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

      Cells(Range("B" & Rows.Count).End(xlUp).Row, 1).EntireRow.Delete

Plus simple :

Code :

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

      Cells(Rows.Count, 2).End(xlUp).EntireRow.Delete

[PASCAL9210]

Le tableau est dans une feuille protégé.
Le tableau se remplis par un formulaire de saisie.
Si la personne se trompe (dans une information) et qu'il valide la saisie. Je souhaite qu'il puisse supprimer la dernière ligne du tableau.

[BENNASR]

Le tableau est dans une feuille protégé.
Le tableau se remplis par un formulaire de saisie.
Si la personne se trompe (dans une information) et qu'il valide la saisie. Je souhaite qu'il puisse supprimer la dernière ligne du tableau.

la démarche logique à mon modeste avis : ajouter un userform pour les modifications

[Pierre Fauconnier]

Salut.

Travaille avec un tableau structuré, ce sera mille fois plus simple. Pour supprimer la dernière ligne d'un tableau structuré, tu peux utiliser ceci dans un module standard

Code :

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

1
2
3
4
5
Sub DeleteLastRow(Name As String)
  If Range(Name).ListObject.ListRows.Count > 0 Then
    Range(Name).ListObject.ListRows(Range(Name).ListObject.ListRows.Count).Delete
  End If
End Sub

De ton userform (ou de n'importe où), tu utiliseras cette procédure en lui passant le nom de ton tableau

Code :

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

DeleteLastRow "t_Contacts"

Tu as ainsi un code générique et réutilisable, bien plus simple grâce au tableau structuré.

la démarche logique à mon modeste avis : ajouter un userform pour les modifications

Il est préférable de n'avoir qu'un seul formulaire pour la saisie et la modif, sinon il y a redondance de code. Il faut simplement savoir, lors de l'utilisation, si on est en nouvelle saisie ou en modification...

[PASCAL9210]

Merci beaucoup Menhir
Cela marche impeccable

[Menhir]

Le tableau se remplis par un formulaire de saisie.
Si la personne se trompe (dans une information) et qu'il valide la saisie. Je souhaite qu'il puisse supprimer la dernière ligne du tableau.

Donc, si je comprends bien, tu veux juste empêcher l'utilisateur de supprimer une ligne quand il n'y a plus de ligne de données (pour éviter de supprimer l'entête), c'est ça ?
Si c'est ça, utilise la solution avec le If que j'ai décrit dans mon message #6.