Re : Problème avec une condition
Merci, mais sa ne marche pas voici la macro que j'ai enregistré:
Sub ENREGISTREMENT_BD()
If Not Intersect(Target, Range("A2:G2")) Is Nothing Then Exit Sub
If MsgBox("Voulez vous enregistrer les informations dans la base de données", vbYesNo, "enregistrement") = vbYes Then
Range("A2:G2").Copy
Sheets("BD").Range("A" & Sheets("BD").[A65000].End(xlUp).Row + 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("D8,D10,D12,D16").Select
Range("D16").Activate
Selection.ClearContents
Range("D8").Select
End If
End Sub