Discussion :

[chito79000]

Bonjour,

Je voudrais simplifier ce code vba :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[Stanler]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[joe.levrai]

Bonjour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[DeathZarakai]

Pour simplifier :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("AS1").End(xlDown)

Par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

DeathZarakai.

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