Autres supprimer chaine de caractères en vba

Hasco

XLDnaute Barbatruc

Repose en paix

• 27 Décembre 2022

• #2

Bonjour,

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

 

Vote positif 0 Vote négatif

gh4

XLDnaute Occasionnel

• 27 Décembre 2022

• #3

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

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 27 Décembre 2022

• #4

Bonjour @gh4 , @Hasco .

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

VB:

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

 

Dernière édition: 27 Décembre 2022

Vote positif 0 Vote négatif

gh4

XLDnaute Occasionnel

• 27 Décembre 2022

• #5

Bonjour mapomme,
merci mais je les utilise comment?
cdt

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 27 Décembre 2022

• #6

gh4 à dit:

merci mais je les utilise comment?

Cliquez pour agrandir...

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:

VB:

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 .

 

Pièces jointes

• gh4- functions texte- v1.xls

  68 KB · Affichages: 3

Dernière édition: 27 Décembre 2022

Vote positif 0 Vote négatif

Solution

gh4

XLDnaute Occasionnel

• 27 Décembre 2022

• #7

merci bcp et bonne soirée
cdt

 

Vote positif 0 Vote négatif