couper des cellules selon un caractère de spéparation qu'on a choisi

Question

salut
je voudrais pass&#233; d'une cellule qui contient
c:\windows\system	est.txt
&#224;
test.txt

MERCI d'avance

ps le nb de slash peut vari&#233;

Kangourou_Nomade · Answer

Private Sub GetSimpleName(St1 as String) as String

Dim i as integer
i=len(St1)
GetSimpleName=""
   do
   i=i-1
      if mid$(St1,i,1)="" then 
      GetSimpleName=mid$(St1,i+1)
      goto suite
      end if
   loop until i=1
suite:
   
End Sub
    


Le Rasta fou rien, vous le savez bien

jpleroisse · Answer

Bonjour,
Si tu est sous VBA Excel,

Sub Chaine_Click()
Dim chaine As String, cible
'Range("A1")contient "c:\windows\system	est.txt"
chaine = Range("A1").Value
cible = Right(chaine, Len(chaine) - 18)
Range("A2") = cible
End Sub

jpleroisse

Si une r&#233;ponse te conviens, clique R&#233;ponse Accept&#233;e

maciew · Answer

merci pour ces r&#233;ponses.
Il faudrait que je perde l'habitude de poser un question sans variment me pencher dessus car l'ai trouv&#233; la solution
JPLEROISSE : ton sript ne marche uniquement si le chemin contient le m&#234;me nombre de caract&#232;res.
Moi je voulais faire &#231;a apr&#232;s un "dir /s" par exemple

Pour info le code :

Sub abc()


Dim ctr As String
Dim truncr As String
Dim truncl As String
Dim i As Integer
Dim j As Integer


i = 1
j = 1

While Not Cells(j, 1) = ""
    ctr = Range("A" & j)
    While Not truncl = ""
        truncr = Right(ctr, i)
        truncl = Left(truncr, 1)
        i = i + 1
    Wend
    Range("b" & j) = Right(ctr, i - 2)
    truncl = a
    j = j + 1
    i = 1
Wend



End Sub

A++

PCPT · Answer

salut,
'mPath = "C:\WINDOWS\SYSTEM32\desktop.ini"
mFile = Right(mPath, (Len(mPath) - InStrRev(mPath, "")))
PCPT

jpleroisse · Answer

Bonjour,
>>PCPT, VBA sous Excel ne reconnais pas InStrRev.

jpleroisse

PCPT · Answer

ok (dsl)
PCPT

Couper des cellules selon un caractère de spéparation qu'on a choisi

6 réponses

Discussions similaires