VBA - Déterminer emplacement du caractère numérique dans le texte d'une cell

[pilote301152]

Bonjour,

Je n'en peux plus de chercher en vain la solution à ce pb ... HELP!

Je voudrais extraire en VBA la partie date d'un texte
ex à partir de A1= "Les Dépenses du 15 novembre au 14 décembre 2010"
comment puis-je obtenir A2= "15 novembre au 14 décembre 2010" ?


Merci beaucoup de votre aide.

 

[BOISGONTIER]

Re : VBA - Déterminer emplacement du caractère numérique dans le texte d'une cell

Bonsoir,

=STXT(A1;EQUIV(VRAI;ESTNUM(CNUM(STXT(A1;LIGNE($1:$255);1)));0);99)
Valider avec maj+ctrl+entrée

  x = "Les Dépenses du 14 novembre au 21 décembre 2010"
  i = 1
  Do While i < Len(x) And Not ok
    If IsNumeric(Mid(x, i, 1)) Then ok = True Else i = i + 1
  Loop
  If ok Then MsgBox Mid(x, i) Else MsgBox "pas de date"

JB

 

[jpb388]

Re : VBA - Déterminer emplacement du caractère numérique dans le texte d'une cell

Bonjour
a1= les dépenses du 15 novembre au 14 décembre 2010

f1=droite(a1;nbcar(a1)-trouve("du";a1)+1)

et tu auras en f1 du 15 novembre au 14 décembre 2010
a+
jpb

 

[JCGL]

Re : VBA - Déterminer emplacement du caractère numérique dans le texte d'une cell

Bonjour à tous,

Plus on est de fous...

Où tu veux si le texte est en A1 :

=STXT(A1;TROUVE("u";A1;1)+2;99)

A+ à tous

 

[pilote301152]

Re : VBA - Déterminer emplacement du caractère numérique dans le texte d'une cell

Merci pour ces 2 réponses
Précisions pour Jbp388: cela ne peut résoudre mon pb car je ne connais pas le texte qui peut se trouver avant les dates !

Je vérifie en revanche la réponse de Bongontier

Merci à vous pour le temps que vous m'avez ici consacré

 

[pilote301152]

Re : VBA - Déterminer emplacement du caractère numérique dans le texte d'une cell

Merci BOISGONTIER ... la boucle est parfaite

je ne connaissais pas l'astuce avec Len pour le balayage

Super l'idée

Bon WE à tous

 

[néné06]

Re : VBA - Déterminer emplacement du caractère numérique dans le texte d'une cell

Bonsoir à tous

Ma petite contribution , si on souhaite rechercher plusieurs cellules.

Amitiés à tous

 

[laetitia90]

Re : VBA - Déterminer emplacement du caractère numérique dans le texte d'une cell

bonjour tous ; autre possibilité!! a tester

Sub es()
 [a2] = Mid([a1], InStr([a1], "du") + 3)
End Sub

 

[BOISGONTIER]

Re : VBA - Déterminer emplacement du caractère numérique dans le texte d'une cell

Bonjour,

@laetitia90

>Précisions pour Jbp388: cela ne peut résoudre mon pb car je ne connais pas le texte qui peut se trouver avant les dates !

JB