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

M

Michel

Guest

• 26 Juillet 2004

• #2

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

 

Vote positif 0 Vote négatif

Y

Yeahou

Guest

• 26 Juillet 2004

• #3

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+

 

Vote positif 0 Vote négatif

M

Michel

Guest

• 27 Juillet 2004

• #4

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

 

Pièces jointes

• Classeur1.zip

  28.8 KB · Affichages: 38
• Classeur1.zip

  28.8 KB · Affichages: 40
• Classeur1.zip

  28.8 KB · Affichages: 41

Vote positif 0 Vote négatif

Y

Yeahou

Guest

• 27 Juillet 2004

• #5

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

 

Vote positif 0 Vote négatif

M

Michel

Guest

• 27 Juillet 2004

• #6

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

 

Vote positif 0 Vote négatif