Macro suppression contenu

[Heptaminol]

Bonjour,

Je cherche à supprimer le contenu des plages de cellules O à Z des cellules de ma selection.

Si j'ai sélectionné les lignes 13 à 17, j'aimerai supprimer les plages "O à Z" pour ces 5 lignes.

Pouvez-vous m'aider ?

J'ai déjà ce morceau de macro :

Sub Supprimer()
'Supprime un enregistrement
Dim msg As String, title As String, Response As String
Dim style As Integer
Application.ScreenUpdating = False
msg = "Voulez-vous supprimer les lignes sélectionnées ?"
style = vbYesNo + vbCritical + vbDefaultButton2
title = "Suppression de la ligne"
Response = MsgBox(msg, style, title)
If Response = vbYes Then
Range(ActiveCell("O:Z"), ActiveCell(30, 15)).ClearContents
End If
End Sub


Merci d'avance et bonne soirée !

Heptaminol

 

[Papou-net]

Re : Macro suppression contenu

Bonsoir Heptaminol,

Modifie ta macro comme ceci :

Sub Supprimer()
'Supprime un enregistrement
Dim msg As String, title As String, Response As String
Dim style As Integer
Application.ScreenUpdating = False
msg = "Voulez-vous supprimer les lignes sélectionnées ?"
style = vbYesNo + vbCritical + vbDefaultButton2
title = "Suppression de la ligne"
Response = MsgBox(msg, style, title)
If Response = vbYes Then
Selection.Range("O1:Z" & Selection.Rows.Count).ClearContents
End If
End Sub

Cordialement.

 

[Pierrot93]

Re : Macro suppression contenu

Bonjour,
Bonjour Papou

une autre approche si plusieurs lignes de sélectionnées :

Range("O" & Split(Selection.Address, ":")(0) & ":Z" & Split(Selection.Address, ":")(1)).ClearContents

bonne soirée
@+

 

[Heptaminol]

Re : Macro suppression contenu

Excellent, ça fonctionne !

Merci beaucoup du temps que vous avez pris pour m'aider !