Macro à simplifier

Bonjour,

Je voudrais simplifier ce code vba :

Code:

1
2
3
4
5
Range("AS1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Replace What:="", Replacement:="TOTO", LookAt:=xlPart, _
        SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

Y a t-il un moyen ?

Bonjour,

Il y a trop de select.
Je te laisse essayer ce code :

Code:

1
2
3
4
5
 
Range(Range("AS1"), Range("AS1").End(xlDown)).Select
Selection.Replace What:="", Replacement:="TOTO", LookAt:=xlPart, _
        SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

Bonjour

Code:

1
2
3
4
5
With Range("AS1")
    .Resize(.End(xlDown).Row - .Row + 1, 1).Replace What:="", Replacement:="TOTO", LookAt:=xlPart, _
        SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End With

Pour simplifier :
Code:

1 2 3 Range(Range("AS1"), Range("AS1").End(xlDown)).Replace What:="", Replacement:="TOTO", LookAt:=xlPart, _ SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False
Dans un cas de test que j'ai fait très simple

Code:

Range(Range("AS1"), Range("AS1").End(xlDown)).Replace What:="", Replacement:="TOTO"

Fonctionne.

Après je ne sais pas ce que tu veux faire car tu n'explicite pas, mais là tu t'arrête juste avant le première case vide donc tu ne mettras des TOTO nul part vu que tu n'auras que des cellules à contenu.

Si tu veux aller jusqu'en bas de ton tableau je te suggère de remplacer :

Code:

Range("AS1").End(xlDown)

Par :

Code:

Range("AS" & Rows.Count).End(xlUp)

DeathZarakai.

P.S. : Tu as vu Joe j'écoute ce que tu me dis :p