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

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 27 Novembre 2010

• #2

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

Code:

  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

 

Dernière édition: 27 Novembre 2010

Vote positif 0 Vote négatif

jpb388

XLDnaute Accro

• 27 Novembre 2010

• #3

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

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 27 Novembre 2010

• #4

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)

Cliquez pour agrandir...

A+ à tous

 

Vote positif 0 Vote négatif

P

pilote301152

XLDnaute Occasionnel

• 27 Novembre 2010

• #5

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é

 

Vote positif 0 Vote négatif

P

pilote301152

XLDnaute Occasionnel

• 27 Novembre 2010

• #6

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

 

Vote positif 0 Vote négatif

néné06

XLDnaute Accro

• 27 Novembre 2010

• #7

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

 

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 28 Novembre 2010

• #8

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

bonjour tous ; autre possibilité!! a tester

Code:

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

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 28 Novembre 2010

• #9

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

 

Vote positif 0 Vote négatif