Supprimer cellules

Etienne2323

XLDnaute Impliqué

• 11 Novembre 2010

• #2

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 :

Code:

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!

 

Dernière édition: 11 Novembre 2010

Vote positif 0 Vote négatif

James007

XLDnaute Barbatruc

• 11 Novembre 2010

• #3

Re : Supprimer cellules

Bonsoir,

Il semble que tu veuilles effacer des cellules ...

Code:

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

A +

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 11 Novembre 2010

• #4

Re : Supprimer cellules

Re-;

Essaie ce code :

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

 

Vote positif 0 Vote négatif

J

Jean-luc1311

XLDnaute Occasionnel

• 11 Novembre 2010

• #5

Re : Supprimer cellules

Bonsoir à tous,

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

JL🙂

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 12 Novembre 2010

• #6

Re : Supprimer cellules

Bonsoir à tous


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

Voici une autre possibilité

Code:

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

 

Vote positif 0 Vote négatif