Lettre + chiffre garder que les chifres

Bonjour,

Je souhaiterais ne garder qu'une parti des informations de ma cellule.

Exemple : " SAINT MAXIMAIN LA SAINTE BAUNE SIN 2019-8238 "

j'ai besoin que de "SIN 2019-8238".

Mon tableau et conséquent et bien sûr les cellules ne comporte pas le même nombre de lettres et de chiffre.

Est-ce possible ?

Bonjour,

Une piste :

Sub Test()

     Dim Chaine As String

     Chaine = "SAINT MAXIMAIN LA SAINTE BAUNE SIN 2019-8238"

     MsgBox "SIN" & Split(Chaine, "SIN")(1)

End Sub

Bonjour,

Une autre approche (valable uniquement si SIN et la partie numérique ont toujours le même format)

Sub Test()
Dim Chaine As String

Chaine = "SAINT MAXIMAIN LA SAINTE BAUNE SIN 2019-8238"
MsgBox Right(Chaine, 13)

End Sub

Bonjour,

Salut Theze, salut GGautier,

L'équivalent des 2 propositions précédentes sans macro, en formule Excel (pour un texte placé en A1) :

1.

=STXT(A1;CHERCHE(" SIN ";A1)+1;100)

2.

=DROITE(A1;13)

PS : pour éviter les soucis sur les cellules vides ou qui ne correspondent pas exactement au cas de figure, on peut inclure ces formule dans un SIERREUR :

=SIERREUR(LaFormule;"")

Salut NanaZAH,

Salut la belle équipe,

la seule chose qui m'embête est que vos solutions gardent le guillemet de droite...

Si lui reste, le gauche aussi, alors ?!

J'ai supprimé les deux...

Un double-clic démarre la macro.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'
Dim tTab
'
Cancel = True
tTab = Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row).Value
For x = 1 To UBound(tTab, 1)
    tTab(x, 1) = "SIN " & Split(Split(tTab(x, 1), "SIN ")(1), " ")(0)
Next
Range("F1").Resize(UBound(tTab, 1), 1).Value = tTab
'
End Sub

A+

Pedro22 a écrit :

Bonjour,

Salut Theze, salut GGautier,

L'équivalent des 2 propositions précédentes sans macro, en formule Excel (pour un texte placé en A1) :

1.

=STXT(A1;CHERCHE(" SIN ";A1)+1;100)

2.

=DROITE(A1;13)

PS : pour éviter les soucis sur les cellules vides ou qui ne correspondent pas exactement au cas de figure, on peut inclure ces formule dans un SIERREUR :

=SIERREUR(LaFormule;"")

Merci, votre formule fonctionne à merveille ...

Cependant ma responsable me demande d'enlever le SIN, est ce possible ?

NanaZAH a écrit :

Merci, votre formule fonctionne à merveille ...

Cependant ma responsable me demande d'enlever le SIN, est ce possible ?

A tester :

1.

STXT(A1;CHERCHE(" SIN ";A1)+4;100)

2.

=DROITE(A1;9)

PS : Les honneurs reviennent aux premiers contributeurs, c'est eux qui ont proposé ces solutions ! Il s'agit juste de la transcription des macros en formule...