Comment cliquer sur une lettre de l’alphabet pour accéder directement à la première cellule dont le contenu commence par cette lettre dans Excel ?
Lorsque vous travaillez avec une feuille de calcul Excel contenant un grand volume de données, savez-vous comment accéder rapidement à certaines cellules ou les repérer lorsqu’elles contiennent un contenu spécifique ? Grâce à la méthode présentée dans cet article, il vous suffit de cliquer sur une cellule contenant une lettre de l’alphabet pour être redirigé automatiquement vers la première cellule dont le contenu commence par cette même lettre.
Cliquer sur une lettre de l’alphabet pour accéder à la cellule dont le contenu commence par cette lettre à l’aide d’un code VBA
Procédez comme suit pour accéder à une cellule en cliquant sur une cellule contenant une lettre de l’alphabet dans Excel.
1. Dans la feuille de calcul, si vous souhaitez accéder à une cellule en cliquant sur une cellule contenant une lettre de l’alphabet, cliquez avec le bouton droit sur l’onglet de la feuille, puis sélectionnez Afficher le code dans le menu contextuel. Voir la capture d’écran :
2. Une fenêtre Microsoft Visual Basic pour Applications s’ouvre alors ; veuillez copier et coller le code VBA ci-dessous dans la fenêtre de code.
Code VBA : Cliquer sur une lettre de l’alphabet pour accéder à la cellule dont le contenu commence par cette lettre
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim xRg As Range
Dim xCell As Range
Dim xRgRtn As Range
On Error Resume Next
Application.EnableEvents = False
If Not Intersect(Target, Range("1:1")) Is Nothing Then
Set xRg = ActiveSheet.UsedRange
Set xRg = xRg(1).Offset(1, 0).Resize(xRg.Rows.Count, xRg.Columns.Count)
For Each xCell In xRg
If Left(xCell.Value, 1) = Target.Value Then
If xRgRtn Is Nothing Then
Set xRgRtn = xCell
Else
Set xRgRtn = Application.Union(xRgRtn, xCell)
End If
End If
Next
If xRgRtn.Address = Target.Address Then
MsgBox "No matched cell found", , "KuTools For Excel"
Else
xRgRtn.Select
End If
End If
Application.EnableEvents = True
End SubRemarque : Dans ce code, 1:1 indique que les lettres de l’alphabet se trouvent sur la première ligne de la feuille de calcul.
3. Appuyez simultanément sur les touches Alt + Q pour fermer la fenêtre Microsoft Visual Basic pour Applications.
Désormais, un simple clic sur une cellule contenant une lettre de l’alphabet sélectionne automatiquement, dans la feuille de calcul, toutes les cellules dont le contenu commence par cette même lettre.
Si aucune cellule ne commence par la lettre sélectionnée, une boîte de dialogue de Kutools pour Excel s’affiche, comme le montre la capture d’écran ci-dessous.
Meilleurs outils de productivité Office
Boostez vos compétences Excel avec Kutools pour Excel et découvrez une efficacité inégalée.Kutools pour Excel propose plus de 300 fonctionnalités avancées pour améliorer votre productivité et Gagner du temps.Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et rend votre travail bien plus facile
- Activez l’édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de 50 % et vous fait économiser des centaines de clics de souris chaque jour !
Tous les compléments Kutools. Un seul installateur
Kutools for Office regroupe les compléments pour Excel, Word, Outlook et PowerPoint, ainsi que Office Tab Pro, ce qui en fait le choix idéal pour les équipes travaillant à travers les applications Office.
- Suite tout-en-un— Compléments Excel, Word, Outlook et PowerPoint + Office Tab Pro
- Un seul installateur, une seule licence— installation en quelques minutes (compatible MSI)
- Fonctionne mieux ensemble— productivité optimisée dans toutes les applications Office
- Essai gratuit de 30 jours avec toutes les fonctionnalités— aucune inscription, aucune carte bancaire
- Meilleur rapport qualité-prix— économisez par rapport à l’achat de compléments individuels