Problème de gestion de stock sous excel à l'aide de formulaire

Bonjour à tous,


J'ai un petit soucis avec la programmation de mon excel,

Je souhaite effectuer une recherche sur mon classeur excel pour ensuite lui affecter un calcul!
J'ai utilisé pour cela un formulaire où il est demandé les informations suivantes:

- profil de l'acier
- dimension du profil
- longueur du profil
- traitement du profil
et quantité à soustraire à mon stock

Voilà mon code :

'je démarre ma recherche ici'
'il faut que le profil, la dimensions et la longueur soient identiques afin de pouvoir effectuer le calcul'


Citation :

With stock.Range("a5:a100" )

Set asortie = .Find("txtprofilsortie", LookIn:=xlValues)

If Not asortie Is Nothing Then

MsgBox "le profil n'existe pas"

Exit Sub
End If

With stock.Range("b5:b100" )

Set bsortie = .Find("txtdimsortie", LookIn:=xlValues)

If Not bsortie Is Nothing Then

MsgBox "Cette dimension n'est pas disponible pour ce profil "

Exit Sub
End If

With stock.Range("c5:c100" )

Set csortie = .Find("txtlongsortie", LookIn:=xlValues)

If Not csortie Is Nothing Then

MsgBox "Cette longueur n'est pas disponible pour ce profil"

Exit Sub
End If

'il manque la partie ou je calcul la soustraction sachant que je dois vérifier qu'il y a assez de quantit avant d'effectuer le calcul'
'la quantité se situe sur la colonne d et la valeur devrait affecté la ligne correspondant à la recherche'


End With
End With
End With


End Sub




Voici le lien
http://xxxxxxxxxxxxxxxxxxxxxxxxxx


DOnc voilà mes deux problèmes:

-Ma recherche ne marche dès la première ligne de code
- comment effectuer le calcul

Je suis débutant j'ai lus pas mal de tuto mais je ne m'en sort pas

SVP aidez moi

Cordialement

Configuration: Windows Vista
Firefox 2.0.0.20