supprimer plage de cellule

canard

XLDnaute Occasionnel
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é

XLDnaute Barbatruc
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
 

Discussions similaires

Statistiques des forums

Discussions
312 896
Messages
2 093 387
Membres
105 716
dernier inscrit
jrmdprt