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

ted1057 · 5 Avril 2022

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 · 5 Avril 2022

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 · 5 Avril 2022

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+

ted1057 · 5 Avril 2022

Bonjour cp4

Je te remercie, cela fonctionne parfaitement,

Cordialement,

cp4 · 5 Avril 2022

ted1057 à dit:
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.

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

ted1057

XLDnaute Occasionnel

Pièces jointes

cp4

cp4

XLDnaute Barbatruc

ted1057

XLDnaute Occasionnel

cp4

XLDnaute Barbatruc

Discussions similaires