Microsoft 365 Suppression symbole "*" dans des cellules sous VBA

ted1057

XLDnaute Occasionnel
Bonjour,

Travaillant sur une liste de prix d'un fournisseur pour l'importation sous un ERP, je souhaite supprimer le symbole "*" qui se trouve dans certaine cellule.
je n'arrive pas à trouver une solution qui fonctionne sous VBA pour effectuer cette manipulation.

Le nombre d'étoile change en fonction des cellules et le "texte" qui précède les étoiles n'est pas toujours le même

Merci de votre aide

Cordialement,
 

Pièces jointes

  • suppresion symbole.xlsx
    148.8 KB · Affichages: 4
Solution
Bonjour,

Enregistre ton fichier au format xlsm, puis dans un module standard mets-y le code ci-dessous et exécute le code.
VB:
Option Explicit

Sub remplacer()
Dim i As Long
With Sheets("feuil2")
i = 1
    Do While Cells(i, 2) <> ""
        .Cells(i, 2) = Replace(.Cells(i, 2), "*", "")
    i = i + 1
    Loop
MsgBox "Traitement terminé!"
End With
End Sub
En espérant que ça répond à ta demande.

A+

cp4

XLDnaute Barbatruc
Bonjour,

Enregistre ton fichier au format xlsm, puis dans un module standard mets-y le code ci-dessous et exécute le code.
VB:
Option Explicit

Sub remplacer()
Dim i As Long
With Sheets("feuil2")
i = 1
    Do While Cells(i, 2) <> ""
        .Cells(i, 2) = Replace(.Cells(i, 2), "*", "")
    i = i + 1
    Loop
MsgBox "Traitement terminé!"
End With
End Sub
En espérant que ça répond à ta demande.

A+
 

Discussions similaires

Statistiques des forums

Discussions
311 733
Messages
2 082 019
Membres
101 872
dernier inscrit
Colin T