Problème de gestion de stock sous excel 2007 - VB/VBA/VBS - Programmation
MarshPosté 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'
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'
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