Supprimer cellules

[Jean-luc1311]

Bonsoir à tous,

Comment adapter ou revoir le code suivant pour supprimer la ligne mais de la colonne "A" à "G".
Rows(ActiveCell.Row).Select
Selection.Delete shift:=xlUp
Range("A" & ActiveCell.Row).Select
Merci.

 

[Etienne2323]

Re : Supprimer cellules

Salut Jean-Luc,
personnellement, je considère que la question que vous soumettez là ne veut pas dire grand chose ...

Supposons que vous vouliez simplement effacer le contenu des cellules A à G de la ligne active, voici une maniere de procéder :

Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 7)).ClearContents

Si ce n'est pas ce que vous cherchez à faire, peut-être qu'une phrase grammaticalement complète et un petit fichier exemple pourrait faire le travail !

Au plaisir de vous relire,

Étienne

Edit : Félicitations James pour votre 1000e post !! Continuez le bon travail!

 

[James007]

Re : Supprimer cellules

Bonsoir,

Il semble que tu veuilles effacer des cellules ...

Sub Test()
Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 7)).ClearContents
End Sub

A +

 

[Cousinhub]

Re : Supprimer cellules

Re-;

Essaie ce code :

'si ActiveCell dans colonne A
ActiveCell.Resize(1, 6).Delete xlUp
'sinon
Cells(ActiveCell.Row, 1).Resize(1, 6).Delete xlUp

Bonne soirée

 

[Jean-luc1311]

Re : Supprimer cellules

Bonsoir à tous,

Merci pour votre contribution, vous avez répondu à mes attentes.
Bonne soirée.

JL

 

[Staple1600]

Re : Supprimer cellules

Bonsoir à tous


De passage ici , histoire de saluer bhbh, Jean-Marcel et James007

Voici une autre possibilité

Sub a()
Cells(ActiveCell.Row, 1).Resize(, 7) = Empty
End Sub