Dim i as long ' Supprime la dernière tabulation i = instrrev(Machaine,vbtab) Machaine = left$(machaine,i-1) & "" & right$(machaine,i+1) ' Remplace les autres par un espace Machaine = replace$(machaine,vbtab," ")
machaine = RTrim$(Replace$(Machaine,vbtab," "))
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question