Rapport de message :*
 

Re: Récupération données PMU

Titre du sujet : Re: Récupération données PMU
par Mytå le 25/09/2011 21:59:18

Salut le forum

Utilise une fonction
Function Sans_Parenthese(V As String) As String
Dim I As Byte
Dim Tablo
 
  Tablo = Array("(07)", "(08)", "(09)", "(10)")
     
  For I = 0 To UBound(Tablo)
    V = Replace(V, Tablo(I), "")
  Next I
 
Sans_Parenthese = Application.WorksheetFunction.Trim(V)

End Function

Mytå