Aller à 1ère ligne d'une liste par clic sur bouton "lettre"
Résolu/Fermé
mistouv
Messages postés
32
Date d'inscription
mercredi 29 octobre 2008
Statut
Membre
Dernière intervention
25 juin 2018
-
11 févr. 2013 à 23:52
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 - 13 févr. 2013 à 11:49
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 - 13 févr. 2013 à 11:49
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
- Hors ligne instagram - Guide
- Vente en ligne particulier - Guide
- En ligne sur messenger alors que non ✓ - Forum Facebook
5 réponses
mistouv
Messages postés
32
Date d'inscription
mercredi 29 octobre 2008
Statut
Membre
Dernière intervention
25 juin 2018
12 févr. 2013 à 00:01
12 févr. 2013 à 00:01
Avec le fichier, ce sera mieux...
https://www.cjoint.com/?0Blx7b2Lyis
https://www.cjoint.com/?0Blx7b2Lyis
via55
Messages postés
14402
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
18 avril 2024
2 702
12 févr. 2013 à 00:57
12 févr. 2013 à 00:57
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
mistouv
Messages postés
32
Date d'inscription
mercredi 29 octobre 2008
Statut
Membre
Dernière intervention
25 juin 2018
12 févr. 2013 à 08:47
12 févr. 2013 à 08:47
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
gbinforme
Messages postés
14946
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 684
12 févr. 2013 à 09:04
12 févr. 2013 à 09:04
Bonjour,
Une autre possibilité avec une liste déroulante :
https://www.cjoint.com/?CBmjdBDtvYf
Une autre possibilité avec une liste déroulante :
https://www.cjoint.com/?CBmjdBDtvYf
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
mistouv
Messages postés
32
Date d'inscription
mercredi 29 octobre 2008
Statut
Membre
Dernière intervention
25 juin 2018
12 févr. 2013 à 11:02
12 févr. 2013 à 11:02
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.
gbinforme
Messages postés
14946
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 684
13 févr. 2013 à 11:49
13 févr. 2013 à 11:49
Merci de ton retour et tu as bien compris la simplicité qui évite les duplications, sources d'anomalies éventuelles et d'augmentation de taille du classeur.