OVH Cloud OVH Cloud

tronque

5 réponses
Avatar
Michel
hello,
j'ai des lignes exemples

hdsjdhsj/dhsjdhjs maison
hdjsddhsjdhjsdhjsddhjsdhsjdhjs cheval


résultat

hdsjdhsj/dhsjdhjs
hdjsddhsjdhjsdhjsddhjsdhsjdhjs

je veut dès que le système detecte l'espace qu'il me coupe le reste et
me garde que le début(il à couper depuis cheval jusqua la fin

merci beaucoup


michel

--
Ceci est une signature automatique de MesNews.
Site : http://www.mesnews.net

5 réponses

Avatar
ru-th
Salut

=STXT(A1;1;TROUVE(" ";A11)-1)

a+
rural thierry
"Michel" a écrit dans le message de news:

hello,
j'ai des lignes exemples

hdsjdhsj/dhsjdhjs maison
hdjsddhsjdhjsdhjsddhjsdhsjdhjs cheval


résultat

hdsjdhsj/dhsjdhjs
hdjsddhsjdhjsdhjsddhjsdhsjdhjs

je veut dès que le système detecte l'espace qu'il me coupe le reste et
me garde que le début(il à couper depuis cheval jusqua la fin

merci beaucoup


michel

--
Ceci est une signature automatique de MesNews.
Site : http://www.mesnews.net



Avatar
ru-th
heu
remplace le a11 par a1
désolé
a+
rural thierry
"ru-th" a écrit dans le message de news:

Salut

=STXT(A1;1;TROUVE(" ";A11)-1)

a+
rural thierry
"Michel" a écrit dans le message de news:

hello,
j'ai des lignes exemples

hdsjdhsj/dhsjdhjs maison
hdjsddhsjdhjsdhjsddhjsdhsjdhjs cheval


résultat

hdsjdhsj/dhsjdhjs
hdjsddhsjdhjsdhjsddhjsdhsjdhjs

je veut dès que le système detecte l'espace qu'il me coupe le reste et
me garde que le début(il à couper depuis cheval jusqua la fin

merci beaucoup


michel

--
Ceci est une signature automatique de MesNews.
Site : http://www.mesnews.net







Avatar
ChrisV
Bonjour Michel,

Sub zaza()
Dim c As Range
Application.ScreenUpdating = False
For Each c In Selection
c = Mid(c, 1, Application.Find(" ", c) - 1)
Next c
End Sub


ChrisV


"Michel" a écrit dans le message de news:

hello,
j'ai des lignes exemples

hdsjdhsj/dhsjdhjs maison
hdjsddhsjdhjsdhjsddhjsdhsjdhjs cheval


résultat

hdsjdhsj/dhsjdhjs
hdjsddhsjdhjsdhjsddhjsdhsjdhjs

je veut dès que le système detecte l'espace qu'il me coupe le reste et me
garde que le début(il à couper depuis cheval jusqua la fin

merci beaucoup


michel

--
Ceci est une signature automatique de MesNews.
Site : http://www.mesnews.net



Avatar
Michel
superbe merci beaucoup!!!!!

michel

ru-th vient de nous annoncer :
heu
remplace le a11 par a1
désolé
a+
rural thierry
"ru-th" a écrit dans le message de news:

Salut

=STXT(A1;1;TROUVE(" ";A11)-1)

a+
rural thierry
"Michel" a écrit dans le message de news:

hello,
j'ai des lignes exemples

hdsjdhsj/dhsjdhjs maison
hdjsddhsjdhjsdhjsddhjsdhsjdhjs cheval


résultat

hdsjdhsj/dhsjdhjs
hdjsddhsjdhjsdhjsddhjsdhsjdhjs

je veut dès que le système detecte l'espace qu'il me coupe le reste et
me garde que le début(il à couper depuis cheval jusqua la fin

merci beaucoup


michel

--
Ceci est une signature automatique de MesNews.
Site : http://www.mesnews.net




--
Ceci est une signature automatique de MesNews.
Site : http://www.mesnews.net



Avatar
Michel
yes, je vais tester!!!

merci!!!!


ChrisV a pensé très fort :
Bonjour Michel,

Sub zaza()
Dim c As Range
Application.ScreenUpdating = False
For Each c In Selection
c = Mid(c, 1, Application.Find(" ", c) - 1)
Next c
End Sub


ChrisV


"Michel" a écrit dans le message de news:

hello,
j'ai des lignes exemples

hdsjdhsj/dhsjdhjs maison
hdjsddhsjdhjsdhjsddhjsdhsjdhjs cheval


résultat

hdsjdhsj/dhsjdhjs
hdjsddhsjdhjsdhjsddhjsdhsjdhjs

je veut dès que le système detecte l'espace qu'il me coupe le reste et me
garde que le début(il à couper depuis cheval jusqua la fin

merci beaucoup


michel

-- Ceci est une signature automatique de MesNews.
Site : http://www.mesnews.net




--
Ceci est une signature automatique de MesNews.
Site : http://www.mesnews.net