remplacement valeurs

[perdinch]

bonjour,sous excel 2003 je souhaite en vba remplacer les
valeurs contenue dans la colonne A suivantes 42 ou 160 par la valeur unique 042-160 merci

 

[Robert]

Re : remplacement valeurs

Bonjour Perdinch, bonjour le forum,

Une propositoin :

Sub Macro1()
Dim cel As Range 'déclare la variable cel
 
For Each cel In Range("A1:A" & Range("A65536").End(xlUp).Row) 'boucle sur toutes les cellules éditées de la colonne A
    'condition : si la valeur de la cellule est 42 ou 160, la remplce par "042-160"
    If cel.Value = 42 Or cel.Value = 160 Then cel.Value = "042-160"
Next cel 'prochaine cellule de la colonne A
End Sub

 

[pierrejean]

Re : remplacement valeurs

bonjour perdinch

A tester:

Sub modif()
For n = 1 To Range("A65536").End(xlUp).Row
  If Range("A" & n) = 42 Or Range("A" & n) = 160 Then
   Range("A" & n) = "42-160"
  End If
Next n
End Sub

Edit: Salut Robert