Liens vers cellules

H

Harvey

Guest

• 15 Décembre 2006

• #2

Re : Liens vers cellules

Personne n'a de solutions ?

 

Vote positif 0 Vote négatif

H

Harvey

Guest

• 15 Décembre 2006

• #3

Re : Liens vers cellules

Ok, j'ai un élément de réponse. Si j'affiche la ligne où se trouve la cellule vers laquelle pointe mon lien, il n'y a plus de bug. Quelqu'un saurait-il m'expliquer pourquoi ? Y-a-t-il un moyen de contourner le problème ?

 

Vote positif 0 Vote négatif

M

Mytå

Guest

• 15 Décembre 2006

• #4

Re : Liens vers cellules

Salut Harvey

Une façon de faire

PHP:

Private Sub CommandButton1_Click()
Reset_Home
Application.GoTo Reference:=ActiveSheet.Range("A11"), Scroll:=True
End Sub
Private Sub CommandButton2_Click()
Reset_Home
Application.GoTo Reference:=ActiveSheet.Range("A39"), Scroll:=True
End Sub
Private Sub CommandButton3_Click()
Reset_Home
Application.GoTo Reference:=ActiveSheet.Range("A67"), Scroll:=True
End Sub
Sub Reset_Home()
Application.GoTo Reference:=ActiveSheet.Range("A1")
End Sub

Mytå

 

Vote positif 0 Vote négatif

H

Harvey

Guest

• 15 Décembre 2006

• #5

Re : Liens vers cellules

Salut Mytå,

Nickel. Ca fonctionne à merveille... Merci.
J'ai éventuellement une autre question : Est-il possible d'empêcher le défilement de la feuille tout en gardant cette structure ?

Encore merci Mytå.

 

Vote positif 0 Vote négatif

G

Guillaumega

XLDnaute Impliqué

• 15 Décembre 2006

• #6

Re : Liens vers cellules

Oui,

au début de ton sub , tu rajoutes une ligne avec écrit:

Application.ScreenUpdating = False

A+

 

Vote positif 0 Vote négatif

H

Harvey

Guest

• 15 Décembre 2006

• #7

Re : Liens vers cellules

Je n'arrive pas à le faire fonctionner.
J'ai essayé en initialisant la fonction à l'ouverture du classeur,

Private Sub Workbook_Open()
Application.ScreenUpdating = False
End Sub

sans succès...
si je l'incorpore dans mon sub, j'en reviens au même problème qu'au début (cf: premier message du post).

 

Vote positif 0 Vote négatif

G

Guillaumega

XLDnaute Impliqué

• 15 Décembre 2006

• #8

Re : Liens vers cellules

Je ne sais si j'ai répondu, mais si tu veux la macro précédente en restant toujours en haut de page, tu peux faire comme ceci:

Private Sub CommandButton1_Click()
Reset_Home
Application.GoTo Reference:=ActiveSheet.Range("A11"), Scroll:=True
Range("G12").Select
End Sub
Private Sub CommandButton2_Click()
Reset_Home
Application.GoTo Reference:=ActiveSheet.Range("A39"), Scroll:=True
Range("G12").Select
End Sub
Private Sub CommandButton3_Click()
Reset_Home
Application.GoTo Reference:=ActiveSheet.Range("A67"), Scroll:=True
Range("G12").Select
End Sub
Sub Reset_Home()
Application.GoTo Reference:=ActiveSheet.Range("A1")
End Sub


Cela te va?

 

Vote positif 0 Vote négatif

H

Harvey

Guest

• 15 Décembre 2006

• #9

Re : Liens vers cellules

Merci pour tes réponses Guillaumega,

Pour le haut de page le problème est résolu. En revanche, pour ce qui est du défilement... ce n'est pas encore le cas.

 

Vote positif 0 Vote négatif

G

Guillaumega

XLDnaute Impliqué

• 15 Décembre 2006

• #10

Re : Liens vers cellules

Le défilement?

 

Vote positif 0 Vote négatif

H

Harvey

Guest

• 15 Décembre 2006

• #11

Re : Liens vers cellules

Oui, l'ascenseur...

 

Vote positif 0 Vote négatif

G

Guillaumega

XLDnaute Impliqué

• 15 Décembre 2006

• #12

Re : Liens vers cellules

Re,

En fait mon ordi est tellement puissant que je ne le vois pas faire l'ascenseur lol... nan je déconne...

Bon, en théorie ca c'est bon...
Nope?

Private Sub CommandButton1_Click()
Reset_Home
Application.ScreenUpdating = False
Application.GoTo Reference:=ActiveSheet.Range("A11"), Scroll:=True
Range("G12").Select
End Sub
Private Sub CommandButton2_Click()
Reset_Home
Application.ScreenUpdating = False
Application.GoTo Reference:=ActiveSheet.Range("A39"), Scroll:=True
Range("G12").Select
End Sub
Private Sub CommandButton3_Click()
Reset_Home
Application.ScreenUpdating = False
Application.GoTo Reference:=ActiveSheet.Range("A67"), Scroll:=True
Range("G12").Select
End Sub
Sub Reset_Home()
Application.GoTo Reference:=ActiveSheet.Range("A1")

 

Vote positif 0 Vote négatif

H

Harvey

Guest

• 15 Décembre 2006

• #13

Re : Liens vers cellules

Ok, j'essaie et je te fais signe...

 

Vote positif 0 Vote négatif

H

Harvey

Guest

• 15 Décembre 2006

• #14

Re : Liens vers cellules

Toujours pas... 🙁
L'ascenseur est toujours actif.

 

Vote positif 0 Vote négatif

H

Harvey

Guest

• 15 Décembre 2006

• #15

Re : Liens vers cellules

Une idée ?

 

Vote positif 0 Vote négatif