Discussion :

[Kedash]

Bonjour à tous!

Ma question est très simple: puis-je utiliser la fonction replace pour remplacer un ensemble de valeurs par une valeur unique?
exemple:
Remplacer toutes les valeurs >1 par 1.

essais de code non fructueux:

Code :

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

1
2
3
Range(Cells(5, 49), Cells(21374, 49)).Replace What:=">1", Replacement:="1"
Range(Cells(5, 49), Cells(21374, 49)).Replace What:>"1", Replacement:="1"
Range(Cells(5, 49), Cells(21374, 49)).Replace What:>1, Replacement:="1"

seul le changement d'une valeur unique vers une valeur unique semble fonctionner:

Code :

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

Range(Cells(5, 49), Cells(21374, 49)).Replace What:="2", Replacement:="1"

Y a-t-il une autre formule (mis à part un If dans une boucle qui parcours toutes les cellules) qui fasse ce que je désire?

Merci d'avance de votre aide!

Kedash

[vanhoa]

Bonjour,

Tu peux utiliser la methode Select Case

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Sub test()
Dim c As Range
 
For Each c In Range(Cells(5, 49), Cells(21374, 49)).Cells
    Select Case c
        Case Is > 1
            c = "ce que tu veux"
        Case Is = 1
            c = "ce que tu veux"
        Case Is < 1
            c = "ce que tu veux"
        Case Else
    End Select
Next c
 
 
End Sub

[Marc-L]

Bonjour, bonjour,

en utilisant le générateur de document et en répondant correctement à la boîte de dialogue,
on s'aperçoit de l'intérêt à porter sur d'autres paramètres, en particulier LookAt,
cf l'aide de cette méthode Range.Replace …

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 03/04/2014 par Marc-L
'
    Range("A1:E20").Select
    Selection.Replace What:=">1", Replacement:="1", LookAt:=xlWhole, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub

[mercatog]

Code :

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

Worksheets("Feuil2").Range("AW5:AW21374") = Evaluate("IF(AW5:AW21374>1,1,AW5:AW21374)")

Seul bémol, les cellules vides seront remplacées par 0

Sinon, on pourra l'éviter par ceci

Code :

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

Worksheets("Feuil2").Range("AW5:AW21374") = Evaluate("IF(AW5:AW21374<>"""",IF(AW5:AW21374>1,1,AW5:AW21374),"""")")

[Kedash]

Tout simplement génial ton code mercatog, merci!

Merci Vanhoa ca fonctionnerait également!

Merci également à toi marc, par contre ton code remplace le texte ">1" par 1, ce que je souhaitais était de remplacer la valeur des cellules qui était supérieures à 1 par 1.

Merci encore à tous!

Kedash --> sujet résolu

[Kedash]

Code :

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

Worksheets("Feuil2").Range("AW5:AW21374") = Evaluate("IF(AW5:AW21374>1,1,AW5:AW21374)")

Seul bémol, les cellules vides seront remplacées par 0

Sinon, on pourra l'éviter par ceci

Code :

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

Worksheets("Feuil2").Range("AW5:AW21374") = Evaluate("IF(AW5:AW21374<>"""",IF(AW5:AW21374>1,1,AW5:AW21374),"""")")

J'ai tout de même un soucis, j'ai essayé d'insérer mon range comme variable mais du coup je ne sais pas quelle synthaxe adopter:
j'ai essayé

Code :

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

1
2
3
4
5
Sub test()
Dim zone As Range
Set zone = Range(Cells(5, 49), Cells(21374, 49))
zone = Evaluate("IF zone>1, 1, zone")
End Sub

Cela me renvoie #VALEUR! dans les cellules testées.

Merci d'avance!

[mercatog]

Code :

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

Zone = Evaluate("IF(" & Zone.Address & ">1,1," & Zone.Address & ")")