Sub Macro1()
Dim sp As String 'déclare la variable sp (SPlit)
For Each cel In Range("A3:A" & Cells(Application.Rows.Count, 1).End(xlUp).Row) 'boucle sur toutes les cellules editées de la colonne A
sp = Split(cel.Value, "( ")(1) 'récupère le texte après "( " (ouverture de parenthèse et espace)
cel.Offset(0, 1).Value = Left(sp, Len(sp) - 13) 'récupère en B le texte sp sans les 13 derniers caractères
Next cel 'prochaine cellule de la boucle
End Sub
Bonjour Jocelyn, le forum,
=1*GAUCHE(STXT(A3;TROUVE("( ";A3)+2;NBCAR(A3));TROUVE(" ";STXT(A3;TROUVE("( ";A3)+2;NBCAR(A3))))
Function ExtraitChiffres(zone As Range) 'As Long
ExtraitChiffresTxt = ""
For Each cell In zone
For i = 1 To Len(cell)
If IsNumeric(Mid(cell, i, 1)) Or Mid(cell, i, 1) = "," Then ExtraitChiffresTxt = ExtraitChiffresTxt & Mid(cell, i, 1)
Next
Next
ExtraitChiffres = ExtraitChiffresTxt
End Function
Function NumChaine(chaine)
temp = ""
For i = 1 To Len(chaine)
c = Mid(chaine, i, 1)
If c >= "0" And c <= "9" Or c = "." Then temp = temp & c
Next i
NumChaine = temp
End Function