Aller à 1ère ligne d'une liste par clic sur bouton "lettre"
Résolu
mistouv
Messages postés
36
Date d'inscription
Statut
Membre
Dernière intervention
-
gbinforme Messages postés 14946 Date d'inscription Statut Contributeur Dernière intervention -
gbinforme Messages postés 14946 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour à tous,
J'ai une liste alphabétique de plusieurs centaines de noms, triée en ordre croissant.
Avec 26 boutons portant la lettre de A à Z, je voudrais atteindre le 1er nom de la liste commençant par la lettre du bouton choisi.
Je joins un exemple simplifié.
Ex : en cliquant sur le bouton "B", je veux aller à la 6ème ligne de ma liste (Bernard).
Merci d'avance,
M
J'ai une liste alphabétique de plusieurs centaines de noms, triée en ordre croissant.
Avec 26 boutons portant la lettre de A à Z, je voudrais atteindre le 1er nom de la liste commençant par la lettre du bouton choisi.
Je joins un exemple simplifié.
Ex : en cliquant sur le bouton "B", je veux aller à la 6ème ligne de ma liste (Bernard).
Merci d'avance,
M
A voir également:
- Aller à 1ère ligne d'une liste par clic sur bouton "lettre"
- Liste déroulante excel - Guide
- Aller à la ligne excel - Guide
- Clavier iphone chiffre et lettre - Guide
- Partager photos en ligne - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
5 réponses
Bonsoir,
Je n'arrive pas acceder aux boutons sur ton fichier
mais en mettant un code de ce style (un par bouton en changeant juste le nom de la sub et la referenceà la lettre entr guillemets ligne 4) ça doit fonctionner
Sub A()
For n = 1 To 2000 ' va de la ligne 1 à la ligne 2000
k = Cells(n, 2).Value ' recupere la valeur en ligne n et colonne 2
If Left(k, 1) = "A" Then Cells(n, 1).Select: Exit Sub 'Teste la 1ere lettre du nom et se positionne sur la cellule si correspond
Next
End Sub
Cdlmnt
Je n'arrive pas acceder aux boutons sur ton fichier
mais en mettant un code de ce style (un par bouton en changeant juste le nom de la sub et la referenceà la lettre entr guillemets ligne 4) ça doit fonctionner
Sub A()
For n = 1 To 2000 ' va de la ligne 1 à la ligne 2000
k = Cells(n, 2).Value ' recupere la valeur en ligne n et colonne 2
If Left(k, 1) = "A" Then Cells(n, 1).Select: Exit Sub 'Teste la 1ere lettre du nom et se positionne sur la cellule si correspond
Next
End Sub
Cdlmnt
Bonjour Via55,
Un grand merci à toi pour cette réponse rapide.
Je teste et je reviens vers toi si problème.
A bientôt
Un grand merci à toi pour cette réponse rapide.
Je teste et je reviens vers toi si problème.
A bientôt
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Bonjour Gbinforme,
Ta solution est effectivement sympa, et prend moins de place dans la feuille.
Quant au code, il est moins important, mais j'avais déjà tout fait, avec 26 macros identiques... Dommage.
Je conserve néanmoins ta solution dans mon répertoire d'astuces, pour la prochaine fois.
Merci encore, et bonne fin de journée.
Ta solution est effectivement sympa, et prend moins de place dans la feuille.
Quant au code, il est moins important, mais j'avais déjà tout fait, avec 26 macros identiques... Dommage.
Je conserve néanmoins ta solution dans mon répertoire d'astuces, pour la prochaine fois.
Merci encore, et bonne fin de journée.