Rechercher une cellule dont le contenu commence par X
17 réponses
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
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
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
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
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
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" <alainPFFFvallon@wanadoo.fr> a écrit dans le message de
news:OOMRBY4gFHA.272@TK2MSFTNGP15.phx.gbl...
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
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
Merci du suivi Alain !
(c'est bon... je peux poursuivre ma sieste !)
ChrisV
"AV" <alainPFFFvallon@wanadoo.fr> a écrit dans le message de news:
%23RyJba4gFHA.3164@TK2MSFTNGP15.phx.gbl...
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
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
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
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" <alainPFFFvallon@wanadoo.fr> a écrit dans le message de
news:%23RyJba4gFHA.3164@TK2MSFTNGP15.phx.gbl...
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
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
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
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" <mbondilette@club-internet.fr> a écrit dans le message de
news:O3P3TE7gFHA.3448@TK2MSFTNGP12.phx.gbl...
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" <alainPFFFvallon@wanadoo.fr> a écrit dans le message de
news:%23RyJba4gFHA.3164@TK2MSFTNGP15.phx.gbl...
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
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