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

Résolu
alphonse -  
 alphonse -
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 ?
A voir également:

3 réponses

Réponse 1 / 3
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 
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
1
Réponse 2 / 3
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 313
 
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
1
Réponse 3 / 3
alphonse
 
Merci encore à vous 2 pour ces fonctions. Je vais adapter cela. Bonne journée à vous !
0

Discussions similaires

Colis shein terminal fret
Lele -
bazfile -

1 réponse
Barre verticale droite sur clavier
k_lou -
Leuide -

41 réponses
Colis SHEIN Signe à Paris au terminal fret
Sarlaurine -
bazfile -

48 réponses
le signe " | " dans excel
zed -
Utilisateur anonyme -

4 réponses
Barre verticale droite sur clavier mac
oui -
jeanbern -

1 réponse