Effacer une partie de texte
m
Bonjour,
Je souhaite effacer une partie du texte dans des cellules.
Actuellement j'ai "Somme de Ventes (Qté)Semaine 22/2016" et je souhaiterais avoir seulement "Ventes S22".
Je ne sais pas comment faire une macro qui ne garde qu'une partie du texte.
Je dois répéter cette macro pour de nombreuses cellules sur de nombreuses feuilles.
Quelqu'un aurait une idée ?
Merci
Bien cordialement
Martin
K
Salut !
Une idée de code à adapter pour le faire pour chaque cellule :
Sub Raccourcir()
Dim Texte As String
Dim Texte2 As String
Dim Texte3 As String
Dim Texte4 As String
Texte = "Somme de Ventes (Qté)Semaine 22/2016"
Texte2 = Mid(Texte, InStrRev(Texte, "V"), InStrRev(Texte, "(") - InStrRev(Texte, "V"))
Texte3 = Mid(Texte, InStrRev(Texte, "S"), 1)
Texte4 = Mid(Texte, InStrRev(Texte, "/") - 2, 2)
MsgBox (Texte2 & Texte3 & Texte4)
End Sub