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

Aphrodyte · 4 Janvier 2022

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.

job75 · 5 Janvier 2022

@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+

sylvanu · 4 Janvier 2022

Bonjour Aphrodyte,

Aphrodyte à dit:
ça serait génial.

Ce qui serait génial serait d'avoir un petit fichier test représentatif.
Ce serait plus simple pour trouver une solution.

Phil69970 · 4 Janvier 2022

Bonjour @Aphrodyte , Sylvain

Si j'ai bien compris

VB:

Sub LigneText()
[A1].Select
For i = 3 To Range("C" & Rows.Count).End(xlUp).Row
    If Not IsNumeric(Left(Cells(i, 3), 1)) Then Cells(i, 3).Select: Exit Sub
Next i
End Sub

*Merci de ton retour

@Phil69970

Phil69970 · 4 Janvier 2022

Re

En relisant la demande je verrais plutôt ceci :
Tu choisis ta lettre en C1

*Merci de ton retour

@Phil69970

Phil69970 · 4 Janvier 2022

Re

Aphrodyte à dit:
- 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.

Et en version tout automatique....

*Merci de ton retour

@Phil69970

mapomme · 4 Janvier 2022

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.

fanch55 · 4 Janvier 2022

Bonjour à tous,
Sinon une solution rapide est d'utiliser la recherche native d'Excel :
( merci à @mapomme pour son fichier .... )

job75 · 4 Janvier 2022

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+

Phil69970 · 4 Janvier 2022

Re

Malgré plusieurs propositions ..... et des connections après chacune de nos propositions, je crois bien que Aphrodite, déesse grecque de l'amour, du désir et de la beauté aime se faire ... désirée

Phil69970 à dit:
*Merci de ton retour

@Phil69970

Aphrodyte · 4 Janvier 2022

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:

Phil69970 à dit:
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.

Phil69970 · 4 Janvier 2022

Re

Voici le fichier modifié

Aphrodyte à dit:
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

Aphrodyte · 4 Janvier 2022

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...).

Phil69970 · 4 Janvier 2022

Re

Essaye avec cette version c'est la même j'ai juste supprimé cette ligne

'Application.ScreenUpdating = False

*Merci de ton retour

@Phil69970

job75 · 4 Janvier 2022

Avec le filtre du post #8 toutes les lignes concernées sont regroupées en haut de la feuille.

patricktoulon · 5 Janvier 2022

re
bonjour
@job75
sur le fichier de la demoiselle ton truc ne fonctionne pas ,je n'ai pas d'explication car ça devrait j'ai pourtant adapté(C1/C3)

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

Aphrodyte

XLDnaute Nouveau

job75

sylvanu

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

Pièces jointes

Phil69970

XLDnaute Barbatruc

Pièces jointes

mapomme

XLDnaute Barbatruc

Pièces jointes

fanch55

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Pièces jointes

Phil69970

XLDnaute Barbatruc

Aphrodyte

XLDnaute Nouveau

Pièces jointes

Phil69970

XLDnaute Barbatruc

Pièces jointes

Aphrodyte

XLDnaute Nouveau

Phil69970

XLDnaute Barbatruc

Pièces jointes

job75

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Discussions similaires