Application.GoTo Reference:=ActiveSheet.Range("z1"), Scroll:=True

Evelynetfrancois · 15 Août 2012

Bonjour tout le monde
Une énigme de plus , du moins pour moi.
J’essaye d expliquer …..
j aurais besoin, quand je clic dans la colonne « C »
(If Not Application.Intersect(Target, Range("c8:c100")) Is Nothing Then)

que la colonne Z vienne se positionner contre cette dernière pour obtenir visuellement A C
sans me renvoyer systématiquement en haut de page
j ai essayé avec
(Application.GoTo Reference:=ActiveSheet.Range("z2"), Scroll:=True
ou
Application.GoTo Reference:=ActiveCell.Offset(, 18), Scroll:=True)

mais le scroll me met tout en haut de la feuille , contre les » figer volets »
je souhaite juste attirer la colonne Z
j ai pensé à masquer les colonnes intermédiaires mais je pense qu il y a mieux à faire
Auriez vous une idée,
Merci pour vos sujétions
E et F

pedrag31 · 15 Août 2012

Re : Application.GoTo Reference:=ActiveSheet.Range("z1"), Scroll:=True

Bonjour Evelynetfrancois, Bonjour le forum,

Je te propose d 'essayer ceci pour réactiver ta cellule Z2.
Non testé (mais ça devrait fonctionner... 🙄).

VB:

ActiveSheet.Range("Z2").Activate

'ou 

ActiveSheet.[Z2].Activate

En espérant avoir répondu à ta question...

Bonne journée 🙂

Evelynetfrancois · 15 Août 2012

Re : Application.GoTo Reference:=ActiveSheet.Range("z1"), Scroll:=True

merci pour ta proosition , mais ça ne colle pas !
si je double clics C100 j attire bien la colonne Z mais je me retrouve sur la ligne A
et je voudrais resté sur la ligne 100 ,et juste attirer z100 contre la colonne C
merci pour tout
E et F

Staple1600 · 15 Août 2012

Re : Application.GoTo Reference:=ActiveSheet.Range("z1"), Scroll:=True

Bonjour

j aurais besoin, quand je clic dans la colonne « C »
(If Not Application.Intersect(Target, Range("c8:c100")) Is Nothing Then)

que la colonne Z vienne se positionner contre cette dernière pour obtenir visuellement A C
sans me renvoyer systématiquement en haut de page

Utilises plutôt cet événement dans ce cas

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("c1:c100")) Is Nothing Then
Application.GoTo [Z2], Scroll:=True
End If
End Sub

Staple1600 · 15 Août 2012

Re : Application.GoTo Reference:=ActiveSheet.Range("z1"), Scroll:=True

Re

Si tu veux atteindre en colonne Z , la même ligne qu'en colonne C, alors utilises ceci

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("c1:c100")) Is Nothing Then
Application.GoTo Cells(Target.Row, "Z"), Scroll:=True
End If
End Sub

PS: Avant de tester, inhibes (ou supprimes) la procédure DoubleClick au préalable

Dranreb · 15 Août 2012

Re : Application.GoTo Reference:=ActiveSheet.Range("z1"), Scroll:=True

Bonjour.
Tout simplement ça peut être :

VB:

Private Sub Worksheet_BeforedoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 3 Then ActiveWindow.ScrollColumn = 26
End Sub

Cordialament.

Evelynetfrancois · 15 Août 2012

Re : Application.GoTo Reference:=ActiveSheet.Range("z1"), Scroll:=True

Merci Pedrag31, Staple1600,Dranreb
C’est bien après un double clic dans la colonne C que l’événement doit se produire
et attirer la colonne Z contre elle
Donc la version de dranreb (Tout simplement ça peut être. bin oui ! lol) et très efficace
Je l ai adapté àmon classeur, le résultat est parfait
Un très grand MERCI à vous tous
Et une très bonne journée
E et F

Application.GoTo Reference:=ActiveSheet.Range("z1"), Scroll:=True

Evelynetfrancois

XLDnaute Impliqué

Pièces jointes

pedrag31

XLDnaute Occasionnel

Evelynetfrancois

XLDnaute Impliqué

Staple1600

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

Evelynetfrancois

XLDnaute Impliqué

Discussions similaires

Application.GoTo Reference:=ActiveSheet.Range("z1"), Scroll:=True

Evelynetfrancois

XLDnaute Impliqué

Pièces jointes

pedrag31

XLDnaute Occasionnel

Evelynetfrancois

XLDnaute Impliqué

Staple1600

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

Evelynetfrancois

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency