Remplacer un mot d'une cellule par un autre mot

[badoum66]

Bonjour,

Dans le fichier joint, je veux remplacer un mot par un autre.
Exemple : demande d'avoir par DMA; A traiter par le Réceptionnaire par REC ; Réception non conforme par RNC ; Attente livraison complémentaire par ALC ; A traiter par l'ACH ; Modification saisie de la réception par MCA.
En macro si possible.

Merci

 

[Spitnolan08]

Re : Remplacer un mot d'une cellule par un autre mot

Bonsoir,

Sub Macro1()
For i = 3 To Range("a" & Rows.Count).End(xlUp).Row
    chaine = Cells(i, "A").Value
    Select Case chaine
        Case "A traiter par le Réceptionnaire"
        nouvchaine = "REC"
        Case "Réception non conforme"
        nouvchaine = "RNC"
        Case "Demande d'avoir"
        nouvchaine = "DMA"
        Case Else
        '....
    End Select
    Cells(i, "A").Value = nouvchaine
Next
End Sub

Cordialement

 

[badoum66]

Re : Remplacer un mot d'une cellule par un autre mot

Merci, je vais tester

Bon WE