extraction d'une chaîne de caractère

akramenergie

XLDnaute Occasionnel
Bonsoir tous le monde,

J'ai trouver sur le forum ce code qui fais l'extraction de la première chiane de caractère.

Mon but c'est de récupérer la dernière chaîné de caractère au lieu de la première...

sachons que juste avant la dernière chaîne il y a un espace.

merci d'avance
 

Pièces jointes

  • extraction.xls
    33.5 KB · Affichages: 43
  • extraction.xls
    33.5 KB · Affichages: 44
  • extraction.xls
    33.5 KB · Affichages: 42

Grand Chaman Excel

XLDnaute Impliqué
Re : extraction d'une chaîne de caractère

Bonjour akramenergie,

Si j'ai bien compris, ceci récupère les caractères après le dernier espace " " dans la colonne D.

VB:
Private Sub CommandButton1_Click()
Dim m As Integer
Dim n As Integer
Dim x
Columns(3).ClearContents
For n = 4 To Range("A65536").End(xlUp).Row
 x = Split(Range("A" & n), " ")
 If UBound(x) - 2 > 0 Then
  For m = 0 To UBound(x) - 2
    Range("C" & n) = Range("C" & n) & " " & x(m)
  Next m
 End If
 Range("D" & n) = x(UBound(x))      'dernière chaîne de caractère après le " "
Next n
End Sub

A+
 

Discussions similaires

Réponses
10
Affichages
392

Statistiques des forums

Discussions
312 502
Messages
2 089 047
Membres
104 011
dernier inscrit
dfr