Remplacer la valeur d'une cellule

[pierrof]

Bonjour

J'aimerai à l'aide d'une macro remplacer les valeurs d'une colonne.
Sachant que le nombre de lignes peut varié, je vous laisse un fichier exemple.

Merci d'avance de votre aide précieuse

 

[Efgé]

Re : Remplacer la valeur d'une cellule

Bonjour Pierrof,
une proposition:

[COLOR=blue]Private Sub[/COLOR] CommandButton1_Click()
Liste = "MA,MC,MH,MI,MJ,"
[COLOR=blue]For Each[/COLOR] c [COLOR=blue]In[/COLOR] Range("E2:E" & Range("E" & Application.Rows.Count).End(xlUp).Row)
    [COLOR=blue]If[/COLOR] InStr(Liste, c.Value & ",") <> 0 [COLOR=blue]Then[/COLOR] c.Value = "MD"
[COLOR=blue]Next[/COLOR] c
[COLOR=blue]End Sub[/COLOR]

Cordialement

 

[Modeste]

Re : Remplacer la valeur d'une cellule

Bonjour pierrof, le forum,

Essaye avec ce code, dans la feuil1:

Private Sub CommandButton1_Click()
With Sheets("Feuil1")
    For Each c In Range("E2:E" & .Range("E65000").End(xlUp).Row)
        Select Case c.Value
        Case "MA", "MC", "MH", "MI", "MJ"
            c.Value = "MD"
        End Select
    Next c
End With
End Sub

... A tester
Attention, si les "MA", "MI", etc sont en minuscules, le remplacement ne se fait pas! A toi de définir ce qu'il y a lieu de faire.

Edit: salut Efgé ... suis en retard, moi!