Private Sub worksheet_beforedoubleclick(ByVal Target As Range, Cancel As Boolean)
'Déclaration des variables pour export vers feuilles signature E5
Dim li As Integer
Dim dest As Range
Dim clas As Workbook
If Not Application.Intersect(Target, Range('A1,H1')) Is Nothing Then
ActiveSheet.Unprotect
'nom de la macro à affecter à la cellule
Accueil.Show
Cancel = True
Exit Sub
End If
'/////////////////////////////////////////////////////////////////////////
'si le double click n'a pas lieu dans une cellule éditée de la colonne AG
If Application.Intersect(Target, Range('AG4:AG20000')) Is Nothing Then
'Si la cellule contient une case à cocher:
If Target.Value Like '[oý]' Then
Target.Value = IIf(Target.Value = 'o', 'ý', 'o')
'Empêche la sélection de la cellule après le double-clic
Cancel = True
End If
Exit Sub
End If
'ouverture du classeur pour la suite du code sinon fonctionne pas
ThisWorkbook.FollowHyperlink 'K:\\Antenne Dispatching Regional\\2-Pole ID\\16- VCT - Essais E4\\Réunion CDR\\Signatures E5\\Signatures E5.xls'
'Code pour exporter la ligne dans l'autre feuille et l'onglet 'Signature E5'
Set clas = Workbooks('Signatures E5.xls') 'définit la variable clas
ActiveSheet.Unprotect
li = Target.Row 'définit la variable li qui correspond à la ligne
'/////définit la variable dest
With clas.Sheets('Feuil1') 'prend en compte l'onglet 'Signature E5'
If .Range('B4').Value = '' Then 'condition 2 : si A1 est vide
Set dest = .Range('B4') 'définit la variable dest
Else 'sinon
Set dest = .Range('B65536').End(xlUp).Offset(1, 0) 'définit la variable dest
End If 'fin de la condition 2
End With 'fin de la prise en compte de l'onglet 'Extract Signature E5'
'copie la ligne de la case cochée de l'onglet en cours et la colle dans l'onglet 'Signature E5' de l'autre feuille
Range(Cells(li, 2), Cells(li, 27)).Copy Destination:=dest
'Range(Cells(li, 30), Cells(li, 30)).Copy Destination:=dest
End Sub