Suppression ligne

bonjour à tous,

pouvez vous m'indiquez comment créer une macro qui me permettrez en cliquant sur un bouton de supprimer la ligne que l'on souhaite, ou la ligne sur laquelle on est positionné.

merci

Salut,

Tu crées un bouton qui s'appelle par exemple CmdEffacer.

et tu mets ça :

Private Sub CmdEffacer_Click()

Selection.Delete Shift:=xlUp

End Sub

Si pas clair, je te mets le fichier

https://www.excel-pratique.com/~files/doc/effacer.xls

A +

merci pour ta réponse, mais ta solution en permet de supprimer qu'une cellule alors que j'aurai voulu supprimer toute la ligne en entier. Peut être qu'il faut juste modifier un argument.

A +

Re,

ça sera mieux !

Private Sub CmdEffacer_Click()

ActiveCell.EntireRow.Delete Shift:=xlUp

End Sub

+

ca marche, sympa

a+

je me suis mal exprimé, il y a un truc qui ne va pas :

sur le fichier ci-joint

https://www.excel-pratique.com/~files/doc/Lk2CTeffacer.xls

je veux par exemple effacer la ligne3 (CCC) et les cellules correspondantes sauf la colonne 3 (en verte) car c'est une formule !

Bonsoir,

Remplace ta macro EFFACER par celle ci-dessous:

Sub effacer()
Dim i As Integer
i = ActiveCell.Row
Range("A" & i, "B" & i, "D" & i).ClearContents
End Sub

Attribue lui un bouton ou un raccourci clavier.

Il te suffit de te positionner sur une des celules de la ligne à effacer puis d'exécuter cette macro.

Amicalement

Dan

merci Nad-Dan,

le fichier joint est un exemple simplifié,

tu pourrais me dire ce que je dois modifier dans ta macro pour arriver à prendre en un seul coup plusieurs colonnes, du style (A5:G5) au lieu de taper :

Range("A" & i, "B" & i, "C" & i.........."G" & i).ClearContents

merci

je crois avoir trouvé, peux tu me confirmer, merci

(pour la colonne A à la colonne M) avec i la ligne active :

Range(Cells(i, 1), Cells(i, 13)).ClearContents

Bonjour,

Exactement.

Bonne journée

Dan