Autres supprimer chaine de caractères en vba

[gh4]

bonjour à toutes et tous,
je souhaiterai supprimer une chaine de caractère dans une cellule à partir d'un caractère définit en vba
Mais je n'ai aucune idée de comment faire.
ci joint un fichier pour exemple
par avance merci de votre aide
cdt
excel 2003

 

[Hasco]

Bonjour,

Précisez dans votre post que vous voulez du vba. Cela m'évitera de télécharger des fichiers inutilements.

 

[gh4]

désolé pour l’omission
j'ai corrigé
cdt

 

[mapomme]

Bonjour @gh4 , @Hasco .

Trois fonctions personnalisées utilisables en VBA ou sur une feuille de calcul (code à placer dans un module) :

Function AvantDiese(ByVal x As String) As String
   If x <> "" Then AvantDiese = Split(x, "#")(0)
End Function

Function SansPb00(ByVal x As String) As String
   If InStr(x, "pb00") = 1 Then SansPb00 = Mid(x, 5) Else SansPb00 = x
End Function

Function Tout(ByVal x As String) As String
   Tout = AvantDiese(SansPb00(x))
End Function

 

[gh4]

Bonjour mapomme,
merci mais je les utilise comment?
cdt

 

[mapomme]

merci mais je les utilise comment?

Colonnes C, D et E :
Utilisation directe sur une feuille de calcul.

Colonnes F, G et H :
Utilisation via VBA. Cliquer sur le bouton bleu. Code dans la macro dans Module1:

Function AvantDiese(ByVal x As String) As String
   If x <> "" Then AvantDiese = Split(x, "#")(0)
End Function

Function SansPb00(ByVal x As String) As String
   If InStr(x, "pb00") = 1 Then SansPb00 = Mid(x, 5) Else SansPb00 = x
End Function

Function Tout(ByVal x As String) As String
   Tout = AvantDiese(SansPb00(x))
End Function

Sub ParVBA()
Dim i&
   With Sheets("Feuil1")
      For i = 2 To 6
         .Range("f" & i) = AvantDiese(.Range("a" & i))
         .Range("g" & i) = SansPb00(.Range("a" & i))
         .Range("h" & i) = Tout(.Range("a" & i))
      Next i
   End With
End Sub

edit : Bonsoir @Usine à gaz .

 

[gh4]

merci bcp et bonne soirée
cdt