Discussion :

[LaTOPE]

Bonjour a tous

J'ai une colonne de cellule rempli comme ci-dessous

Service 1 / Atelier 1 / Outil 2
Service 3 / Personnel 2 / Toto 3

J'aimerais extraire tous les caractères par VBA en commencant de la droite et m'arreter au premier slash de sorte que chaque cellule ait
Outil 2
Toto 3
Comme vous l'avez compris le nombre de caractère peut varier

J'ai le code suivant

Code :

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

1
2
for numligne=2 to 896 
feuille.cells(numligne,numcol)=Right(feuille.Cells(numligne,numcol),8)

Merci de votre aide !

[joe.levrai]

Bonjour,

tu peux utiliser la fonction Split, qui va découper ta chaine en autant de portions que de présence d'un séparateur défini

ici, tu peux utiliser le séparateur " / " (avec les espaces)

tu obtiens un tableau contenant tes éléments séparés, il suffit ensuite de récupérer le dernier élément du tableau
Attention, Split crée autoritairement un tableau de base 0

exemple de compréhension

Code :

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

1
2
3
4
5
6
Sub Decouper()
Dim MaChaine As String, MesMorceaux
MaChaine = "Service 1 / Atelier 1 / Outil 2"
MesMorceaux = Split(MaChaine, " / ")
MsgBox MesMorceaux(UBound(MesMorceaux))  ' renvoi "Outil 2"
End Sub

[LaTOPE]

J'ai essayé split a la place de right , il prend le premier morceau en partant de la gauche

Je voudrais la partie droite et qui s'arrête au premier / en partant de la droite et qui laisse la chaine dans la cellule.
J'ai 900 ligne a renommer qui sont de cette forme

Service 1 / Atelier 1 / Outil 2
Service 3 / Personnel 2 / Toto 3

[a_diard]

J'ai essayé comme ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Function extraire_partiel(texto As String) As String
    separe = Split(texto, "/")
    extraire_partiel = Right(separe(2), Len(separe(2)) - InStr(separe(2), " "))
End Function
 
 
Sub test()
numcol = 1
For numligne = 2 To 23
Cells(numligne, numcol) = extraire_partiel(Cells(numligne, numcol))
Next
End Sub

[joe.levrai]

Mon exemple extrait bien la dernière portion de la chaine ... c'est à dire la première portion en partant de la droite

as-tu essayé mon exemple ?

[Menhir]

Si tu ne veux récupérer que la dernière donnée :

Code :

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

1
2
St = feuille.cells(numligne,numcol).Text
feuille.cells(numligne,numcol).Value = Right(St, Len(St) - InStrRev(St, "/") - 1)

J'ai essayé split a la place de right , il prend le premier morceau en partant de la gauche

Il ne faut pas seulement utiliser Split.
Il faut aussi mettre le résultat dans une variable vecteur et utiliser UBound pour sélectionner la dernière valeur de ce vecteur.
Bien lire et comprendre le code qui t'a été donné par joe.levrai.

[LaTOPE]

joe.levrai

J'ai essayé ton exemple, ca ne marche pas
j'ai 896 ligne a renommer ( il faut que je récupère la partie a droite au dernier /)
il faudrait faire une boucle for
mais je ne vois pas comment faire après pour passer a la ligne suivante et la renommer par sa partie a droite après le dernier /

[Menhir]

J'ai essayé ton exemple, ca ne marche pas

Peux-tu présenter le code avec lequel tu as essayé pour qu'on puisse déterminé où tu as fait une erreur ?

il faudrait faire une boucle for

Etant donné qu'il y a une boucle For To dans le code de ta demande, il semblait implicite que tu savais comment faire ça.

mais je ne vois pas comment faire après pour passer a la ligne suivante et la renommer par sa partie a droite après le dernier /

Comme tu l'as fait dans le code de ta demande : en utilisant comme numéro de ligne la variable incrémentée par la boucle For To.

[LaTOPE]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub renommer()
Dim feuille as worksheet
Dim numligne as integer
Dim numcol as integer
 
Set feuille=Worksheets("Feuil2")
 
 
St = feuille.cells(numligne,numcol).Text
for numligne=2 to 896 
feuille.cells(numligne,3)=Right(feuille.Cells(numligne,3),8)
feuille.cells(numligne,3).Value = Right(St, Len(St) - InStrRev(St, "/") - 1)
next ligne
End sub