Une macro pour supprimer la ligne de la cellule active
Bonjour !
Voilà : tout est dans le titre.
J'essaie de créer une macro qui supprime la ligne de la cellule active. Mais comme je ne sais pas écrire en VBA, quand je crée une macro qui enregistre mes actions, elle ne s'applique qu'à la ligne de la cellule concernée au moment de l'enregistrement, pas à une ligne quelconque.
Quelqu'un peut-il m'aider ?
Merci.
Bonjour
ActiveSheet.Rows(ActiveCell.Row).EntireRow.DeleteCordialement
Bonjour,
Une alternative à ce que te propose Amadeus
essaie ceci :
ActiveCell.EntireRow.DeleteAmicalement
Dan
Merci à tous les 2, ça marche, c'est cool !
-- Mer Fév 10, 2010 3:42 pm --
A la réflexion : comme il n'y a pas de "undo" pour les macros, comment faire pour ajouter un message du genre : "vous allez supprimer définitivement une ligne. En êtes-vous bien sûr ?" ?
On n'est jamais trop prudent !
Merci.
Re,
Je l'aurais juré que tu allais demander cela....
essaie ce code
Sub Supprimer()
'Macro par Dan pour F. Debeaux - 08/01/2006
'Supprime un enregistrement
Dim msg As String, title As String, Response As String
Dim style As Integer
Application.ScreenUpdating = False
msg = "Voulez-vous supprimer cet enregistrement ?"
style = vbYesNo + vbCritical + vbDefaultButton2
title = "Séquence de Suppression"
Response = MsgBox(msg, style, title)
If Response = vbYes Then
Activecell.EntireRow.Delete
End If
End SubAmicalement
Dan
Merci, c'est impec.