Mettre à jour une combo en fct d'une colonne

[bobjazz]

Bonjour le Forum

Je reviens avec mon fichier,

J'ai bien avancé grace à vous, mais j'ai toujours un sousi, qui pour vous doit etre tout simple, mais bon pour moi, en 15 jours je bloque, meme en cherchant dans votre base de donnée qui est enorme . Rien

Voila, j'arrive à choisir une combo, mettre à jour une textbox en fct de celle ci dans la meme ligne, mais la, je choisie une combo qui doit mettre à jour une textbox dans la meme colonne, je coince

Merci pour une petite aide

Bobjazz

Piece exemple joint [file name=MagV1_20050821130906.zip size=27867]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/MagV1_20050821130906.zip[/file]

 

[bobjazz]

Re Merci

Tu sais je debute dans le VBA et pour vous, tous ce qui est evident, pour moi par moment, je bloque sur une betise. Et quand on bloque, tu vois tout ce que tu m'as montre, cela faisait 2 semaines que j'etais dessus, et toi clac bientot pour moi j'espere

Une dernier question, si tu veux
pour le preview, j'ai réussi à integrer la colonne prix et faire le total, mais comment je peux faire pour que la colonne prix soit au format nombre standard

Merci

Bobjazz

 

[@Christophe@]

Re,

Pas de problème, je suis passé par la aussi, lol

Pour ton prix, il faut mettre un format(variable, 'format à utilisé')

Envoi ton fichier, avec ton prix, et donne moi le formats que tu veux

 

[bobjazz]

Re

Merci

Fichier joint [file name=MagV1preview.zip size=34253]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/MagV1preview.zip[/file]

Je sais qu'il faut mettre une variable, mais j'etais entrain de chercher où et comment

Voudrais garder style '#.00'

Merci de ta comprehension

Bobjazz

 

[@Christophe@]

Re,

Voila pour ton fichier


Bonne fin de dimanche [file name=MagV1preview_20050821190102.zip size=34919]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/MagV1preview_20050821190102.zip[/file]

 

[bobjazz]

Re

Merci super
A moi d'apprendre et d'enmagasiner tous cela

Merci
Fini pour ce Fil
Fini ce votre patience
Bobjazz

 

[bobjazz]

re

Encore moi, je pense une derniere question,

Comment faire pour que les textBox qui servent pour la gestions, lorsqu'elles sont vides, cela bug, il faut que je rentre imperativement un chiffre meme 0
J'ai essayer de mettre une ligne de commande du style

If Me.TxtVente = '' Then
TxtVente = 0

ou

If Me.TxtVente = '' Then
MsgBox 'Indiquer une vente.', vbCritical
End If
La 2eme fonctionne

Mais je pense qu'il y a plus simple et surtout on n'oblige pas à remplir
je n'ai pas trouve la solution pour dire que 'vide TxtVente = 0'

Merci
Bonne soirée
Bobjazz

 

[bobjazz]

Re Bonsoir

@Christphe@

J'ai trouvé, il fallait les mettre dans initialise

Je te remercie pour ton aide

@+

Bonne Soirée

Bobjazz

 

[ChTi160]

Salut bobjazz
bonsoir et bonne fête @Christophe@

un petit fichier qui te permettra peut être d'avancer [file name=TestTextBox.zip size=8665]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/TestTextBox.zip[/file]

 

[bobjazz]

Bonsoir Jean Marie

Merci de ta réponce, je vais creuser sur ce que tu viens de me donner, j'avais trouvé une solution, en initialisant à 0, mais j'ai crée un bug aillieur,
je te tiens au courant

Merci

Bobjazz

 

[ChTi160]

re
j'ai fais ce petit fichier car dans le tiens je n'ai pas trouvé de textBox TxtVente je ne dois pas avoir le bon

bonne fin de Soirée

 

[bobjazz]

Re
Bonsoir

Je te passe le fichier avec les TxtBox qui étaient caché dans la frame, je les ai resorti, tu verras, je bug ici

Private Sub TxtTransf_Change()

TxtStockFin = CInt(TxtUpdateV.Value) + CInt(TxtTransf.Value)
TxtUpdateT = CInt(TxtNbre.Value) - CInt(TxtTransf.Value)
End Sub

Merci

[file name=MagV3.zip size=31366]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/MagV3.zip[/file]

Bobjazz

 

[bobjazz]

ReBonsoir

Voila le code qui fonctionne

Option Explicit

Private Sub UserForm_Initialize()
Dim i As Integer

For i = 4 To Range('B4').End(xlDown).Row
CbxPiece.AddItem Feuil1.Range('B' & i).Value
Next i

For i = 9 To Range('AH3').End(xlToLeft).Column
CbxCar.AddItem Feuil1.Cells(3, i).Value
Next i

CbxPiece.ListIndex = 0
CbxCar.ListIndex = 0
TxtVente = 0
TxtTransf = 0
End Sub

Private Sub CbxPiece_Change()
Update
End Sub

Private Sub CbxCar_Change()
Update
End Sub

Private Sub TxtVente_Change()
TxtUpdateV = CInt(TxtPieceTotal.Value) - CInt(TxtVente.Value)
End Sub

Private Sub TxtTransf_Change()
TxtStockFin = CInt(TxtUpdateV.Value) + CInt(TxtTransf.Value)
TxtUpdateT = CInt(TxtNbre.Value) - CInt(TxtTransf.Value)
End Sub

Private Sub CmdValid_Click()
Cells(CbxPiece.ListIndex + 4, CbxCar.ListIndex + 9).Value = TxtStockFin.Value
Cells(CbxPiece.ListIndex + 4, CbxCar.ListIndex + 8).Value = TxtUpdateT.Value
Unload Me
UserCar.Show
End Sub

Private Sub CmdExit_Click()
Unload Me
End Sub

Private Sub Update()
TxtNbre = Range('H' & CbxPiece.ListIndex + 4)
TxtPieceTotal = Cells(CbxPiece.ListIndex + 4, CbxCar.ListIndex + 9).Value
End Sub

Mais il y a un ennuie, si je me rend compte que sur les 2 valeurs qui servent à mettrent à jour c.a.d. 'TxtVente et TxtTransf' je modifie une il ne prend pas en compte la modif

Je remercie encore le Forum ,le Fil, ChTi160 et surtout @Christophe@

Bobjazz

 

[bobjazz]

Bonsoir

Une derniere question pour @Christophe@ ou quelqu'un qui a la réponce au sujet du fichier MagV1preview.xls, je l'ai fait évoluer et il fonctionne avec 30 lignes, mais ma base fait 650 lignes et là.

J'ai un message
Erreur d'execution '6'
Depassement de Capacité

J'ai dit @Christophe@ parceque c'est lui qui a commencé le fichier

Merci
Aprés je mettrai dans le titre le Fil fini

Bobjazz

 

[ChTi160]

Salut bobjazz
bonsoir le Fil
bonsoir le Forum
je pense que ton problème vient de la déclaration d'une Variable en Byte ex Dim L as Byte n'est opérationnnelle que sur 255 lignes Maximun donc pour 600 c'est Trop
il faut donc pour un nombre de lignes Supérieur a 255 Déclarer ta Variable Integer ex Dim L as Integer

 

[bobjazz]

Fil Clos

Merci à tous les participants

Surtout à @Christophe@ et ChTi160

ChTi160 super
Dim i as Integer et non as Byte
cela marche

Merci

Bobjazz