Discussion :

[desdenova]

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.

[Megaxel]

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 :

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

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

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

[Elstak]

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 :

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

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é

[Megaxel]

Bon, d'accord...
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"...

[Elstak]

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

[desdenova]

Merci beaucoup à vous deux pour votre aide.

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

Merci encore.