(RÉSOLU) Excel - Remplacer par

[Maxxot]

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é

 

[Staple1600]

Bonjour le fil, le forum

Solution macro ou formule?

 

[Maxxot]

Bonjour JM,

Ce serait une macro si possible.

Déjà merci de cette réponse rapide!

 

[Staple1600]

Bonsoir le fil, le forum

Petit préambule
Tu as essayé au préalable le fameux CTRL+H ?

 

[Maxxot]

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.

 

[Staple1600]

Re

Oui, j'ai bien compris
Alors il est temps de mouiller la chemise, jeune padawan
Fais un CTRL+H tout en laissant tourner l'enregistreur de macros
Tu auras ainsi une ébauche de code VBA 😉

 

[Maxxot]

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

 

[Staple1600]

Re

Voici comment faire par exemple

Sub Macro3()
Dim NOUVEAU
NOUVEAU = InputBox("Valeur de remplacement?")
Range("C2:C14").Replace What:=CStr(Range("E6")), Replacement:=CStr(NOUVEAU), LookAt:=xlPart, SearchOrder:=xlByRows
End Sub

 

[Maxxot]

JM, je t'embrasse!

Merci du fond du coeur!

 

[Staple1600]

Re

Si tu veux, mais je suis pas rasé 😉

On peut peaufiner la chose néanmoins.