[VB] Récupérer données de droite... Résolu/Fermé

Question

Bonjour, 

Alors je dois relever des dates...
dans des milliers de chaines complêtement différentes tels que :

" Toto 01/07"
" Toto = 04/2008"
" blala 02/10/2004"
" blablala => 1/02/1997"
" Bla ! / 1/3/2003"
"04/10/2003"

Je veux récupérer toutes les dates ...
donc je cherche à récupérer les données de Droite en m'arretant au premier espace. 
 TFIN = Right(Sheets("test").Cells(compteur, 3).Value, __ )

__ = Nombre de caractères jusqu'au premier espace...

Quelqu'un saurait faire ça ?

ccm81 · Answer

bonjour  
instrRev   
Renvoie la position d'une occurrence d'une chaîne dans une autre, à partir de la fin de la chaîne  devrait faire l'affaire  

exemple 

  s = Range("A2").Value 
  p = InStrRev(s, " ") 
  Range("B2").Value = Right(s, Len(s) - p + 1)

bonne suite

michel_m · Answer

Bonjour

merci de préciser VBA plutôt que VB dans ton titre
 With Sheets("test")
 For compteur = 2 To 10
    tablo = Split(.Cells(compteur, 3), " ")
    Tfin = tablo(UBound(tablo))
 Next
 End With

indifférent aux textes et espaces avant la date en fin de cellule

à adapter

alphonse · Answer

Merci encore à vous 2 pour ces fonctions. Je vais adapter cela. Bonne journée à vous !

[VB] Récupérer données de droite...

3 réponses

Discussions similaires