Se positionner sur une cellule

[zeltron24]

Bonsoir le Forum,

En recherchant sur le forum une solution à mon problème, je n'ai pas trouver ce que je recherche.
Voila, dans une liste de noms (environ 500) je désire grace à une liste déroulante comprenant les 26 lettres de l'alphabet me positionner sur le premier Nom correspondant à celle sélectionnée dans ma liste déroulante.

Un fichier joint vous aidera.
D'avance merci pour votre aide.
zeltron24

 

[Guest]

Re : Se positionner sur une cellule

Bonsoir,

Dans le module de code de la feuille:

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+

 

[zeltron24]

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+

 

[Guest]

Re : Se positionner sur une cellule

Re,

au lieu de la dernière cellule visible?
😕

Si j'ai bien compris:

Remplacer

Application.Goto Range("A" & t)

Par

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

A+

 

[zeltron24]

Re : Se positionner sur une cellule

Re,

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