Bonjour,

J'ai une petit soucis pour découper des cellules :

En effet j'ai des cellules du type :

Une référence XX=21448
Une autre [5789]
une troisième


Je voudrais récupérer ceci :

Une référence
Une autre
une troisième

J'ai essayer de "bidouiller" une truc avec un do et un mid du genre :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
 
Do
NOM = NOM & Mid(Selection.Columns(2), NB, 1)
NB = NB + 1
Loop Until Mid(Selection.Columns(2), NB, 3) = "OS=" Or Mid(Selection.Columns(2), NB, 1) = "["
mais évidement ça boucle parfois indéfiniment...

La j'essaye plutôt d'utiliser un split.

avec un code comme ceci :
...
NomInter = Split(WsImp.Range("B" & Lig).Value, "[")
Nom = Split(NomInter, "XX=")
...

(en gros j'essaye de spliter deux fois)

Mais j'ai des problèmes de type.

(entre les ranges et les strings je penses ?)

Y a t il un moyen de contourner ça?