Code VbA pour effacer ligne d'un tableau
Bonjour!
Je souhaiterais trouver le bon code VBA pour pouvoir effacer la derniere ligne d'un tableau d'archivage. Voila ce que j'ai fait pr le moment:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
| Private Sub CommandButton1_Click()
UserFormModiferCommande.Hide
UserFormModifierCommandeOui.Show
Application.ScreenUpdating = False
Sheets("Base").Select
Range("A68").Select
Do
If ActiveCell.Value = "" Then
ActiveCell.Offset(-1, 0).Select
Selection.Clear.Contents
End If
Loop Until ActiveCell.Value = ""
Application.ScreenUpdating = True
End Sub |
Si quelqu'un pouvait vite répondre.
merci
