Erreur 1004 : la méthode Select de la classe Range a échoué

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.
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
 

Staple1600

XLDnaute Barbatruc
Bonjour le fil, le forum

@lina_bou13
Avant de déposer une nouvelle question, il serait peut-être utile de donner suite dans ta précédente discussion, non?
;)

Et pour cette question-ci, voir cette macro
VB:
Private Sub CommandButton1_Click()
Select Case MsgBox("Voulez vous garder les données précédents?", vbYesNoCancel)
Case 2
Exit Sub
Case 6
Sheets("Distances").Activate
Case 7
Sheets("Distances").Range("J4:AD24") = Empty
UserForm1.Show
End Select
End Sub
 
Dernière édition:

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas