Index Alphabétique Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Répondre
N
Nat2446
Nouveau venu
Nouveau venu
Messages : 3
Inscrit le : 11 novembre 2015
Version d'Excel : 2013 FR

Message par Nat2446 » 11 novembre 2015, 19:00

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.

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
Avatar du membre
Raja
Passionné d'Excel
Passionné d'Excel
Messages : 5'190
Appréciations reçues : 14
Inscrit le : 3 février 2008
Version d'Excel : 2010 à 2016 FR et 2010 EN

Message par Raja » 11 novembre 2015, 19:03

Bonsoir,
Peux-tu nous joindre ton fichier ou un exemple de fichier ?
Cdlt,
Raja
N
Nat2446
Nouveau venu
Nouveau venu
Messages : 3
Inscrit le : 11 novembre 2015
Version d'Excel : 2013 FR

Message par Nat2446 » 11 novembre 2015, 19:10

Bonsoir Raja,

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

Merci
Jeux2.xlsx
(27.48 Kio) Téléchargé 52 fois
Avatar du membre
Raja
Passionné d'Excel
Passionné d'Excel
Messages : 5'190
Appréciations reçues : 14
Inscrit le : 3 février 2008
Version d'Excel : 2010 à 2016 FR et 2010 EN

Message par Raja » 11 novembre 2015, 19:46

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é.
Copy of Jeux2.xlsm
(35.43 Kio) Téléchargé 69 fois
Modifié en dernier par Raja le 11 novembre 2015, 20:18, modifié 1 fois.
Cdlt,
Raja
t
tulipe_4
Passionné d'Excel
Passionné d'Excel
Messages : 8'789
Appréciations reçues : 262
Inscrit le : 1 janvier 2011
Version d'Excel : 2000 2007

Message par tulipe_4 » 11 novembre 2015, 20:05

bonsoir ,bonsoir Raja
un essai de selection "intuitive " sans vba (pour les privés de )
nat2446.xlsx
(27.9 Kio) Téléchargé 72 fois
cordialement
c'est en cherchant qu'on trouve
N
Nat2446
Nouveau venu
Nouveau venu
Messages : 3
Inscrit le : 11 novembre 2015
Version d'Excel : 2013 FR

Message par Nat2446 » 11 novembre 2015, 20:17

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
Avatar du membre
Raja
Passionné d'Excel
Passionné d'Excel
Messages : 5'190
Appréciations reçues : 14
Inscrit le : 3 février 2008
Version d'Excel : 2010 à 2016 FR et 2010 EN

Message par Raja » 11 novembre 2015, 20:20

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.
Cdlt,
Raja
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message