Discussion :

[Gclar]

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?

[Gclar]

Bonjour,

merci au modo d'avoir déplacé mon message ! désolé de l'erreur !

Alors hier soir j'ai cherché et j'ai fini par trouvé une astuce qui marche, je la met ici :

En fait split renvoie un tableau du coup cela créait une erreur de type j'ai donc modifié mon code comme ceci :

Je split d'abord ma ligne avec comme séparateur '['

ce qui donne ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

NI = Split(Selection, "[")

Ensuite comme le deuxième Split ne porte que sur la première partie (je ne m'occupe pas de la deuxième car cela ne m’intéresse pas) j'ai fais ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
 NomInter = Split(NI(0), "XX=")

qui coupe a nouveau (ou pour la première fois)

(j'ai fait cela dans ce sens car j'ai des lignes du type :

une référence XX=bidule [c'est bien]

Voila je ne sais pas si cela est "élégant" mais pour le moment ça marche
[EDIT] je ne trouve pas la balise "résolu" .