Discussion :

[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 :

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

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 :

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

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 :

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
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 :

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

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