Bonsoir Kouadio,
Voici un 1er exemple (on considère que la date du règlement est en colonne C)
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Set WsC = Sheets("Feuil2")
If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then
Dim derligne%, ligne%
derligne = WsC.Range("A" & Rows.Count).End(xlUp).Row + 1
ligne = Target.Row
If Range("C" & ligne) = "" Then ' à adapter en fonction de la colonne qui correspond à la date du règlement
MsgBox ("Cette facture n'est pas réglée, transfert annulé!")
Exit Sub
Else
Range("A" & ligne).EntireRow.Copy
With WsC
.Range("A" & derligne).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End With
Application.CutCopyMode = False
MsgBox ("Cette facture est transférée en Feuil2 ")
Rows(ligne).Delete
End If
End If
ou un 2ème avec la confirmation du transfert
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Set WsC = Sheets("Feuil2")
If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then
Dim derligne%, ligne%
derligne = WsC.Range("A" & Rows.Count).End(xlUp).Row + 1
ligne = Target.Row
If MsgBox("Souhaitez-vous transférer cette facture?", vbYesNo) = vbYes Then
Range("A" & ligne).EntireRow.Copy
With WsC
.Range("A" & derligne).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End With
Application.CutCopyMode = False
MsgBox ("Cette facture est transférée en Feuil2 ")
Rows(ligne).Delete
Else
Exit Sub
End If
End If
End Sub
Au choix, à tester.
cdt
Henri