[VBA-E]séparateur de texte dans une cellule

Bonjour à tous,


Je n'arrive pas à me dépétrer de ce problème VBA sur EXCEL :

Dans ma colonne A, mes cellules contiennent le texte suivant :

10256-002
25-002
6-002
25982-002
etc

bref je voudrais n'extraire que la partie avant le "-", seulement cette partie de texte avant le "-" n'a pas le même nombre de caractère.

le résultat voulu est donc en colonne B :

10256
25
6
25982

Merci de votre aide.

Bonne journée à tous.

Salut desdenova!
Et bienvenue sur ce forum!
Bon, comme viens d'arriver, je répond, mais ce problème n'est vraiment pas dur. Je te conseille de lire les tutoriels et les cours de VB(A) sur ce site, avant de commencer à programmer, car sinon, tu n'arriveras à rien.
Allez, un truc qui doit ressembler à ce que tu veux faire:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub LaFin() Dim DerniereLigne As Integer Dim PositionTiret As Integer Dim Contenu As String Dim Adroite As String DerniereLigne = Cells(65535, 1).End(xlUp).Row For i = 1 To DerniereLigne Contenu = Cells(i, 1).Value PositionTiret = InStr(Contenu, "-") If PositionTiret > 0 Then Adroite = Right(Contenu, Len(Contenu) - PositionTiret) Cells(i, 2).Value = Adroite End If Next i End Sub

---

:wink:

Autre chose: modifie ton titre. Rajoute le tag [VBA-E] pour signaler que tu travailles en VBA pour Excel.

Euh.. j'ai juste regardé vite fait ton code bipbip mais j'ai l'imperssion qu'il donne ce quil y a à droite du "-" non? hirs je pense qu'il vaut ce qu'il y a à gauche... enfin c'est la meme idée

Code:

---

1 2 3 4

If PositionTiret > 0 Then Adroite = Left(Contenu, PositionTiret) Cells(i, 2).Value = Adroite End If

---

Voilà là ca devrait etre bon (bon ptet faudra renommer Adroiet par aagauche ca le fera plus !! :))

Sinon ptet que c'est positiontiret - 1 j'ai pas vérifié :wink:

Bon, d'accord... :oops:
Mais note que je ne l'ai pas pris en traître, j'ai été cohérent tout le long: ma procédure s'appelle "LaFin", et ma variable "Adroite"...
:D

Oue c'est vrai !!
Et puis d'abord y'avais qu'a regarder les tuto !!! :P

Merci beaucoup à vous deux pour votre aide.

J'aurais dû passer plus de temps sur les tutoriels effectivement.

Merci encore.