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.