Rechercher un texte entre en VBA

Bonjour le forum !!

J'ai une question, j'ai dans une cellule excel quelque chose de la forme :

(245) chantier

Et j'aimerais par macro, récupérer

dans une colonne A : 245

dans une colonne B : chantier

Je pourrais très bien faire ça avec des fonction Left et Right avec une value de 5, mais il se peut que le nombre ente parenthèse fasse 4 ou 5 chiffre,

J'ai donc pensé à faire en sorte que le code vba reconnaisse le début et la fin de la parenthèse, mais je ne sais pas comment faire.

Pensez-vous que c'est une bonne idée de faire comme cela ? Si oui, pouvez-vous me guider vers la réalisation de ce bout de code ?

Avez-vous une autre idée de la manière dont on peut s'y prendre, sachant que l'on peut afficher le : (245) chantier sous n'importe quelle forme, tant qu'il y a 245 et chantier dans la cellule.

Merci à vous

Bonsoir,

testé sous 2007

Sub convertir()
With Range("A1:A" & [A65000].End(xlUp).Row)
    .TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        Other:=True, OtherChar:=")"
    .Replace What:="(", Replacement:="", LookAt:=xlPart
End With
End Sub

Bonjour Felix, un grand merci à toi !!

Ca marche sous 2007 et 97 donc je suppose que sur 2003 aussi, j'irais faire le test dans quelques minutes,

Ta macro donne exactement ce que je veux, seulement je n'ai pas compris pour quoi le chantier par dans la colonne B. En fait j'aimerais savoir comment à partir d'une liste avec les (0000) Chantier dans la colonne D, que :

Chantier reste dans D

0000 aille dans C

Je te remercie d'avance

Merci !

EDIT : J'ai trouvé la solution en bidouillant un peu :

Sub convertir()
For i = 1 To 10
If Left(Range("D" & i).Value, 1) = "{" Then
Application.DisplayAlerts = False
With Range("D" & i)
     .TextToColumns Destination:=Range("C" & i),  DataType:=xlDelimited, _
     Other:=True, OtherChar:="}"
End With
With Range("C" & i)
     .Replace What:="{", Replacement:="", LookAt:=xlPart
End With
Application.DisplayAlerts = True
End If
Next i
End Sub