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

 

[anasimo]

Bonjour Eric.

c'est très intéressant.....sauf que la cellule ne commence pas par RIB:...la cellule comporte juste le numéro du rib

 

[eriiic]

Ah, vu que c'était ainsi sur ta capture écran j'ai cru que c'était ça.
Dans ce cas met ta colonne A au format texte et :

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 Len(c.Value) = 24 And IsNumeric(Left(c.Value, 15)) And IsNumeric(Mid(c.Value, 16)) Then
                Application.EnableEvents = False
                c.Value = Mid(c, 7, 16)
                Application.EnableEvents = True
            End If
        Next c
    End If
End Sub

si le collé fait 24 chiffres alors je coupe.
eric

 

[anasimo]

good work Merci beaucoup