Selection d'une plage

[Maximom]

Bonjour,
toujours sur mon tableau, j'aimerai connaitre la formule pour travailler sur une plage.
Par exemple toutes les colonne A à C
Voila ce que je souhaite faire sur ces colonnes:
Cells.Replace What:='- ', Replacement:='', LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Cells.Replace What:='\\', Replacement:='-', LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Cells.Replace What:='|', Replacement:=' ', LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Cells.Replace What:='(', Replacement:=' ', LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Cells.Replace What:=')', Replacement:=' ', LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Cells.Replace What:='''', Replacement:=' ', LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Dim lastrow, lastcolumn


Merci

 

[myDearFriend!]

Bonjour Maximom,

Pas sûr d'avoir tout compris à vrai dire...

A tout hasard, tu peux peut-être essayer comme ça :

Sub Remplacement()
Dim T1 As String, T2 As String
Dim i As Byte
      With Sheets('Feuil1').Range('A:C')
            For i = 1 To 6
                  T1 = Choose(i, '- ', '', '|', '(', ')', '''')
                  T2 = Choose(i, '', '-', ' ', ' ', ' ', ' ')
                  .Replace What:=T1, Replacement:=T2, LookAt:=xlPart, _
                  SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
                  ReplaceFormat:=False
            Next i
      End With
'Dim lastrow, lastcolumn
End Sub

Par ailleurs, je ne vois pas trop ce que le Dim lastrow, lastcolumn vient faire à cet endroit. Pour info, les déclarations de variable (Dim) doivent toujours se faire en tête de procédure et non au milieu...

Cordialement,

 

[Maximom]

je pense que c'est bon,
je viens de l'essayé ça bugue un peu mais ça marche.

Merci beaucoup pour ton coup de pouce!