Discussion :

[carottemémé]

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 :

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

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

[wilfried_42]

Bonjour


une seule ligne : pas besoin de boucle

Code :

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

sheets("Base").Range("A" & sheets("Base").range("A65000").end(xlup).row).entirerow.clearcontents

sheets("Base").range("A65000").end(xlup).row : te donne le n° de la derniere remplie
Ensuite Sheets("Base").range("A" & deniere ligne).entirerow : definit la ligne entière à laquelle on applique le clearcontents