Bug macro doubleclick

Bonjour le forum

Si je fais appel à vous c'est qu'une MACRO que j'ai affecté à cette matrice me permet tout bêtement de transférer les données d'une ligne située sur la plage D9:X29 de chaque onglet (correspondant à un mois de l'année), à une 2nde plage D30:X36 ne fonctionne plus depuis ce matin (le tableau s'accommodait au fur et à mesure que les données étaient transmises).

C'était le suivante :

Option Explicit

Dim derln1&, derln2&

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

derln1 = Range("D9").End(xlDown).Row

If Not Intersect(Target, Range("D9:X" & derln1)) Is Nothing Then

Application.ScreenUpdating = False

derln2 = Application.Max(30, Range("D37").End(xlUp)(2).Row)

Range("D" & Target.Row & ":X" & Target.Row).Copy Range("D" & derln2) '.Insert shift:=xlDown

Range("D" & Target.Row & ":X" & Target.Row).Delete shift:=xlUp

Range("D28:X28").Insert shift:=xlDown

End If

Cancel = True

End Sub

Là le problème c'est que la fonction "doubleclick" ne fonctionne plus et je ne comprends pas pourquoi...

Quelqu'un aurait une idée ? help...

Essaye en mode pas à pas dans les macros (F8) et regarde ou cela plante.

Cela s'arrête sur quel ligne de code?

ECG

Rechercher des sujets similaires à "bug macro doubleclick"