Re : besoin sur recherche find vba
Salut,
Voilà ton code:
Sub jeveuxuncode()
Dim codeexiste As String
codeexiste= Inputbox("As-tu trouvé ton code?")
If codeexiste="oui" Then
Msgbox("Voilà, tu es content?")
ElseIf codeexiste="non" Then
Msgbox("Pas de chance, essaie encore!")
Else
Msgbox("Merci de répondre à la question!")
EndIf
End Sub
Sinon, je te propose sans passer par du code la formule suivante à dérouler vers le bas:
=SI(NB.SI('FEV2012'!$A:$A;A2)>0;"ok";"")