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

[ted1057]

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,

 

[cp4]

Bonjour,

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

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+

 

[ted1057]

Bonjour cp4

Je te remercie, cela fonctionne parfaitement,

Cordialement,

 

[cp4]

Bonjour cp4

Je te remercie, cela fonctionne parfaitement,

Cordialement,

Pointe la solution (à droite du message), afin de faciliter la recherche sur le forum.

Bonne fin de journée.