Code effacer ligne

Bonjour le forum

Bonjour à tous

J'ai grandement besoin de votre aide!

j'ai fait beaucoup de recherches sur web et sur plusieurs forums y compris notre forum sur uncode Vba

ou une boucle qui sert à effacer je dis bien effacer non supprimer la ligne Du bas vers le haut et stopper

sur la ligne du titre de tableau .

exemple:

effacer la la ligne 10 puis 9 puis 8 puis 7, puis 6, puis 5, etc jusqu’à a ligne du titre de tableau dans la ligne 4 par exemple.

je tiens à vous remercier pour votre aide et votre soutien.

cordialement

Bonjour Zinelamri

La méthode de commencer par le bas ne sert que si tu supprimes la ligne

Pour ton cas, une simple boucle... FOR/NEXT (la base de VBA) te suffit

Sub Effacer()
Dim DLig as long, Lig as long
' Dernière ligne du tableau
Dlig = range("A" & rows.count).End(Xlup).row
' Pour chaque ligne
For Lig = 5 to DLig
' Effacer la ligne
Rows(lig).ClearContents
Next Lig

A+

Bonsoir,

Pourrais tu préciser ce que tu désignes comme tableau ?

Une plage de cellules variables ou un tableau (mettre sous forme de tableau dans Excel) ?

Un petit fichier serait un plus.

Et tu n'es pas nouveau sur le forum...

Cdlt.

Bonjour,

voire même sans boucle :

Rows(4).resize(10).ClearContents

efface 10 lignes à partir de la 4e

eric

Bonjour,

Tout d'abord, je vous souhaite pour la nouvelle année (un peu tardif)

et deuxièmement félicite pour le new look

Merci beaucoup pour vos réponses mes amis du forum

je vais joindre un exemple qui va l'illustrer parfaitement

actuellement et temporellement j'utilise ce code:

Sub Rectangleàcoinsarrondis10_Cliquer()
    R = ActiveCell.Row
    C = ActiveCell.Column
    Range(Cells(R, C), Cells(R, C + 6)).ClearContents
    Range(Cells(R, C), Cells(R, C + 4)).Select
End Sub

cordialement et amicalement

zinelamri

Bonjour

si j'ai bien compris à remplacer et à tester :

Sub Rectangleàcoinsarrondis10_Cliquer()
' supprime la ligne complète
Dim plage As Range, s As Range

Set plage = Range("A15").EntireRow

For Each s In plage
s.Delete Shift:=xlUp
Next s
End Sub

crdlt,

André

Bonjour Andre13

merci de votre attention

ce que je voulais :

effacer ligne par ligne on commençant par le bas chaque click efface seulement une seule ligne est Arrêter sur la ligne:

N° Produit Prix U Qté

Salut,

Voici le lien d'un topic un peu similaire.

J'espère que ça pourrait aider.

https://forum.excel-pratique.com/viewtopic.php?f=2&t=89192

Merci!

Bonjour,

il est temps de dire que tu voulais une par une, avec un clic sur un bouton...

Explications incomplètes => réponses inadaptées

eric

re bonjour à tous

Je vais essayer de trier mes idées avant de tout écrire.

J’ai besoin d’un code qui efface la ligne (pas supprime) comme clearcontents pour les cellules.

Le code efface la ligne chaque click sur le bouton Supp Article en commençant par la dernière qui en bas est on Montons vers le haut selon le besoin sauf la ligne n° 14 .

Est-ce clair maintenant?

je vous remercie pour votre collaboration.

effacer la dernière ligne quoi :

Cells(Rows.Count, 1).End(xlUp).EntireRow.ClearContents

eric

re,

hum! est-ce cela

ci joint

Bonsoir L’équipe

j'ai exigé le code effacer pour éviter le décalage des lignes .

Est-ce on peut effacer lignes dans la feuille sans décaler les autres vers le haut ?

Andre13 votre code supprime la la ligne .

le problème n'est toujours pas résolu

merci comme même pour tous les tentatives

amicalement

et si tu regardais la proposition au-dessus ?