Suppression espace précis

[Aladin]

Bonjour le forum
J' ai parcouru le forum et n' ai pas trouvé une solution à ce que je veux faire. J' ai une colonne rempli de données de type
exemple
Dijon -P 800 M
Mraseille -P 500 M
Toulouse -P 450 M
Ces données sont récupérées par extraction et la colonne peut comporter 600 à 1000.
Ne serait il pas possible par vba lui dire chaque fois que tu retouve P supprime l' espace et chaque fois qu' il rencontre M supprime l' espace entre le chiffre et M, en balyant toute la colonne
merci d' avance pour votre aide
Aladin

 

[Tibo]

Re : Suppression espace précis

Bonjour Aladin,

à la vue des exemples que tu montres, on pourrait envisager le traitement suivant :

remplacer "-P " par "-P"
et
remplacer " M" par "M"

Je ne suis pas spécialiste VBA, mais je pense qu'avec l'enregistreur de macro, il doit y avoir moyen de faire quelque chose.

Essaye et si problème, les Vbaïstes du secteur viendront à ta rescousse.

Bonne soirée

@+

 

[Aladin]

Re : Suppression espace précis

Bonsoir Tibo
Merci pour ta réponse, mais le remplacement ne fonctionne pas avec ta méthode. J' espere qu' un Vbaïstes viendra à mon secours
Aladin

 

[Kotov]

Re : Suppression espace précis

Bonsoir Aladin, Tibo,

Aladin, tu peux utiliser les fonctions suivantes en VBA :

Worksheets("Feuil1").Columns(1).Replace What:="_P ", Replacement:="_P", SearchOrder:=xlByColumns, MatchCase:=True


Worksheets("Feuil1").Columns(1).Replace What:=" M", Replacement:="M", SearchOrder:=xlByColumns, MatchCase:=True

Bonne soirée
Kotov


Edit :adaptes les variables -> Worksheets ("Feuil1"), Columns(1) équivaut à colonne A [possible également sous la forme Columns("A:A")], What = ce que tu souhaite remplacer, Replacement = la valeur de remplacement

 

[Aladin]

Re : Suppression espace précis

Bonjour Kotov, Tibo
J' ai crée ma macro avec les deux codes que tu m' a donné et le test est positif.
Merci pour ton éfficacité
Aladin