XL 2019 Macro effacement de certaines cellules ciblées

chinel · 6 Décembre 2022

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 · 6 Décembre 2022

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 · 7 Décembre 2022

vgendron à dit:
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 · 7 Décembre 2022

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 · 7 Décembre 2022

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

XL 2019 Macro effacement de certaines cellules ciblées

chinel

XLDnaute Impliqué

vgendron

XLDnaute Barbatruc

chinel

XLDnaute Impliqué

chinel

XLDnaute Impliqué

chinel

XLDnaute Impliqué

Discussions similaires