(RÉSOLU) Excel - Remplacer par

Maxxot

XLDnaute Nouveau
Bonjour,

J'ai un fichier excel qui contient des numéros.

J'ai besoin de pouvoir changer tous les "00000" par un numéro que j'inscrirais dans une case

Exemple :

555-555-5555,,00000#

555-555-5551,,00000#

555-555-5552,,00000#

J'inscrirais dans la case approprié : 45123 et je cliquerais sur un bouton.

Les numéros deviendraient :

555-555-5555,,45123#

555-555-5551,,45123#

555-555-5552,,45123#

Online viewer de ma page : Lien supprimé
 

Pièces jointes

  • XLS2VCard2.xls
    63.5 KB · Affichages: 19

Maxxot

XLDnaute Nouveau
Re,

Ça fonctionne en effet. Mais puisque c'est un outil que je vais me servir assez régulièrement, j'essais d'automatiser le tout!

J'aimerais entrer le numéro de l'employé dans une case et créer le fichier vCard avec le numéro changer automatiquement.
 

Maxxot

XLDnaute Nouveau
Re,

Alors voilà, j'avais déjà essayer cette technique. Cependant, comment on remplace le Replacement:="45123" par une case spécifique exemple E6 dans mon cas.

Range("E6:F6").Select
Cells.Replace What:="00000", Replacement:="45123", LookAt:=xlPart, _
SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
 

Discussions similaires

Statistiques des forums

Discussions
311 708
Messages
2 081 750
Membres
101 812
dernier inscrit
trufu