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

[Résolu/Fermé]
Signaler
-
 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 ?

3 réponses

Messages postés
10008
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
30 juillet 2021
2 163
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
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 65492 internautes nous ont dit merci ce mois-ci

Messages postés
16491
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
21 juillet 2021
3 200
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
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 65492 internautes nous ont dit merci ce mois-ci

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