(RÉSOLU) Excel - Remplacer par

Staple1600

XLDnaute Barbatruc

• 14 Avril 2018

• #2

Bonjour le fil, le forum

Solution macro ou formule?

 

Vote positif 0 Vote négatif

M

Maxxot

XLDnaute Nouveau

• 14 Avril 2018

• #3

Bonjour JM,

Ce serait une macro si possible.

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 14 Avril 2018

• #4

Bonsoir le fil, le forum

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

 

Vote positif 0 Vote négatif

M

Maxxot

XLDnaute Nouveau

• 14 Avril 2018

• #5

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.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 14 Avril 2018

• #6

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

 

Vote positif 0 Vote négatif

M

Maxxot

XLDnaute Nouveau

• 14 Avril 2018

• #7

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 14 Avril 2018

• #8

Re

Voici comment faire par exemple

VB:

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

 

Vote positif 0 Vote négatif

M

Maxxot

XLDnaute Nouveau

• 14 Avril 2018

• #9

JM, je t'embrasse!

Merci du fond du coeur!

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 14 Avril 2018

• #10

Re

Si tu veux, mais je suis pas rasé

On peut peaufiner la chose néanmoins.

 

Vote positif 0 Vote négatif