Discussion :

[grisan29]

bonjour a tout le forum

dans une gestion de stock quand le défilement arrive sur une qté de stock inférieure au mini imposé, dont voici son code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
i = 2
If TextBox_Qté_sto = 0 Then
        TextBox_Qté_sto.Font.Bold = True
        TextBox_Qté_sto.BackColor = vbRed
    Else
        TextBox_Qté_sto.Font.Bold = False
        TextBox_Qté_sto.BackColor = &H8000000F
        TextBox_Nom_prod = Feuil1.Cells(i, 2)  
  End If

le TextBox_Qté_sto prend la couleur rouge qui est très bien, mais peut 'il envoyer le nom de l'article concerné en feuil1 comme la ligne souligné que j'ai essayé d'intégré au code mais sans résultat
donc en résumé serai t'il possible dès lors de l'affichage rouge du TextBox_Qté_sto qu'une ligne se crée en feuil1(qui deviendra commande)avec les références de l'article qui sont dans d'autres textbox

si je n'ai pas été assez clair n'hésitez pas à en demander plus

cordialement

Pascal

[Touffe54]

Salut Grisan,

Il me semble que ta ligne de code soulignée n'est pas au bon endroit. Tu devrais la mettre dans la première partie de ton bloc If, du moins si j'ai bien compris ce que tu voulais faire.

[grisan29]

bonjour Touffe54

justement je revenais sur le forum pour signaler que la ligne n'était pas bien positionnée comme tu me le dit

Merci beaucoup de ta réponse

Pascal

bonjour a vous tous

pour faire suite a ce post que j'avais laissé de coté
comment puis je faire si le TextBox_Qté_sto_plomb devenais rouge(pas de honte) mais de mini stock qu'il puisse transmettre en feuille "commande" les données des textbox qui concernent l'article soit
prendre les données directement sur la feuille"plomberie" dans ce cas
mais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

if TextBox_Qté_sto_plomb=1 then au lieu de 0

la ligne soulignée dans le post précédent n'est qu'un exemple et d'aucune utilité dans le code complet

merci par avance

Pascal

[patricktoulon]

bonjour grizan


pourrais tu t'expliquer un peu mieux car la je ne comprend pas tres bien

comment ce textbox ext inscrit?

et pour quoi pas faire ca par le textbox

et pourquoi pas le faire dans la macro qui alimente ce texbox directement avec la valeur de la celule

le principe:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
if ta celule .value< X then 
article=ta celule .value
with sheet("commande")
.cell(.Cells(Rows.Count, 1).End(xlUp).Row,la colonne des nom d'article).value=article
.cell(.Cells(Rows.Count, 1).End(xlUp).Row,la colonne desquantités).value=(lenombre que tu veux)

voila en gros le principe


au plaisir

[grisan29]

bonjour Patrick

merci de ta réponse,
lorsqu'un article arrive a son stock mini (1 en l'occurance)dans le

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

TextBox_Qté_sto_plomb

le fond du textbox_qté deviens rouge par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

TextBox_Qté_sto_plomb .BackColor = vbRed

dans ce cas comment faire pour que les infos de l'article concerné soit envoyé en feuille "commande" dès que l'article arrive a son mini

je n'ai pas encore défini l'ordre de réception en feuille "commande"

je te joint le code complet

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
Private Sub SpinButton_plomb_Change()
 
    i = SpinButton_plomb.Value
    'Empêche de trop remonter
    If i < 2 Then
        i = 2
        SpinButton_plomb.Value = i
    End If
    'récup les infos
    If i > 1 Then
        RefProd = Feuil1.Cells(i, 1)
        TextBox_Num_série_plomb = Feuil1.Cells(i, 2)
        TextBox_Nom_prod_plomb = Feuil1.Cells(i, 3)
        TextBox_Desc_plomb = Feuil1.Cells(i, 4)
        TextBox_Cat_plomb = Feuil1.Cells(i, 5)
        TextBox_Taille_plomb = Feuil1.Cells(i, 6)
        TextBox_Qté_sto_plomb = Feuil1.Cells(i, 7)
        TextBox_Seuil_plomb = Feuil1.Cells(i, 8)
        TextBox_PUV_plomb = Feuil1.Cells(i, 9)
        RefFrn = Feuil1.Cells(i, 10)
        TextBox_PUA_plomb = Feuil1.Cells(i, 11)
        TextBox_Délai_plomb = Feuil1.Cells(i, 12)
    End If
 
    'Vide si pas de produit
    If RefProd = 0 Then
        TextBox_Num_série_plomb = ""
        TextBox_Nom_prod_plomb = ""
        TextBox_Desc_plomb = ""
        TextBox_Cat_plomb = ""
        TextBox_Taille_plomb = ""
        TextBox_Qté_sto_plomb = ""
 
        TextBox_Seuil_plomb = ""
 
        TextBox_PUV_plomb = ""
        TextBox_Nom_Frn_plomb = ""
        TextBox_Num_Frn_plomb = ""
        RefFrn = 0
        TextBox_PUA_plomb = ""
        TextBox_Délai_plomb = ""
        TextBox_Qté_sto_plomb.Font.Bold = False
        TextBox_Qté_sto_plomb.BackColor = &H8000000F
        Exit Sub
    End If
 
    'Affiche si stock égale zéro
    If TextBox_Qté_sto_plomb = 1 Then
        TextBox_Qté_sto_plomb.Font.Bold = True
        TextBox_Qté_sto_plomb.BackColor = vbRed
    Else
        TextBox_Qté_sto_plomb.Font.Bold = False
        TextBox_Qté_sto_plomb.BackColor = &H8000000F
    End If
        'Affiche le nom du fournisseur
    j = 2
    While Feuil9.Cells(j, 1) <> ""
        If Feuil9.Cells(j, 1) = RefFrn Then
            TextBox_Nom_Frn_plomb = Feuil9.Cells(j, 2)
        End If
        j = j + 1
   Wend
 
    button_valider_plomb.Visible = False
 
    Button_Créer_plomb.Visible = True
 
End Sub

ceci fait partie de mon fichier stock qui est accessible par le bouton liste stock, mais que je voudrais adapter également au

Txtrestant de mon frMateriel

voila a peu près ce que je vois a en dire

cordialement
bon week end

Pascal

[patricktoulon]

dans ce cas la

c'est comme je te l'ai precedemment cite dans lexemple de principe

tu met ce que je t'ai donné dans le change du textbox et faire pareil pour les autres
ps:

j'ai constaté que le userform que nous avions mis au point "fichierclient" je ne sais pas si tu t'en souviens a fait le tour de la planete et sussite encore des questions
au plaisir