Discussion :

[j0joo]

Bonjour,

Voici mon problème,

J'ai plusieurs colonnes en Excel où les cellules contiennent du texte et un nombre

Exemple

En A2 j'ai "aaaaaaaaaaaaaa - 111111", est ce qu'il est possible via vba de supprimer tout sauf le nombre de manière à avoir en A2 "111111"

Merci de votre aide.

Bonne journée.

[Igloobel]

Bonjour,

j'ai des questions

Tes nombres sont-ils toujours à droite ?
Tes nombres sont-ils toujours composés de 6 chiffres ?
Tes textes sont-ils toujours séparer par " - " ?

Tu dis a plus

[j0joo]

Igloobel,

Mes nombres sont toujours à droite.

Ils ne sont malheureusement pas toujours séparés par des -, quelques fois c'est un espace.

La taille des nombres varie de 5 à 6 chiffres.

Merci.

[Igloobel]

Y a-t-il au minimum une espace ?

[j0joo]

Il y a toujours un seul espace.

[joe.levrai]

Bonjour,

voici une proposition, basée uniquement sur le fait que :

- le nombre est toujours à la fin
- il est précédé d'un seul espace

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 Extracton()
 
Dim Ligne As Long
Dim Position As Long
Dim Tablo
 
With ThisWorkbook.Worksheets("Feuil1")
    ' dernière ligne
    Ligne = .Cells(Rows.Count, 1).End(xlUp).Row
 
    ' parcours les lignes
    For Ligne = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
        ' séparation des portions de chaines via les espaces
        Tablo = Split(.Cells(Ligne, 1), " ")
        ' la dernière portion contient les chiffres
        .Cells(Ligne, 1) = Tablo(UBound(Tablo))
    Next Ligne
 
End With
 
End Sub