Lancer une macro enregistré après double clic sur 3 cellules concaténées ?

[anthoYS]

Bonjour, Re (pour les autres),

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.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

à+​

 

[Victor21]

Bonjour, AnthoYS.

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

 

[anthoYS]

Très bien. Merci @Victor21 pour la partie de code.

En effet, je fais l'amalgame entre les deux, l'essentiel étant que vous ayez compris, merci du rappel qui vaut son pesant.

à+ si tu veux !