Suppression d'un texte dans plusieurs cellules

Question

Je n'arrive pas à supprimer correctement un texte dans plusieurs cellules d'une colonne dans Excel. La feuille ressemble à ceci :

123 456 7|
123 456 7|
123 456 7|

Je veux juste me débarrasser de la 123 456. (Au fait, 123 456 7 sont tous dans une seule cellule)

Je pense qu'il y a une erreur dans mon code :

Sub RemoveText()

Dim cell As Range

For Each cell In Range("A1:A3")
    cell.Value = Replace(cell.Text, "123 456", "", Count:=2)
Next

End Sub

Answer 1

Vous devez utiliser cell.Value également dans la fonction de remplacement

Sub test()

Dim rng As Range
Set rng = Range("A1:A3")

For Each cell In rng
    cell.Value = Replace(cell.Value, "123 456", "")
Next cell

End Sub

Answer 2

Pas besoin d'une boucle ou .value vs. .text . Une simple phrase suffira :

Range("A1:A3").Replace "123 456","",xlPart

N'oubliez pas que la fonction de remplacement peut mobiliser des ressources lorsqu'elle est utilisée sur des plages à forte densité de formules ou de données.