I
IFFIC
Guest
Je pense que mon Ordi a pris la main.
Alors, si cela ne passe; à Deux mains.
8, 75 ko !! cela devrait paser. Non?
Alors, si cela ne passe; à Deux mains.
8, 75 ko !! cela devrait paser. Non?
Sub Bouton2_QuandClic()
Dim tablo As Variant
Dim i As Byte
Dim t As String
tablo = Split(Range('a1'), '\\')
For i = 0 To UBound(tablo) - 1
Select Case i
Case 0: t = tablo(i)
Case Is = UBound(tablo) - 1: t = t & '\\[' & tablo(i) & ']'
Case Else: t = t & '\\' & tablo(i)
End Select
Next i
Range('a2') = t
End Sub
Pour faire un InStr() inversé, on peut utiliser InStrRev() depuis la version d'Excel 2000 je crois...Sub Traitement()
Dim Chaine As String
Dim Pos As Byte
With Sheets('CHERCHE')
Chaine = .Range('A1').Value
Pos = InStrRev(Chaine, '\')
Chaine = Left(Chaine, Pos - 1)
Pos = InStrRev(Chaine, '\')
Chaine = Left(Chaine, Pos) & '[' & Mid(Chaine, Pos + 1) & ']'
.Range('A2') = Chaine
End With
End Sub
tablo = Split(Range('a1'), '\\')
Case Is = UBound(tablo) - 1: t = t & '\\[' & tablo(i) & ']'
Case Else: t = t & '\\' & tablo(i)