Effacer dernière ligne

[Mimi]

Bonjour le forum,
Voila, il i a quelque temps avec votre aide j'avais reçu une macro qui me permettais d'éffacer la dernière ligne comme ceci :
Sub Effacer_Der_Ligne()
If Worksheets("Sagit").Range("B10").End(xlDown).Row = 37 Then
Worksheets("Sagit").Range("B10:C10").ClearContents
Else

Worksheets("Sagit").Range("B10").End(xlDown).Range("A1:B1").ClearContents
End If
End Sub

Aujourd'hui sur la même feuille je voudrais faire ceci :
Sub Effacer_Der_Ligne_Caisse()
If Worksheets("Sagit").Range("U6").End(xlDown).Row = 37 Then
Worksheets("Sagit").Range("U6:Y6").ClearContents
Else

Worksheets("Sagit").Range("U6").End(xlDown).Range("U1:V1").ClearContents
End If
End Sub
Mais je ne sais pas à quoi correspond le 37 de Then.
D'avance merci
Mimi

 

[Pierrot93]

Re : Effacer dernière ligne

Bonjour,
le 37 correspond à la ligne de la dernière cellule pleine d'une colonne en partant d'une cellule précise... sans plus de détails difficile de t'en dire plus...

bonne journée
@+

 

[job75]

Re : Effacer dernière ligne

Bonjour Mimi, salut Pierrot,

Comprends pas trop : votre 1ère macro n'efface pas la dernière ligne mais la ligne 10...

Si vraiment vous voulez supprimer la dernière ligne sous la ligne 6 :

Sub Effacer_Der_Ligne_Caisse()
Worksheets("Sagit").Range("U6").End(xlDown).Resize(, 2).ClearContents
End Sub

A+

 

[Mimi]

Re : Effacer dernière ligne

Salut Pierrot, job,
Je vous joints un petit fichier
Mimi

 

[Mimi]

Re : Effacer dernière ligne

Ok pour la macro de job75
Merci beaucoup
Mimi