XL 2013 Enlever les 7 derniers caracteres sans passer par la fonction remplacer par

chris

XLDnaute Barbatruc

• 28 Novembre 2019

• #2

Bonjour

VB:

=SI(DROITE(A2;7)=" (prod)"; GAUCHE(A2;NBCAR(A2)-7);A2)

 

Vote positif 0 Vote négatif

D

djc974

XLDnaute Nouveau

• 28 Novembre 2019

• #3

chris à dit:

Bonjour

VB:

=SI(DROITE(A2;7)=" (prod)"; GAUCHE(A2;NBCAR(A2)-7);A2)

Cliquez pour agrandir...

merci à toi nickel

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 28 Novembre 2019

• #4

Bonsoir le fil

Une autre façon de faire: Données/Convertir => Séparateur [x] Autre : (
Cliquer sur "Colonne non distribuée" pour la seconde colonne.

Ce qui donne en VBA (en cas de tendinite du poignet 😉)

VB:

Sub Macro1()
Dim fo
fo = Array(Array(1, 1), Array(2, 9))
Columns(1).TextToColumns Cells(1), xlDelimited, , Other:=True, OtherChar:="(", FieldInfo:=fo
End Sub

 

Vote positif 0 Vote négatif

djidji59430

XLDnaute Barbatruc

• 29 Novembre 2019

• #5

Bonjour à tous,

=SIERREUR(GAUCHE(G2;CHERCHE(" (";G2));G2)
car tu n'as pas essayé avec xxxxx (pro) comme demandé


Crdlmt

 

Vote positif 0 Vote négatif