Fractionnement données d'une cellule

Bonjour,

Dans un tableau excel, je souhaiterais ne récupérer qu'une partie des données contenues dans une cellule...

Est-ce possible ?

Je joins un exemple.

Merci de votre aide.

Bonjour,

Voici une macro qui te fera ça très bien.

Sub galopin()
Dim o As Range
Application.ScreenUpdating = False
For Each o In Selection
On Error Resume Next
For i = 1 To 30
o = Replace(o, " ", "")
Next
o = Replace(o, "EUR", "")
If Left(o, 2) = "BE" Then o = CStr(Right(o, Len(o) - 4))
o.NumberFormat = "0"
Next
End Sub

Nota :

Il faut d'abord sélectionner toutes les cellules à transformer.

S'il reste encore des espaces lancer la macro une deuxième fois.

A+

Bonjour

La question a encore été posée hier...

Avec une matricielle

=1*STXT(A3;EQUIV(VRAI;ESTNUM(1*STXT(A3;LIGNE(INDIRECT("1:"&NBCAR($A3)));1));0);NB(1*STXT(A3;LIGNE(INDIRECT("1:"&NBCAR($A3)));1)))

Reste à expliquer pourquoi parfois ton résultat ne prends pas en compte les 2 ou 3 ou 5 premiers chiffres?

Cordialement

Merci de ta réponse...

Oui, je ne sais pas pour les premiers chiffres.

En fait ce sont des n°s de compte en banque et il y en a certains qui commencent par 0 ou par 000.

Petit souci : dans ta formule, lorsqu'il voit un compte BE03000113808884, est-il possible d'enlever les 4 premiers caractères càd le BE03 ?

Bien à toi.

Bonjour

C'est possible en modifiant un peu la formule précédente (Toujours en saisie matricielle)

=1*STXT(SUBSTITUE(A3;"BE03";"");EQUIV(VRAI;ESTNUM(1*STXT(SUBSTITUE(A3;"BE03";"");LIGNE(INDIRECT("1:"&NBCAR(SUBSTITUE(A3;"BE03";""))));1));0);NB(1*STXT(SUBSTITUE(A3;"BE03";"");LIGNE(INDIRECT("1:"&NBCAR(SUBSTITUE(A3;"BE03";""))));1)))

Cordialement

L'exemple

bonjour

un debut de reponse à peaufiner ; mais helas je cale(peut etre qu'une touche de vba aideait )

cordialement