Discussion :

[captaine93]

Salut !
Je cherche à enlever des portions de noms...voici des exemples...
Barillon_anti_alldir.xls doit devenir Barillon
campos_pro_alldir.xls doit devenir campos
Le probleme est que le nombre de caractères apres le nom n est pas constant et je ne sais pas trop comment m'y prendre avec les fonctions right et left...
Merci à tous

[deuxmains]

Bonjour captaine93,

peux tu me préciser deux point stp

1 Est ce que systématiquement après ton nom n tu as le caractère "_" ?

2 Tu cherches à renommer quoi exactement ? Le texte d'une cellule, une feuille ou un classeur ?

[Invité]

Bonjour,

Si le nombre de caractères du mot que vous voulez récupérer n'est pas constant, il faut que vous ayez un séparateur précis (au pire quelques-uns).

Dans ce cas vous pouvez utiliser la fonction Split (on suppose que votre texte est contenu dans une cellule) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub Separe()
 Dim text$, Tableau() As String, i!, pl&, dl&, n& 
 
 '1ère ligne contenant vos données (vous pouvez modifier)
pl = 2
 
dl = Range("A65536").End(xlUp).Row
 
For n = pl To dl
    text = Cells(n, 1)
    Tableau = Split(text, "_") 'modifiez si _ n'est pas le séparateur
 
    For i = 0 To UBound(Tableau)
       if i = 0 then
       Cells(n, 2) = Tableau(i)
       End If
    Next i
Next n
 
 
End Sub

[captaine93]

Merci à toi jacques_jean...c'est exactement ce que je cherchais !
En effet "-" était mon séparateur et je cherchais à renommer une cellule...
Merci à vous deux !
Longue vie au forum