Split texte et suppression

Bonjour,
Je voudrais séparer le texte de mes colonnes :

j'ai un champ comme ceci : CC=blalbla,ON=blibli,NO=nonono

Je dois garder juste le 1er cad blalbla ou au pire CC=blalbla

J'aimerai le faire sans spliter avec Data/text to columns....car il y a trop de colonnes après et je perd des infos .

Quelqu'un peut m'aider?

Salut,

Une formule pourrait suffire...

Code:

---

=STXT(A1;4;TROUVE(",";A1)-4)

---

++
Minick

merci ca marche nikel cette formule..

LA seule chose est comment utiliser cette formule pour remplacer directement la cellule existante ?

Salut,

2 cas:
1 - En gardant la formule
Tu mets la formule dans la colonne a cote et ensuite tu supprimes la colonne source
2 - En passant par du code VBA

Code:

---

1 2 3 4 5 6 7 8 9

Sub ExtraitCC() Dim Cellule As Range   For Each Cellule In ActiveSheet.Range("A1:A" & ActiveSheet.Range("A65536").End(xlUp).Row) If Left(Cellule.Value, 2) = "CC" Then Cellule.Value = Mid(Cellule.Value, 4, InStr(1, Cellule.Value, ",") - 4) End If Next End Sub

---

++
Minick

Merci c'est parfait !

Et ya til un moyen de faire le traitement que si la colonne est remplie ?
ou alors de faire le traitement sur toute la feuille !

Re,

La Macro le fait deja... ou j'ai pas compri la question...
Pour toutes les cellules de la colonne 1 avec des données
Si la donnée commence par CC alors on extrait le CC.

++
Minick

Dsl..je voulais dire si j'ai plusieurs colonnes à traiter.
Peut-on le faire jusqua la derniere colonne pleine?

ou au pire toutes les colonnes si ca ne prend pas trop de ressources?

Pour toute la feuille, remplace

Citation:

---

For Each Cellule In ActiveSheet.Range("A1:A" & ActiveSheet.Range("A65536").End(xlUp).Row)

---

par

Code:

---

For Each Cellule In ActiveSheet.usedrange

---

Bonne journée à vous deux

Merci à vous 2 !!

Bonne journée