lina_bou13
XLDnaute Nouveau
Bonsoir à tous,
quand je clique sur le bouton la case Oui marche très bien , mais dès que je clique sur non le message d'erreur 1004 s'affiche, et quand je fais le débogage c'est cette ligne en gras qui bloque en fait.
quand je clique sur le bouton la case Oui marche très bien , mais dès que je clique sur non le message d'erreur 1004 s'affiche, et quand je fais le débogage c'est cette ligne en gras qui bloque en fait.
Private Sub CommandButton1_Click()
Dim retour As Byte
retour = MsgBox("Voulez vous garder les données précédents?", vbYesNoCancel)
If (retour = 2) Then
Exit Sub
End If
If (retour = 6) Then
Sheets("Distances").Activate
End If
If (retour = 7) Then
Sheets("Distances").Activate
Range("J4:AD24").Select
Selection.ClearContents
Range("J5").Select
Sheets("Distances").Select
UserForm1.Show
End If
End Sub