Discussion :

[TEnergie]

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 :

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

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

[alephDi]

essai plutôt avec :

Code :

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

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

pour ne pas exclure "b3"

[patricktoulon]

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 :

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

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 :

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