Merci pour la rapidité de ta réponse, le fait est que je préfère le réaliser en VBA, puisque je devrais l'intégrer ensuite dans une macro plus compliqué, ceci n'est donc qu'un test, mon utilisation ne se limite pas à ca.
Si t'as une autre proposition, je te remercie, la macro en question est dans le module1.
Sub contient()
Dim j As Long, c As Range
j = Range("B65536").End(xlUp).Row
For Each c In Sheets("DW").Range("B2:B" & j)
If c.Value Like "*DW*" Then
c.Offset(0, 1).Value = "OUI"
Else
c.Offset(0, 1).Value = "Non"
End If
Next c
End Sub
@Remady, pas besoin d'avoir 2 boucles pour parcourir un colonne, une seule suffit:
Code:
Sub contient()
Dim i As Long, j As Long, c As Range
j = Range("B65536").End(xlUp).Row
For Each c In Sheets("DW").Range("B2:B" & j)
If c.Value Like "*DW*" Then
c.Offset(, 1).Value = "OUI"
Else
c.Offset(, 1) = "Non"
End If
Next
End Sub
Sub contient()
Dim c As Range
For Each c In Sheets("DW").Range("B2:B" & Range("B65536").End(xlUp).Row)
c.Offset(, 1) = c Like "*DW*"
Next
End Sub
Ou si tu tiens a avoir oui et non
Code:
Sub contient()
Dim c As Range
For Each c In Sheets("DW").Range("B2:B" & Range("B65536").End(xlUp).Row)
c.Offset(, 1) = IIf(c Like "*DW*", "Oui", "Non")
Next
End Sub
le mieux eut été de préciser que tu recherchais une solution vba, et de décrire le problème directement sur le post... A mon avis tu aurais sans doute eut une réponse plus rapidement....