Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2010 comment se positionner directement sur une ligne commençant par une lettre

Aphrodyte

XLDnaute Nouveau
Bonjour,
Voilà, je suis perdue avec un tableau comportant des milliers de lignes.
Je dois faire défiler tout mon tableau pour trouver des lignes recherchées, et c'est très long.
Je voudrais juste pouvoir me positionner directement sur la 1ère ligne du tableau "commençant par une lettre donnée", je gagnerai un temps fou (sans avoir à cliquer sur pleins d'onglets ou de boutons) !
Je voudrais exactement faire ceci:
- Ouvrir mon tableau.
- Taper juste une lettre (qui correspond à la 1ère lettre des cellules de la colonne C (à partir de la ligne 3).
- Et directement, mon tableau se positionnerait sur la 1ère ligne correspondante.

Ca doit vous paraître hyper simple à vous tous, mais moi je galère et je n'y arrive pas.
Si quelqu'un pouvait m'aider, ça serait génial.

Merci d'avance et bonne journée.
 
Solution
@Phil69970 pourquoi utiliser une boucle sur des cellules, ça prend beaucoup de temps sur un grand tableau.

Avec la fonction Match (EQUIV) l'exécution est immédiate :
VB:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Variant
With Range("C3")
    If Application.Intersect(Target, .Cells) Is Nothing Or Target(1) = "" Then Exit Sub
    i = Application.Match(.Value & "*", .Cells(2).Resize(Rows.Count - .Row), 0)
    If IsError(i) Then MsgBox "Aucune ligne ne correspond", vbCritical, "Problèeme !" Else .Cells(i + 1).Select
End With
End Sub
A+

mapomme

XLDnaute Barbatruc
Supporter XLD
Bonjour à tous,

Ma version . Double-cliquez sur une cellule de la colonne C.

  • Quand on double-clique sur une cellule de la colonne C, on sélectionne la prochaine cellule dont le contenu commence par le contenue de la cellule C1.
  • Si il n'y a plus de telle cellule, on retourne à C1.
 

Pièces jointes

  • Aphrodyte- vers la ceuule suivante- v1.xlsm
    23.3 KB · Affichages: 13
Dernière édition:

job75

XLDnaute Barbatruc
Bonsoir à tous,

Pensez aussi au filtre automatique :
VB:
Private Sub Worksheet_Change(ByVal Target As Range)
With [C1] 'à adapter
    If .Value <> "" Then .EntireColumn.AutoFilter 1, .Value & "*" Else If FilterMode Then ShowAllData
    If Target.Address = .Address Then .Select
End With
End Sub
A+
 

Pièces jointes

  • Filtre(1).xlsm
    21.2 KB · Affichages: 10

Aphrodyte

XLDnaute Nouveau
Bonsoir à tous,
Merci infiniment pour toutes vos réponses.
Et désolée pour le retard de réponse, mais j'ai dû m'absenter quelques heures.
J'ai trouvé exactement ce que je cherchais parmi vos réponses, à savoir:
Et en version tout automatique....

*Merci de ton retour

@Phil69970

J'ai essayé de transposer le fichier "Choix lettre V2.xlsm" dans mon tableau, mais comme je suis une vraie buse, ça ne fonctionne pas !!!

Ci-joint le modèle exact de mon fichier avec la cellule C3 dans laquelle j'ai essayé d'insérer le même code, mais sans succès.

Si @Phil69970 peut me le corriger et m'expliquer pourquoi ça ne fonctionne pas.
(j'ai oublié aussi de préciser qu'il faudrait que ça fonctionne, que la lettre soit en minuscule ou en majuscule).

Merci à tous car les autres fichiers m'ont donné d'autres pistes pour d'autres tableaux.
 

Pièces jointes

  • Classeur test.xls
    45.5 KB · Affichages: 12
Dernière édition:

Phil69970

XLDnaute Barbatruc
Re

Voici le fichier modifié

Si @Phil69970 peut me le corriger et m'expliquer pourquoi ça ne fonctionne pas.
(j'ai oublié aussi de préciser qu'il faudrait que ça fonctionne, que la lettre soit en minuscule ou en majuscule).

Mon fichier de départ fait référence à la cellule C1 alors que ta cellule de référence est en C3 j'ai donc ajusté en C3 de partout.
Et pour les majuscules/Minuscule j'ai mis :
Option Compare Text
Comme cela on peut mettre indifféremment c ou C par exemple

*Merci de ton retour

@Phil69970
 

Pièces jointes

  • Choix lettre V3.xlsm
    20.9 KB · Affichages: 9

Aphrodyte

XLDnaute Nouveau
Merci beaucoup @Phil69970 .
J'ai compris, et appliqué à mon tableau sans problème.
Il reste néanmoins un problème que je ne m'explique pas.
Tout fonctionne bien maintenant, et le choix de la lettre sélectionne bien la 1ère ligne commençant par cette lettre, comme je le souhaitais.
Mais l'affichage de mon tableau ne change pas, et même si la bonne ligne est maintenant sélectionnée, mon tableau ne se positionne pas sur cette ligne, il reste affiché tout en haut.
Il faut quand même que je fasse défiler tout mon tableau pour arriver à la ligne.
(je ne sais pas si je m'explique bien...).
 
Dernière édition:

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…