[XL-2007] modifier un mot par un autre avec des conditions

[skipeemed]

Bonjour,

Je me base sur cet exemple:

....A.......B....
Produit...Prix
Café1.....5euro
Café2......N/A
Lait1.......N/A
Lait2......1euro

J'ai besoin d'une macro qui me remplace tous les cafés dont le prix est N/A en 5euro et tous les laits dont le prix est N/A en 1euro.

Moi je connais pour l'instant que ce code la qui me modifie les N/A en 5euro :

Code :

1
2
3
4
5
 
Columns("B:B").Select
Selection.Replace What:="N/A", Replacement:="5euro", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

Quelqu'un peut m'aider
Cdt,
Skip

[PolyAmide]

Mouais ça va que je suis sympa, que j'ai aussi bien galéré en débutant (il y a 1mois) et aussi que j'attends un réponse à mon propre problème.

test ça:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub remplacer()
 
Dim i As Integer 'i est ton numéro de ligne
 
For i = 2 To 50 'ta plage de donnée
    If Cells(i, 2).Value = "N/A" And Cells(i, 1).Value Like "caf*" Then 'cells(i,2) le 2 correspond à la colonne 2
        Cells(i, 2).Value = "5euros"
    ElseIf Cells(i, 2).Value = "N/A" And Cells(i, 1).Value Like "lai*" Then
        Cells(i, 2).Value = "1euros"
    End If
 
Next
 
End Sub

C'est pas un code magnifique mais tu peux coller autant de ligne que tu vaux pour d'autres produits avec un ElseIf etc ...

Ca fera 10€

[patricktoulon]

un exemple avec find et find next:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub recherche()
With Worksheets(1).Range("a1:a500")
    Set c = .Find("café", LookIn:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
           If c.Offset(0, 1).Value = "N/A" Then c.Offset(0, 1).Value = "5€"
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With
 
With Worksheets(1).Range("a1:a500")
    Set c = .Find("lait", LookIn:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
           If c.Offset(0, 1).Value = "N/A" Then c.Offset(0, 1).Value = "1€"
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With
End Sub

[patricktoulon]

allez on est parti

on va maintenant appliquer le filtre de recherche sur la colonne b histoire de voir un peu toutes les possibilités

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
 
With Worksheets(1).Range("b1:b500")
    Set c = .Find("N/A", LookIn:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
           If c.Offset(0, -1).Value = "café" Then c.Value = "5€"
            If c.Offset(0, -1).Value = "lait" Then c.Value = "1€"
 
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With

voila

au plaisir