Index Alphabétique

Bonjour à tou(te)s,

J'ai créer sur Excel une longue liste de recettes (1230 lignes). Elles sont triées par ordre alphabétique.

Je souhaiterais créer un index alphbétique, afin de me rendre directement à la lettre voulue en cliquant la 1ère lettre de mon index.

[u]Exemple[/u ]: mon index représenterait tout l'alphabet. Il suffirait que je clic sur la lettre "P" et cela me renverrait au début de ma liste de recettes qui commence par "P".

Est-ce que quelqu'un a une astuce ?

Merci

Très bonne soirée

Bonsoir,

Peux-tu nous joindre ton fichier ou un exemple de fichier ?

Bonsoir Raja,

Je vous joins un autre fichier plus petit sur lequel je souhaiterais faire la même chose ...

Merci

52jeux2.xlsx (27.48 Ko)

Bonsoir,

Le code suivant est dans le module de la feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
    If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
    derLig = Range("A" & Rows.Count).End(xlUp).Row
    On Error Resume Next
    If Not Application.Intersect(Target, Range("A1")) Is Nothing Then
        ActiveSheet.Range("$A$3:$A" & derLig).AutoFilter Field:=1, Criteria1:=Target & "*", Operator:=xlAnd
        Range("A3:A" & derLig).SpecialCells(xlVisible).Cells(1, 1).Select
    End If
End Sub

Je te retourne ton fichier modifié.

69copy-of-jeux2.xlsm (35.43 Ko)

bonsoir ,bonsoir Raja

un essai de selection "intuitive " sans vba (pour les privés de )

72nat2446.xlsx (27.90 Ko)

cordialement

Re,

C'est bluffant !!

Merci vraiment beaucoup.

C'est du VBA si je comprends bien. Je n'en ai jamais fait. Je n'ai aucune idée de comment cela fonctionne ...

En tout cas merci merci merci

Très bonne soirée

Re, Bonsoir tulipe_4,

Récupére à nouveau le fichier dans mon message précédent, car j'ai deboggué une erreur de traitement. Oui, c'est du VBA. Mais j'ai mis le code qui manipule le filtrage automatique.

Rechercher des sujets similaires à "index alphabetique"