Macro qui supprime uniquement la dernière ligne

Bonjour à tous,

Voilà j'ai une macro qui copie et colle dans un tableau recapitulatif les données entrées par l'utilisateur dans l'encadré (informations sur les diverses absences => tableau pour le décompte).

Dans le cas ou l'utilisateur ferait une erreur de saisie, j'aimerai créer une macro qui supprime uniquement la dernière ligne collée dans le tableau recapitulatif.

J'ai cette macro qui fonctionne bien mais le Next J me supprime toutes les lignes.

Sub Effacer_dernière_entrée()

Application.Calculation = xlManual

Dim J As Long

For J = 500 To 23 Step -1

If Range("Q" & J) <> 0 Then Range("Q" & J & ":Y" & J).ClearContents

Next J

Application.Calculation = xlAutomatique

End Sub

Est-ce que quelqu'un aurait la solution ?

Merci d'avance.

Bonjour,

Tu peux essayer

Sub Effacer_dernière_ligne()
    Range("Q" & Rows.Count).End(xlUp).EntireRow.ClearContents
End Sub

A+

Merci beaucoup, cela fonctionne bien. Le seul problème c'est que cela efface toute la ligne et donc ce qui se trouve dans mes colonnes A à P alors que cela doit rester. Est-ce qu'il y aurait un moyen de restreindre le champs ClearContents aux colonne Q à Y ?

Merci !

Re,

A tester ...

Sub EffacerPlage()
Dim i As Integer
i = Range("A65536").End(xlUp).Row
Range("Q" & i & ":Y" & i).ClearContents
End Sub

Ma-gni-fique !!!

Merci infiniement !

charlene90 a écrit :

Ma-gni-fique !!!

Merci infiniement !

De rien ...

Merci pour tes remerciements .!!!

A une dernière chose : est-ce possible de faire en sorte que la macro s'arrête à la ligne 23 ? Parce qu'à la ligne 22 se trouve les noms des colonnes et du coup cela me les efface... J'ai tenté ceci : Range("Q23:Q500") mais cela ne fonctionn pas vraiment...

Merci d'avance

Re,

Sub Effacer_dernière_ligne()
Dim DerLig As Long
    DerLig = Range("Q" & Rows.Count).End(xlUp).Row
    If DerLig > 22 Then
        Range(Cells(DerLig, 17), Cells(DerLig, 25)).ClearContents
    End If
End Sub

A+

Génial ça fonctionne parfaitement !

Merci à vous deux !!!