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

lina_bou13 · 4 Juin 2018

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 · 4 Juin 2018

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

lina_bou13 · 4 Juin 2018

Bonjour,
Je n'y avais pas prêté attention :c

Staple1600 · 4 Juin 2018

Re

Pour cette question, voir ma macro dans le précédent message

lina_bou13 · 4 Juin 2018

Merci beaucoup,
Ça marche

Staple1600 · 4 Juin 2018

Re

On attends toujours de tes nouvelles dans l'autre fil...

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

lina_bou13

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

lina_bou13

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

lina_bou13

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

Discussions similaires