modifier un mot par un autre avec des conditions

Version imprimable

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

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€

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

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