Convertir le RIB en n° de compte

[anasimo]

Bonjour

Je veux convertir Convertir le numéro de RIB en n° de compte
Le numéro de RIB se trouve dans la colonne A de la feuille "CF"

le RIB comporte 24 chiffres...donc pour le convertir en numéro de compte je dois supprimer 6 chiffres à gauche et 2 à droite.
je vous donne un exemple
RIB: 123456010003259651012378
Compte: 0100032596510123 ..... donc je dois supprimer tout ce qui est en rouge

A vous de choisir
1- Soit de garder la colonne A et la colonne B (que je peux créer, va recevoir le numéro de compte
2- Soit une fois le RIB copié dans la colonne A, se transforme, grace au code, en numéro de compte

NB: le premier 0 doit s'afficher cad avoir 0100032596510123 et non 100032596510123

Merci d'avance

 

[excfl]

Bonjour le forum,

=STXT(A2;12;16)

 

[excfl]

Re,

Ou :

A4 : Format Texte

=STXT(A4;7;14)

 

[anasimo]

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)

 

[excfl]

Re,

A4 : =STXT(A4;7;16)

 

[anasimo]

ç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)

 

[excfl]

Re,

Voir le fichier joint.

Bonjour JHA

 

[Santulud]

Bonjour,

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

 

[JHA]

Bonjour à tous,
Bonjour excfl

En complément du fichier "RIB"

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

JHA

 

[anasimo]

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)

 

[JHA]

Bonjour à tous,

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

JHA

 

[anasimo]

Bonjour à tous,

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

JHA

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

 

[JHA]

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

 

[anasimo]

Ok je vais tester

 

[eriiic]

Bonjour,

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

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