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

anthoYS

XLDnaute Barbatruc
Bonjour, Re (pour les autres),


Code:
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)


à+​
 

Victor21

XLDnaute Barbatruc
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
 

Discussions similaires

Réponses
9
Affichages
631