Problème de gestion de stock sous excel 2007

Problème de gestion de stock sous excel 2007 - VB/VBA/VBS - Programmation

Marsh Posté le 17-04-2009 à 16:10:26    

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://cjoint.com/?etaY3BBJlc  
 
 
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

Reply

Marsh Posté le 17-04-2009 à 16:10:26   

Reply

Marsh Posté le 20-04-2009 à 08:26:45    

Personne ne peut m'aider??

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed