Bouton pour atteindre une cellule

[La Vouivre]

bonjour le forum
Je recherche la ligne de code qui me place sur une cellule avec un CommandButton1 sur la feuill1
Par exemple j'ai un CommandButton1 en haut de la feuill1 et je voudrais qu'il me mette sur la feuill3 sur la ligne 500 en colonne " f " ce qui donne " feuill3 (F 500)" comme repère , la même chose qu'un lien hypertexte mais en VBA.
par avance merci de votre aide

 

[st007]

Re : Bouton pour atteindre une cellule

peut certainement mieux faire

Sub Macro1()
    Sheets("Feuil3").Select
    Range("F500").Select
End Sub

 

[st007]

Re : Bouton pour atteindre une cellule

ou bien

Sub Macro1()
   Application.Goto Sheets("Feuil3").Range("F300"), True
End Sub

 

[La Vouivre]

Re : Bouton pour atteindre une cellule

Bonjour mon ami st007
je viens d'essayer les lignes de code sur le CommandButton1 et je me retrouve avec un message du débogueur

la méthode select de la classe Range a échoué

Que dois-je faire?

merci pour votre aide

 

[La Vouivre]

Re : Bouton pour atteindre une cellule

la seconde méthode fonctionne très bien
encore merci pour votre aide
bonne soirée

 

[st007]

Re : Bouton pour atteindre une cellule

Une illustration deux sorte de bouton ...

 

[La Vouivre]

Re : Bouton pour atteindre une cellule

Belle démonstration
merci pour l'aide j'ai compris pourquoi ça ne marchait pas au début
encore bonne soirée
et un grand merci pour votre disponibilité

 

[st007]

Re : Bouton pour atteindre une cellule

juste parce que j'aime ton côté sausé de ta signature

c'est quoi qui fesait buggé ?

 

[La Vouivre]

Re : Bouton pour atteindre une cellule

après plusieurs essais je ne vois plus pourquoi
si je mets le code direct sur le bouton

Private Sub CommandButton1_Click()
Sheets("Feuil3").Select
Range("F500").Select
End Sub

ça ne marche pas, mais si avec le même code on passe par macro ça marche

sur la feuille
Private Sub CommandButton1_Click()
'Macro1
End Sub

dans un module
Sub Macro1()
Sheets("Feuil3").Select
Range("F500").Select
End Sub

le second code marche avec le bouton

Private Sub CommandButton1_Click()
Application.Goto Sheets("Feuil3").Range("F500"), True
End Sub

et la je ne suis pas assez fort pour comprendre la subtilité