OVH Cloud OVH Cloud

Rechercher une cellule dont le contenu commence par X

17 réponses
Avatar
Michèle
Bonsoir à tous,

Soit une liste dans excel d'environ 2000 lignes, triées par ordre
alphabétique.
Comment accéder rapidement à la 1ère cellule commençant par la lettre "N"
(par exemple) ?
ça me paraît simple, mais je bloque !!!!
Il m'arrive même de débloquer !
Jean-Paul t'as pas une petite recette pour moi ????????
Bonne soirée

Michèle

7 réponses

1 2
Avatar
AV
"caratère(s) rechérché(s)"


Pfff... il y a du laisser-aller !

AV

Avatar
AV
ChrisV dort (épuisé par sa joute oratoire avec jps) ...

Sub zz_Cherch()
On Error Resume Next
x = InputBox("Saisissez le(s) premier(s) " _
& "caractère(s) recherché(s) ", "Va chercher...")
If x = "" Then Exit Sub
indX = Application.Match(x & "*", [plg], 0)
[plg].Item(indX).Select
If Err.Number <> 0 Then MsgBox "Pas trouvé !"
End Sub

PS : la plage de recherche est nommée "plg"

AV
Avatar
jps
heu....je n'ai jamais fait qu'un copier-coller de la proc au catalan..qui
parle donc le français comme un basque l'espagnol
jps

"AV" a écrit dans le message de
news:
"caratère(s) rechérché(s)"


Pfff... il y a du laisser-aller !

AV





Avatar
ChrisV
C'était pour voir si tu suivais...

Mais remontant de la cave...
tu as des excuses !
;-)


ChrisV


"jps" a écrit dans le message de news:
%
heu....je n'ai jamais fait qu'un copier-coller de la proc au catalan..qui
parle donc le français comme un basque l'espagnol
jps


Avatar
ChrisV
Merci du suivi Alain !
(c'est bon... je peux poursuivre ma sieste !)


ChrisV


"AV" a écrit dans le message de news:
%
ChrisV dort (épuisé par sa joute oratoire avec jps) ...

Sub zz_Cherch()
On Error Resume Next
x = InputBox("Saisissez le(s) premier(s) " _
& "caractère(s) recherché(s) ", "Va chercher...")
If x = "" Then Exit Sub
indX = Application.Match(x & "*", [plg], 0)
[plg].Item(indX).Select
If Err.Number <> 0 Then MsgBox "Pas trouvé !"
End Sub

PS : la plage de recherche est nommée "plg"

AV





Avatar
Michele
Bonjour,

Entre mon oeuf dur et ma tomate, je viens de faire l'essai :
J'te l'donne en mille : C A M A R C H E !!!!!!!!!!
Un grand, gros, immense merci
Aller, j'te fais la bise
et bonne journée à tous

Michèle

"AV" a écrit dans le message de
news:%
ChrisV dort (épuisé par sa joute oratoire avec jps) ...

Sub zz_Cherch()
On Error Resume Next
x = InputBox("Saisissez le(s) premier(s) " _
& "caractère(s) recherché(s) ", "Va chercher...")
If x = "" Then Exit Sub
indX = Application.Match(x & "*", [plg], 0)
[plg].Item(indX).Select
If Err.Number <> 0 Then MsgBox "Pas trouvé !"
End Sub

PS : la plage de recherche est nommée "plg"

AV





Avatar
jps
même au niveau du casse-croûte, c'est assez exceptionnel pour que cela
mérite des majuscules...
michèle, tu as eu de la chance, TOI
jps

"Michele" a écrit dans le message de
news:
Bonjour,

Entre mon oeuf dur et ma tomate, je viens de faire l'essai :
J'te l'donne en mille : C A M A R C H E !!!!!!!!!!
Un grand, gros, immense merci
Aller, j'te fais la bise
et bonne journée à tous

Michèle

"AV" a écrit dans le message de
news:%
ChrisV dort (épuisé par sa joute oratoire avec jps) ...

Sub zz_Cherch()
On Error Resume Next
x = InputBox("Saisissez le(s) premier(s) " _
& "caractère(s) recherché(s) ", "Va chercher...")
If x = "" Then Exit Sub
indX = Application.Match(x & "*", [plg], 0)
[plg].Item(indX).Select
If Err.Number <> 0 Then MsgBox "Pas trouvé !"
End Sub

PS : la plage de recherche est nommée "plg"

AV









1 2