Pd CommandButton

  • Initiateur de la discussion Pierrot
  • Date de début
P

Pierrot

Guest
Le CommandButton se trouve sur la feuil4, lorsque je clique sur le bouton j'ai une erreur pour la sélection de la cellule F15, est ce que quelqu'un pourrais me dire ce qui ne va pas.
Merci

Public Sub CmdSuivant_Click()
Application.ScreenUpdating = False
Sheets("Feuil4").Select
Range("A2").Select
Selection.ClearContents
Selection.AutoFilter Field:=10, Criteria1:=10
Columns("J:J").Select
Selection.EntireColumn.Hidden = False

Sheets("Feuil1").Activate
Range("F15").Select -----------> Erreur
UserForm1.Show
Application.ScreenUpdating = True
End Sub
 
F

Fred

Guest
Slt, pas de probleme ca devrait marcher essaye, et verifie que tes feuilles ou ton classeur ne sont pas protégés :

Public Sub CmdSuivant_Click()
Application.ScreenUpdating = False
Sheets("Feuil4").Select
Range("A2").Select
Selection.ClearContents
Selection.AutoFilter Field:=10, Criteria1:=10
Columns("J:J").Select
Selection.EntireColumn.Hidden = False

Sheets("Feuil1").Select
Range("F15").Select
UserForm1.Show
Application.ScreenUpdating = True
End Sub
 
P

Pierrot

Guest
Je n'ai rien de protégé, visiblement il m'exécute bien la macro, mais il m'affiche ce panneau d'erreur.

Erreur d'exécution 1004
La Méthode Select de la Classe Range a échoué.

?????????????????????
 

Discussions similaires

Réponses
2
Affichages
129

Statistiques des forums

Discussions
311 725
Messages
2 081 945
Membres
101 849
dernier inscrit
florentMIG