Appliquer une macro sur une seule colonne

[titania37]

Bonjour,
Je transforme un tableau à l'aide de plusieurs macros (ce sont des "remplacer" en boucle) sauf que des fois, sur des colonnes j'ai des données sources identiques mais que je ne dois pas tranformer de la même manière..
Bref, je voudrais appliquer une macro à une seule colonne et pas à la feuille entière.
J'ai entré cette fonction

Dim cellule As Range

For Each cellule In Selection

Cells.Replace What:="202", Replacement:="Multimédia", LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
Cells.Replace What:="203", Replacement:="37T1", LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
Cells.Replace What:="210", Replacement:="18", LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
Next
End Sub

mais ça ne fonctionne pas.
Une idée ???
Merci

 

[Pierrot93]

Re : Appliquer une macro sur une seule colonne

Bonjour titania

essaye peut être ainsi si j'ai bien compris :

Sub test()
Range("A:A").Replace What:="202", Replacement:="Multimédia", LookAt:=xlWhole, _
    SearchOrder:=xlByRows, MatchCase:=True
Range("A:A").Replace What:="203", Replacement:="37T1", LookAt:=xlWhole, _
    SearchOrder:=xlByRows, MatchCase:=True
Range("A:A").Replace What:="210", Replacement:="18", LookAt:=xlWhole, _
    SearchOrder:=xlByRows, MatchCase:=True
End Sub

bonne journée
@+

 

[pierrejean]

Re : Appliquer une macro sur une seule colonne

Re

salut Pierrot

Si tu veux garder la selection
A tester

Dim cellule As Range

For Each cellule In Selection

cellule.value=Replace What:="202", Replacement:="Multimédia", LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
cellule.value=Replace What:="203", Replacement:="37T1", LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
cellule.value=Replace What:="210", Replacement:="18", LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
Next
End Sub

 

[titania37]

Re : Appliquer une macro sur une seule colonne

Merci Pierrejean c'est impec !!!
ça me permet de garder ma sélection sans toucher aux autres colonnes.