Convertir

[Guido]

Bonsoir

comment faire pour convertir ces chiffes...Les chiffres entre parenthèse devrais se trouver

dans la colonne de droite

1
4 (5)
12 (6)
2 (4)
6
13 (9)
16
7 (3)
15
8 (8)
9
10
11 (2)
14
3 (1)
5 (7)

Voir le pti fichier


Merci Guido

 

[david84]

Re : Convertir

Bonsoir,
il y a sûrement plus simple.

=SI(ESTNUM(CHERCHE("(";B3));STXT(B3;EQUIV("(";STXT(B3;LIGNE($1:$255);1);0)+1;(EQUIV(")";STXT(B3;LIGNE($1:$255);1);0)-EQUIV("(";STXT(B3;LIGNE($1:$255);1);0))-1);"")

Formule matricielle à valider par Ctrl, Maj et entrée.

Edit :

=SI(ESTNUM(CHERCHE("(";B3));STXT(B3;TROUVE("(";B3)+1;TROUVE(")";B3)-TROUVE("(";B3)-1);"")

Formule plus courte et non matricielle.
A+

 

[JNP]

Re : Convertir

Bonsoir le fil 🙂,
Et comme après, ce sera "Et pour la première partie ?" 😀

=SI(ESTNUM(CHERCHE("(";B3));STXT(B3;1;TROUVE("(";B3)-2);B3)

Bonne soirée 😎

 

[Tibo]

Re : Convertir

Bonsoir le fil,

Une autre approche :

=SUBSTITUE(STXT(B3;TROUVE("(";B3&"(")+1;99);")";"")

à recopier vers le bas.

@+

 

[gilbert_RGI]

Re : Convertir

Bonsoir tous

ou encore

Sub test()
    For b = 3 To Range("b65536").End(xlUp).Row
        Cells(b, 2).Select
        chaine = ActiveCell
        nbre = InStr(chaine, "(")
        nbre2 = Left(chaine, Len(chaine) - nbre)
        If nbre = 0 Then GoTo suite
        nbre1 = Mid(chaine, nbre + 1, (Len(chaine) - nbre))
        For i = 1 To Len(nbre1)
            q = Left(Right(nbre1, i), 1)
            r = r + Val(q)
        Next
        ActiveCell.Offset(0, 2).Value = r
        r = 0
suite:
        ActiveCell.Offset(0, 1).Value = nbre2
    Next
End Sub

 

[Guido]

Re : Convertir

Ré

Merci a Tous,c'est super

Guido

 

[Cousinhub]

Re : Convertir

Bonjour,

Ou encore :

Sub convert()
Range("B3:B" & [B65000].End(xlUp).Row).TextToColumns Destination:=Range("B3"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Space:=True, Other:=True, _
        OtherChar:="(", FieldInfo:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
Range("C3:C" & [C65000].End(xlUp).Row).Replace What:=")", Replacement:="", LookAt:=xlPart
End Sub

Bonne nuit

 

[Guido]

Re : Convertir

Bonjour Bhbh et le forum

Merci pour cette solution.

Guido