Sub effacer_3_albn()
'
' effacer_3_albn Macro
'
'
Range("L14:N33").Select
Range("M14").Activate
Selection.ClearContents
End Sub
Par contre je ne sais pas pourquoi ça affiche "M14".Activate mais bon si je peut l'enlever, je le ferais. Car mon but c'est double clic sur les 3 cellules concaténées L13:N13 ça efface L14:N33 vous l'aurez compris.
Rajouter cette macro ou adapter le code à cela. Sinon je tenterais autre chose, c'est-à-dire enlever la macro et agréger une partie de la macro au code de la page ci-dessous dont vous percevez le début de la Sub.
VB:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Vous voulez sans doute parler de 3 cellules fusionnées, et non pas concaténées.
Pour info, double-cliquer sur L13:N13 équivaut à double-cliquer sur le target L13.
If Target.Column = 12 and Target.Row=13 Then
Range("L14:N33").ClearContents