Amelioration d un code

Version imprimable

Bonjour j ai ecrit un code devant renvoye un mot si ce dernier est trouve dans la cellule selectionne.
Tout d abord le code ne marche pas pour le second if alors au il marche pour le premier. Je ne comprends pas pourquoi?
Ensuite serait il possible de le simplifier?
Merci d avance

Voici mon code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Sub text2() Dim c As Range For Each c In Range("B2,B4") If Not c.Find("Weekend") Is Nothing Then Cells(c.Row, 1).Value = "Weekend" End If If Not c.Find("Day Ahead") Is Nothing Then Cells(c.Row, 1).Value = "Day Ahead" End If Next End Sub

17/03/2012, 08h46
alephDi

essai plutôt avec :

Code:

For Each c In Range("B2:B4")

pour ne pas exclure "b3"

heu

bonsoir

tout d'abord il y a un amalgame de boucle qui n'est pas cohérente

tu utilise une boucle "for each"
et tu utilise une boucle find (fonction native en vba)

on ne procede pas comme ca

si su utilise for each

on ne met pas c.find on met c tout court

donc :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Sub text2()
 Dim c As Range
For Each c In Range("B2:B4")
     If  c.value="Weekend"= Then
        Cells(c.Row, 1).Value = "Weekend"
    End If
 'et pareil ici 
    If  c.value="Day Ahead" Then
        Cells(c.Row, 1).Value = "Day Ahead"
    End If
Next
End Sub

maintenant si tu utilise la methode find
'et ici on precise dans quel sheet on travail

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Sub text2()
With Worksheets(1).Range("b2:b4")
    Set c = .Find(="Weekend", lookin:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            c.offset(0,1) = "Weekend"
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With
 
 
With Worksheets(1).Range("b2:b4")
    Set c = .Find(="Day Ahead", lookin:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            c.offset(0,1) = "Day Ahead"
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With
 
 
 
 
end sub

au plaisir