Discussion :

[ImagingAllthe]

Bonjour,
j'ai des cellules du type
tadada 0.0000
totot 10 10.0000
totot-10 10.0000


je souhaiterai determiné le dernier espace dans la cellules et recupéré tout ce qu'il y a, avant
c'est a dire
tadada
totot 10
totot-10

Je ne sais pas quelles fonction utiliser ....
Des idées ?

Merci
ImagingAll

[Godzestla]

Salut,

regarde à http://excel.developpez.com/faq/inde...le#ExtraitMots

[Montor]

OU simplement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
st = Cells(1, 1)
tabs = Split(st, " ")
MsgBox tabs(0)

[ImagingAllthe]

merci,
cela m'a permis d'avancer un peu

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
   Tableau = Split(Range("A21"), " ")
 
    a = UBound(Tableau)
    b = a - 2
 
    For i = 0 To b
         Range("A4").Offset(0, i + 1) = Tableau(i)
    Next

Je récupère les éléments séparés par un espace dans des cases.
Coment je peux faire pour mettre les valeurs de tableau(i) dans un autre string pour pouvoir le réinjecter dans mon fichier excel ?

ImagingAll

[ImagingAllthe]

merci merci
tout fonctionne maintenant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Do While ActiveCell.Offset(0, -2) <> ""
Montab = ""
   Tableau = Split(ActiveCell.Offset(0, 0), " ")
   a = UBound(Tableau)
   b = a - 2
   For i = 0 To b
             Montab = Montab & Tableau(i)
   Next

ImagingAll