Se positionner sur une cellule

G

Guest

Guest

• 10 Novembre 2010

• #2

Re : Se positionner sur une cellule

Bonsoir,

Dans le module de code de la feuille:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address = "$H$16" Then
    If Target <> "" Then
        Dim t: t = Application.Match(Target & "*", Range("A:A"), 0)
        If Not IsError(t) Then Application.Goto Range("A" & t)
    End If
End If
End Sub

A+

 

Vote positif 0 Vote négatif

zeltron24

XLDnaute Impliqué

• 10 Novembre 2010

• #3

Re : Se positionner sur une cellule

Bonsoir Hasco,
C'est super merci beaucoup.
Puis je me permettre un petit plus, serait il possible de positionner la cellule en haut de la feuille au lieu de la dernière cellule visible?
Encore merci
A+

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 10 Novembre 2010

• #4

Re : Se positionner sur une cellule

Re,

au lieu de la dernière cellule visible?
😕

Cliquez pour agrandir...

Si j'ai bien compris:

Remplacer

Code:

Application.Goto Range("A" & t)

Par

Code:

Application.Goto Range("A" & t), True

A+

 

Vote positif 0 Vote négatif

zeltron24

XLDnaute Impliqué

• 10 Novembre 2010

• #5

Re : Se positionner sur une cellule

Re,

Mille merci c'est exactement cela.
Bonne soirée
A+

 

Vote positif 0 Vote négatif