Bonsoir à tous
Excuser, toc toc!... je voudrais pas abuser mais je suis coincé
j'ai bien changer ma formule mais:
Private Sub cmdCmpt_Click()
Dim msg As Integer
If Range("A9").Value <> "" Then
msg = MsgBox("Vous êtes arrivé en fin de tableau, voulez vous purger les données ?", 4, "ATTENTION")
If msg = 6 Then
Range("A3:c9").Select
Range("a3").Activate
ElseIf msg = 7 Then
Unload UserForm1
Exit Sub
End If
Comment sauvegarder avec un autre nom de feuil
Voila si Qlq'1 à la soluce
Merci Bcp
@ + denis