Convertir le RIB en n° de compte

excfl

XLDnaute Barbatruc

• 14 Novembre 2019

• #2

Bonjour le forum,

=STXT(A2;12;16)

 

Vote positif 0 Vote négatif

excfl

XLDnaute Barbatruc

• 14 Novembre 2019

• #3

Re,

Ou :

A4 : Format Texte

=STXT(A4;7;14)

 

Vote positif 0 Vote négatif

anasimo

XLDnaute Occasionnel

• 14 Novembre 2019

• #4

Merci

Bizarre quand je copie le numéro de rib dans la cellule et je met la formule àa donne ça (le RIB se modifie)

 

Vote positif 0 Vote négatif

excfl

XLDnaute Barbatruc

• 14 Novembre 2019

• #5

Re,

A4 : =STXT(A4;7;16)

 

Vote positif 0 Vote négatif

anasimo

XLDnaute Occasionnel

• 14 Novembre 2019

• #6

ça marche pas......je crois j'ai un problème de format de cellule

ça marche quand je précède le numéro de RIB par ' et puis je copie le numéro ('123456010003259651012378 ) sinon ça marche pas.
alors que j'ai des centaines de numéro de rib (importés des autres fichiers)

 

Vote positif 0 Vote négatif

excfl

XLDnaute Barbatruc

• 14 Novembre 2019

• #7

Re,

Voir le fichier joint.

Bonjour JHA

 

Pièces jointes

• RIB.xlsx

  10 KB · Affichages: 13

Dernière édition: 14 Novembre 2019

Vote positif 0 Vote négatif

S

Santulud

XLDnaute Occasionnel

• 14 Novembre 2019

• #8

Bonjour,

pour que la solution de @excfl fonctionne correctement, il faut que les cellules contenant le numéro du RIB soit au format TEXTE

 

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 14 Novembre 2019

• #9

Bonjour à tous,
Bonjour excfl

En complément du fichier "RIB"

VB:

=SIERREUR(STXT(STXT($A2;CHERCHE(" ";$A2)+1;99);7;16);STXT($A2;7;16))

JHA

 

Pièces jointes

• RIB bis.xlsx

  9.3 KB · Affichages: 2

Vote positif 0 Vote négatif

anasimo

XLDnaute Occasionnel

• 14 Novembre 2019

• #10

Merci

je ne sais ce qui se passe je met la cellule au format texte et quand je copie le rib, elle se transforme au format standard.....sinon je dois copier le numéro dans la barre (et ça sera impossible de copier un par un)

 

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 14 Novembre 2019

• #11

Bonjour à tous,

Si tu veux garder les "0" devant, tu dois mettre la colonne "A" en format Texte.

JHA

 

Vote positif 0 Vote négatif

anasimo

XLDnaute Occasionnel

• 14 Novembre 2019

• #12

JHA à dit:

Bonjour à tous,

Si tu veux garder les "0" devant, tu dois mettre la colonne "A" en format Texte.

JHA

Cliquez pour agrandir...

c'est ce que je fais, mais quand je copie le numéro du RIB, la cellule se transforme en format standard

 

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 14 Novembre 2019

• #13

Bonjour à tous,

Si tu copies les N° de RIB dans la colonne "A", il faut copier & collage spéciale valeur (toujours avec la colonne A en texte)

JHA

 

Pièces jointes

• RIB bis.xlsx

  11.3 KB · Affichages: 3

Vote positif 0 Vote négatif

anasimo

XLDnaute Occasionnel

• 14 Novembre 2019

• #14

Ok je vais tester

 

Pièces jointes

• Capture collage.JPG

  70.5 KB · Affichages: 10

Vote positif 0 Vote négatif

eriiic

XLDnaute Barbatruc

• 14 Novembre 2019

• #15

Bonjour,

avec une macro qui met en forme les saisies et collés dans A si commence par "RIB:" :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim pl As Range, c As Range
    Set pl = Intersect(Target, Columns(1))
    If Not pl Is Nothing Then
        For Each c In pl
            If UCase(Left(c.Value, 4)) = "RIB:" Then
                Application.EnableEvents = False
                c.NumberFormat = "@"
                c.Value = Mid(c, 12, 16)
                Application.EnableEvents = True
            End If
        Next c
    End If
End Sub

 

Pièces jointes

• RIB.xlsm

  15 KB · Affichages: 9

Vote positif 0 Vote négatif