supprimer plage de cellule

[canard]

salut à tous,

je recherche une macro qui me permette de supprimer une plage de cellule d'une meme ligne à partir d'une cellule active.

Je m'explique :

je selectionne la cellule a1, j'execute la macro, elle me selectionne la plage a1:f1 et me supprime les valeurs inscrites.

je selectionne la cellule c4, j'execute la macro, elle me selectionne la plage a4:f4 et me supprime les valeurs inscrites.

Merci

 

[Hervé]

Bonjour canard, le forum


Une solution possible :

Sub Bouton1_QuandClic()
'si la cellule active ne se trouve pas dans les colonnes 1 à 4, on sort
If ActiveCell.Column > 4 Then Exit Sub

Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 4)).ClearContents 'effacer le contenu des cellules mais pas le format
'Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 4)).Clear 'effacer le contenu des cellules et le format
'Rows(ActiveCell.Row).Delete ' supprime la ligne

End Sub

salut

Message édité par: Hervé, à: 02/10/2005 10:28

 

[canard]

super , merci encore Hervé