Discussion :

[brasco06]

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?

[Minick]

Salut,

Une formule pourrait suffire...

Code :

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

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

++
Minick

[brasco06]

merci ca marche nikel cette formule..

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

[Minick]

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 :

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

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

[brasco06]

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 !

[Minick]

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