Remplacement de caractères

Je suis débutant sur vbs et ce que j`aimerais être capable de faire Avec une macro c`est que j`ai une liste et j`aimerais être capable de remplacer le premier caractère par des lettres ex:
ma liste est dans la colonne B:

128978278
298039893
190839839
230989389
409489046

et aimerais obtenir un résultat comme cela

AAC978278
BBD039893
FFR839839
PPL989389
IJKL489046

MERCI BEAUCOUP POUR VOTRE AIDE

Bonjour

Quand tu parles de VBS, tu parles de VBSript ou de VBA dans un classeur Excel ?

Si c'est dans un classeur Excel, ce que tu demandes est possible, mais il faut avant déterminer les règles de remplacements pour que les membres du forum puissent t'aider.

Philippe

Merci de la réplique. c`est pour remplacer le premier charactère dans des cellules dans un classeur excel mais avec une macro

car j`ai une liste complete de numeros de telephones mais l`indicatif réigional est abrévié don ce je voudrais mettre l`indicatif au complet

ex j`ai un liste dans la colonne b:

99089898
89898089
69800900
89890980
09088979


et le remplacement serait

8199089898
4189898089
4186980090
4189890980
4509088979

d`ou le 1er charactère seulement(9=819,8=418,6=416,4-514)
merci beaucoup...beacoup..beacoup de l`aide

Bonjour

par exemple en adaptant le 1° caractère à l'entête voulue

Code:

---

1 2 3

numero = "367890765" modif = Choose(Left(numero, 1) + 1, "917", "434", "890", "014") '917 correspond à l'ent^te 0 liste au hasard pour demo numero = modif & Right(numero, Len(numero) - 1)

---

j`ai beau essayer mais comment je fais pour mettre ce code dans une macro j`ai changé les chiffres au besoin mais toujours pas de remplacement du premier character...merci

Bonjour,

La réponse que t'a faite Michel_M (que je salue) est du type de celle que je t'aurais faite moi-même (avec un autre code toutefois), à savoir (et pour répondre à ta question) comment traiter une chaîne de caractères selon ce que tu as exposé du traitement.
Ta difficulté semble maintenant être en amont (avant même de traiter une chaîne), à savoir comment parcourir un range (une plage de cellules) pour en extraire (puis traiter) la valeur de chacune de ses cellules.... !

Bonsoir à tt
si tu veux faire ça sans vba, je te propose cette formule en C1 les données sont en B1 à Bxxx.

Code:

---

=CHOISIR(EQUIV(GAUCHE(B1;1);{"9";"8";"6";"4"};0);"819";"418";"416";"514")&B1

---

Bonne soirée

Merci Abed_H,
J`y avais pensé et cela fonctionne très bien,mais mon besoin en macro résulte du fait que traitement de données serait fait par des pré-dubutants excel donc un bouton associée a cette macro aiderait grandement a ne pas avoir a entrainer tout le monde a comment faire une formule dans excel.Voil mon besoin du macro et puiseque je ne m`y connais pas je demande l`aide des experts..Les donées en soit ne sont pas complexes se sont tous des numéros de téléphones,mais avec le premier chiffre abrévié comme indiquée dans mon exemple

merci encore

Re,
voici un autre exemple avec macro voir aussi exemple ci-joins

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub rempTél() Dim i As Integer i = 1 Do Until IsEmpty(Cells(i, 2)) Cells(i, 3).Value = Switch(Left(Cells(i, 2), 1) = "9", "819", _ Left(Cells(i, 2), 1) = "8", "418", _ Left(Cells(i, 2), 1) = "6", "416", _ Left(Cells(i, 2), 1) = "4", "514") & Right(Cells(i, 2), Len(Cells(i, 2)) - 1) i = i + 1 Loop End Sub

---

Bonne soirée

Merci pour l`exemple .Voici une de me listes (et elles sont toutes dû même style)
comment pui-je appliquer cela si c`est pour le faire dans 2 colonnes différentes (mes listes sont toujours formatées de la même façon avec les mêmes colones et titres)


merci encore pour ta précieuse aide Abed_H

Bonsoir
je ne pense pas avoir tous compris mais voici un fichier en pièce jointe.
Alt + F11 pour voir le code

Bonne nuit

MERCI Abed_H C`est fantastique,Tu est un vrai pro :D