traitement feuille excel pour remplacer données

[Stephane]

salut ,

qq sait comment je peut faire sous excel pour rechercher et remplacer des données

EX:

j'ai une liste de 5000 données présenter comme suit :

"sdsdsdsds b30152 kjhkhkhkhkh"

"dsfreert b54333 kuyhkk liolkj "

.....

Mais moi ce qui m'interesse, c'est les 5 premiers chiffres après le "b".
du sytle b30152, b54333, .....

comment je peut faire ??

ci joint un fichier exemple

merci d'avance

 

[eric]

Bonjour,

Essaie ça :
=STXT(A1;TROUVE("b";A1);6)

Mon texte de départ "sdsdsdsds b30152 kjhkhkhkhkh" se trouve dans la cellule a1.

Ca marche bien, mais il y a sur ce forum des supers pros de formule excel qui sont , je suis sur, capable de sortir une formule encore meilleure.

Bonne journée.

 

[jaccard]

Hello, si le numéro commence toujours par B puis un chiffre :

Dim strExtract As String
Dim intPosition, intIndex As Integer
Dim objReference As Range

On Error Resume Next

For Each objReference In ThisWorkbook.ActiveSheet.Columns(2).SpecialCells(xlConstants)
intIndex = 1
Do
intPosition = InStr(intIndex, UCase(objReference.Value), "B")
If Mid(objReference.Value, intPosition + 1, 1) = "0" Or Val(Mid(objReference.Value, intPosition + 1, 1)) > 0 Then
strExtract = Mid(objReference.Value, intPosition, 6)
Exit Do
End If
intIndex = intPosition + 1
If intIndex > Len(objReference.Value) Or intPosition = 0 Then
strExtract = objReference.Value
Exit Do
End If
Loop
Debug.Print strExtract
Next objReference
End Sub

il ne reste plus qu'à utiliser la variable strExtract



sinon si ces références commencent toujours par "ND " et continu après le "B" avec "ASTA"
tu peux faire :
chercher "ND " et remplacer par rien
chercher "ASTA*" et remplacer par rien

dom ;-)

 

[Stephane]

Merci beaucoup !

Et très bonne après-midi.

 

[Monique]

Bonsoir,

Tous tes codes ne contiennent pas B puis des chiffres.
Tu peux essayer cette formule :
=SI(ESTNUM(STXT(B6;CHERCHE("b";B6)+1;1)*1);STXT(B6;CHERCHE("b";B6);6);B6)