recherche dbut dun numero

[julien]

Bonjour a tous,

Voila jai cherche a creer une macro qui analyse le contenue d'une cellule et si celle ci commence par 24 je veux que ma cellule j23 soit egle a 2004

je joint mon code


Sub etoile()
If Range('d2').Value = '24*' Then
Range('J23').Value = '2004'
End If

End Sub

Merci a tous

 

[PascalXLD]

bonjour

essaies ceci

Sub etoile()
If left(Range('d2'),2) = 24 Then Range('J23').Value = '2004'

End Sub