Remplacer un mot d'une cellule par un autre mot

badoum66 · 25 Avril 2008

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 · 25 Avril 2008

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

Bonsoir,

Code:

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 · 25 Avril 2008

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

Merci, je vais tester

Bon WE

Remplacer un mot d'une cellule par un autre mot

badoum66

Guest

Pièces jointes

Spitnolan08

XLDnaute Barbatruc

badoum66

Guest

Discussions similaires

Remplacer un mot d'une cellule par un autre mot

badoum66

Guest

Pièces jointes

Spitnolan08

XLDnaute Barbatruc

badoum66

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency