Forum Discussion
Extraire les données d’une cellules
Cet article décrit la syntaxe de formule et l’utilisation des fonctions STXT et STXTB dans Microsoft Excel.
STXT, STXTB, fonctions
GAUCHE renvoie le(s) premier(s) caractère(s) d’une chaîne de texte selon le nombre de caractères que vous spécifiez.
GAUCHEB renvoie le(s) premier(s) caractère(s) d’une chaîne de texte selon le nombre d’octets que vous spécifiez.
GAUCHE, GAUCHEB, fonctions
Veuillez également consulter le fichier Excel inclus avec les exemples
Traduit de Google:
Je serais heureux de savoir si je pouvais aider.
Nikolino
Je sais que je ne sais rien (Socrate)
* Veuillez marquer et voter pour cette réponse si cela vous aide, car elle sera bénéfique pour plus de membres de la communauté qui liront ici.
Ici une macro.
Sélectionnez les cellules avec les textes avant d'exécuter la macro.
Sub SplitData()
Dim r As Range
Dim v As String
Dim a() As String
Dim i As Long
Dim s As String
Dim c As Long
Dim n As Long
Dim f As Boolean
Dim j As Long
Application.ScreenUpdating = False
For Each r In Selection
c = 0
v = r.Value
a = Split(v)
For i = 0 To UBound(a)
s = a(i)
If Not s Like "(*)" Then
n = 0
f = False
Do While IsNumeric(Left(s, 1))
n = 10 * n + Left(s, 1)
s = Mid(s, 2)
f = True
Loop
If f Then
c = c + 1
r.Offset(0, c).Value = n
End If
For j = 1 To Len(s)
c = c + 1
r.Offset(0, c).Value = Mid(s, j, 1)
Next j
End If
Next i
Next r
Application.ScreenUpdating = True
End Sub
Un grand merci, je commence seulement à étudier les macros. Je vais regarder également cette solution.
Encore merci de votre aide
Pascal
