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+

job75 · 5 Janvier 2022

Bonjour à tous,

patricktoulon à dit:
@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)

Si l'on utilise C3 au lieu de C1 il ne faut pas utiliser EntireColumn mais ceci :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
With [C3] 'à adapter
    If .Value <> "" Then .Resize(Rows.Count - .Row + 1).AutoFilter 1, .Value & "*" Else If FilterMode Then ShowAllData
    If Target.Address = .Address Then .Select
End With
End Sub

A+

patricktoulon · 5 Janvier 2022

re
purée je suis un âne (mais bien sur )
je me suis encore bien levé moi

Aphrodyte · 5 Janvier 2022

Bonjour,
Merci encore à vous tous pour vos messages et votre aide.
Je vais continuer d'utiliser la méthode de @Phil69970 car avec son fichier "Choix lettre V4.xlsm" ça fonctionne maintenant exactement comme je voulais.
Merci du fond du coeur, sans vous et votre super communauté, des tas de gens comme moi seraient vraiment très embêtés. Vous êtes trop forts.......

Aphrodyte · 5 Janvier 2022

@Phil69970 , je t'embête une dernière fois:
Si je ne veux pas que la fenêtre "Problèème" s'ouvre quand aucune ligne ne correspond, je supprime quoi dans le code ?
(en fait si je clique sur la cellule sans mettre aucune lettre par exemple, je préfèrerai que ça n'ouvre pas cette fenêtre, juste que ça ne fasse...... rien !)

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+

Aphrodyte · 5 Janvier 2022

Merci beaucoup à toi aussi @job75 .
Le fichier "Choix lettre V5.xlsm" fait maintenant parfaitement ce que je souhaitais.
J'arrête donc de vous embêter avec mes problèmes.
J'essaye de régler mon dernier tout petit souci toute seule : j'y arrivais , j'y arriverais...

Merci encore et bonne journée.

Phil69970 · 5 Janvier 2022

Re

Désolé mais j'étais absent un petit moment...
Dans cette version j'ai déactivé le message pour répondre à ta demande

Aphrodyte à dit:
je préfèrerai que ça n'ouvre pas cette fenêtre, juste que ça ne fasse...... rien !)

@Phil69970

Aphrodyte · 5 Janvier 2022

Merci merci et merci. Tout le monde est trop gentil sur ce forum.
Ca devient si rare par les temps qui courent...

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

Aphrodyte

XLDnaute Nouveau

job75

job75

XLDnaute Barbatruc

Pièces jointes

patricktoulon

XLDnaute Barbatruc

Aphrodyte

XLDnaute Nouveau

Aphrodyte

XLDnaute Nouveau

job75

XLDnaute Barbatruc

Pièces jointes

Aphrodyte

XLDnaute Nouveau

Phil69970

XLDnaute Barbatruc

Pièces jointes

Aphrodyte

XLDnaute Nouveau

Discussions similaires