Re : copier coller before double click
Bonjour Sousou,
J'ai juste envoye un fichier exemple car mon fichier final est deja bien rempli avec des donnees perso.
Le code de cette page est le suivant (encore merci a Mapomme qui m'a bien depanne).
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim xRg As Range, leJourDebut As Date
'Si on ne double-clique pas sur la colonne G, on regarde si on a double-cliqué
' sur la 1ière ligne du diagramme
If Target.Column = Range("G1").Column Then
'Si la valeur de la cellule n'est pas 'Done', on ne fait rien
If LCase(Target) <> "done" Then Exit Sub
'Si on a double-cliqué sur la ligne 1, on ne fait rien
If Target.Row = 1 Then Exit Sub
'on annule l'action normal du double -clique
Cancel = True
' recherche de la dernière cellule non vide
Set xRg = Cells(Rows.Count, 1).End(xlUp)
' la 1ière cellule vide est une ligne plus bas
Set xRg = xRg.Offset(1, 0)
' copy de la ligne à la 1ière ligne vide
Range(Cells(Target.Row, "A"), Cells(Target.Row, "G")).Copy Destination:=xRg
' détermination de la date programmée
Cells(xRg.Row, "D") = Cells(Target.Row, "F")
' détermination de la date de la prochaine MP
Cells(xRg.Row, "F") = Cells(xRg.Row, "D") + Cells(xRg.Row, "E")
' effacement de la valeur 'Done'
Cells(xRg.Row, "G").ClearContents
ElseIf Target.Column >= Range("H1").Column And Target.Row = 1 Then
' on a double-cliqué sur la 1ière ligne du diagramme
Cancel = True
MsgBox ("Changement de la date de début du diagramme")
leJourDebut = FormCal.Calendrier
If leJourDebut = 0 Then Exit Sub
Range("H1") = leJourDebut
Else
End If
End Sub