Probleme de Traduction VB

[batdu07]

Bonjour à tous,

Sachant que :
feuille stock

Colone A = Materiel
Colone B = Minimum
Colone C = Maximum
Colone D = Unite
Colone E = Qté en stock​

les données sur userform :

Combmateriel = choix du materiel
Txtminimum = valeur minimum de la plage de mesure
txtmaximum = valeur maximum de la plage de mesure
Combunite = liste des unités possibles​

je voudrais traduire en langage VB :

" si le materiel est présent dans la liste de la feuille stock et valeur minimum identique et valeur maximum identique et unité identique, alors "

merci pour votre aide
batdu07

 

[skoobi]

Re : Probleme de Traduction VB

Bonjour,

Tu dis:
valeur minimum identique, ok mais par rapport à quoi?
Même remarque pour maximum et unité.

 

[batdu07]

Re : Probleme de Traduction VB

merci pour ton aide

pour etre plus clair dans mes explications voir le fichier joint :

en fait.

lorsque je valide mon userform, je voudrais mettre à jour mon stock (onglet stock de l'exemple).

pour cela il y a 2 possibilités.

soit le materiel que je selectione dans l'userform et déja présent dans le stock (valeur minimum et maximum et unité identique) et dans ce cas, je rajoute (ou j'enleve, en fonction d'un bouton option) la quantité indiquée dans l'userform à celle déja présente dans le stock.

soit le matériel n'est pas présent, dans ce cas l'ensemble des données sont rajoutées à la suite de la liste

cependant meme si tout est traduit en macro vb, il ne me manque que la ligne qui vérifie la présence dans le stock du matériel a rajouter

j espere avoir été assez clair.

batdu07

 

[skoobi]

Re : Probleme de Traduction VB

Re,

Ci-joint une proposition.
Il y avait des erreurs ailleurs dans le code (mis en commentaire).
Je n'ai pas intégré le cas où lors d'un retrait, le stock devient nul ou qu'il puisse être négatif, à toi de voir.

 

[batdu07]

Re : Probleme de Traduction VB

Merci bcp pour ton aide

ça marche nickel

batdu07

 

[batdu07]

Re : Probleme de Traduction VB

Une derniere petite question

comment peut on traduire en vba :

" strictement inferieur "
par exemple :

" si A strictement inferieur à B alors msgbox ( ....) "

merci

batdu07

 

[tototiti2008]

Re : Probleme de Traduction VB

Bonjour à tous,

If A<B then
Msgbox "coucou"
end if

 

[batdu07]

Re : Probleme de Traduction VB

c'est ce qui me semblais

mon code etait :
If A<"0" then msgbox("impossible : qté négative")
if A="0" then msgbox ("plus de materiel en stock")

mais quand A = 0 mon programme affiche : msgbox "impossible qté negative"

pourquoi??

merci pour ton aide

batdu07

 

[tototiti2008]

Re : Probleme de Traduction VB

0 est une valeur numérique, on ne met pas de guillemets autour.

"0" est le texte 0, et les textes sont considérés comme supérieurs aux nombres