Remplacer un texte par un autre écrit dans une cellule

Bonjour,

Je suis novice en VBA, quelques petites macro simples (voir très simple) à mon actif.

Voici mon besoin:

Je souhaite sélectionner la colonne B à partir de B5 jusqu'à la dernière cellule non vide, puis remplacer "DEP 0" par "rien" uniquement dans la sélection. Mais aussi ce que je souhaite c'est remplacer par un texte écrit dans un cellule.

Pour être sûr de bien expliquer, par exemple:

En A1 j'écrit : DER 0 et du coup tous ce qui ce trouve dans la colonne B sélectionnée DER 07895 deviendrai 7895.

Voilà merci de votre aide.

Bonjour,

à tester,

Sub Test()
derligne = Cells(Rows.Count, 2).End(xlUp).Row
Range("B5:B" & derligne).Replace What:="DEP 0", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub

Ok merci ça fonctionne nickel, mais aurais tu quelque chose pour que What:="DEP 0" soit dans la cellule A1 et que du coup je puisse modifier le texte dans A1 en fonction de mon besoin?

re,

bien sur,

Sub Test()
derligne = Cells(Rows.Count, 2).End(xlUp).Row
Range("B5:B" & derligne).Replace What:=Range("A1").Value, Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub

Merci nickel

j 'suis bien contente que tout fonctionne,

merci pour ce retour et bonne continuation, @+ isabelle