XL 2019 Macro effacement de certaines cellules ciblées

[chinel]

Bonjour, j'ai un code mais sûrement avec une erreur mais je débute dans le domaine de VBA, besoin d'aide merci !
Certaines cellules s'effacent mais pas les autres.


Private Sub Workbook_BeforeClose(Cancel As Boolean)
Worksheets("SMED").Unprotect "manu01"
Range("L22:L26").Select
Range("J7").Select
Range("J9:J11").Select
Selection.ClearContents

Application.DisplayFullScreen = True
ActiveWorkbook.Save
If Workbooks.Count = 1 Then Application.Quit Else ThisWorkbook.Close
End Sub

 

[vgendron]

Bonjour

1)c'est normal, seule la dernière selection s'efface
2) pas besoin de selectionner pour effacer
3) tu peux effacer tout en meme temps

tu as donc le choix entre

Range("L22:L26").ClearContents
Range("J7").ClearContents
Range("J9:J11").ClearContents

ou

Range("L22:L26,J7, J9:J11").ClearContents

 

[chinel]

Bonjour

1)c'est normal, seule la dernière selection s'efface
2) pas besoin de selectionner pour effacer
3) tu peux effacer tout en meme temps

tu as donc le choix entre


ou

Merci et bonne nuit

 

[chinel]

J'ai un problème avec la cellule: Range("L22:L26").ClearContents car elles sont fusionnées avec les colonnes L/M/N comment faire ?

 

[chinel]

ok j'ai trouvé, j'ai fais ceci: Range("L22:N27").ClearContents et cela fonctionne, merci encore et bonne journée !