VBA remplacer les 3 premiers caractères d'une cellule sous condition

[perdinch]

Bonsoir,

Dans la colonne B je souhaite remplacer
"BLE" par "PA" si et seulement si les 3 premières lettres contenu dans chaque cellule de la colonne B commence par "BLE" suivi d'un espace .

exemples:

en a1 j'ai BLE MAGASIN LYON alors a1 devient PA MAGASIN LYON car LA CELLULE a1 commence bien par BLE suivi d'un espace

en A2 j'ai ABC MAGASIN CABLE alors A2 reste inchangée car A2 ne commence par BLE suivi d'un espace.

J'ai essayé avec l'enregistreur de macro et rechercher -remplacer mais c'est insatisfaisant .

merci


perdinch

 

[fmichaud76]

Re : VBA remplacer les 3 premiers caractères d'une cellule sous condition

Formule à mettre dans la colonne C :
=if(uppercase(mid(B1;1;4))="BLE ";"PA "&mid(B1;4;999);B1)

à traduire en français par qqu'un d'autre car je ne connais pas Excel en français...

A+

Fred

 

[Modeste]

Re : VBA remplacer les 3 premiers caractères d'une cellule sous condition

Bonsoir perdinch, fmichaud76,

The same, in french (enfin presque la même 😉):

=SI(GAUCHE(B1;4)="BLE ";"PA "&STXT(B1;5;9^9);B1)

Edit: désolé, le VBA dans le sujet m'avait échappé ...

Sub remplace()
For i = 1 To [A65000].End(xlUp).Row
    If Left(Range("A" & i), 4) = "BLE " Then Range("A" & i) = "PA " & Mid(Range("A" & i), 5, 9 ^ 9)
Next i
End Sub

 

[Staple1600]

Re : VBA remplacer les 3 premiers caractères d'une cellule sous condition

Bonsoir à tous

Une autre approche

Sub a()
Dim r As Range, c As Range
Set r = Range([A1], [A65536].End(xlUp))
For Each c In r
c.Offset(, 1) = IIf(c Like "BLE *", UCase("PA " & Split(c.Text)(1)), "")
Next
End Sub

 

[perdinch]

Re : VBA remplacer les 3 premiers caractères d'une cellule sous condition

merci. pour toutes les reponses.
j'ai pu solutionner mon problème grâce à vous.
cordialement
perdinch