Effacer le contenu de la derniére ligne d'un tableau

[Michel]

Bonjour à tout le forum,
J'ai recherché sur le forum le moyen d'effacer le contenu de la dernière ligne utilisée dans un tableau et je n'ai rien trouvé :
j'utilise pour cela une référence dans la colonne B8:B38 qui me donne le résultat dans la colonne C7:C38.
Je parle bien d'effacer et non de supprimer comme dans les nombreux postes du Forum.
D'avance je vous remercie
@ plus
Michel

 

[Michel]

Relance: Effacer le contenu de la derniére ligne d'un tableau

Bonjour à tous et toutes,
Je relance mon post
J'ai recherché sur le forum le moyen d'effacer le contenu de la dernière ligne utilisée dans un tableau et je n'ai rien trouvé :
j'utilise pour cela une référence dans la colonne B8:B38 qui me donne le résultat dans la colonne C7:C38.
Je parle bien d'effacer et non de supprimer comme dans les nombreux postes du Forum.
Merci d'avance
Michel

 

[Yeahou]

Bonjour Michel, le Forum

Difficile de te donner une réponse adaptée avec si peu d'infos.
tu as une feuille exemple ?
y a t'il des lignes utilisées aprés ton tableau ?
y a t'il des lignes vides dans ton tableau ?
Ton tableau est t'il de taille fixe ou variable ?

si la dernière ligne est connue, tu peux utiliser
range( numérodeligne & ":" & numérodeligne).ClearContents
si ce n'est pas le cas, il y a plusieurs méthodes possibles mais il faut des précisions.

Cordialement, A+

 

[Michel]

Bonjour Yeahou,
Je te joints un petit fichier
Merci de m'avoir répondu
Michel

 

[Yeahou]

Bonjour Michel, le forum

Voila qui devrait te convenir

Cordialement, A+

Sub Effacer_Der_Ligne()
If Worksheets("Feuil1").Range("B8").End(xlDown).Row = 65536 Then
Worksheets("Feuil1").Range("B8:G8").ClearContents
Else
Worksheets("Feuil1").Range("B8").End(xlDown).Range("A1:F1").ClearContents
End If
End Sub

 

[Michel]

Bonjour Yeahou,
Je te remercie ça fonctionne à merveille
Encore merci et @ plus sur le forum
Michel