et encore des erreurs 1004 !

[yde]

A nouveau j'ai une erreur du meême style avec le code suivant :

Private Sub ToRecap_Click()
Sheets("Recap").Select
Range("A4").SelectEnd Sub c'est ici que ça plante

Je ne sais pas comment comprendre le message. Existe t'il un book qui traite de tout ça assez facilement ?
Merci de votre aide !

 

[RICO1972]

Re : et encore des erreurs 1004 !

Salut Yde,
tapes ce code :

Private Sub ToRecap_Click()
Sheets("Recap").Select
Range("A4").Select
End Sub

Tout devrait bien fonctionner ..
@+
RICO

 

[porcinet82]

Re : et encore des erreurs 1004 !

Salut,

Just for the fun, la meme chose avec une ligne de moins 😉 :
Private Sub ToRecap_Click()
Application.Goto Sheets("Recap").Range("A4")
End Sub

@+

 

[yde]

Re : et encore des erreurs 1004 !

le code original étit bien

Private Sub ToRecap_Click()
Sheets("Recap").Select
Range("A4").Select
End Sub

J'essaye de ce pas "Application.Goto Sheets("Recap").Range("A4")"
ça marche !!!!!! Merci pour votre réactivité !
Super Forum !!😀 😀 😀

Mais pourquoi l'autre code ne veux pas fonctionner ?

 

[RICO1972]

Re : et encore des erreurs 1004 !

Re Yde,
l'autre code ne fonctionnait pas car tu as écrit :
Range("A4").SelectEnd Sub
la fin de la procédure doit être sur une ligne et la selection de la cellule A4 sur une autre :
Range("A4").Select
End Sub

@+ Rico

 

[Robert]

Re : et encore des erreurs 1004 !

Bonjour le fil, bonjour le forum,

Private Sub ToRecap_Click() doit être la procédure click d'un CommandButton. Si cellui-ci se trouve dans un autre onglet que Recap,tu dois spécifier ActiveSheet. Ton code initial devient :

Private Sub ToRecap_Click()
Sheets("Recap").Select
[B]ActiveSheet[/B].Range("A4").Select
End Sub