Mettre à jour une combo en fct d'une colonne

bobjazz

XLDnaute Impliqué

• 21 Août 2005

• #31

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

 

Vote positif 0 Vote négatif

@

@Christophe@

XLDnaute Occasionnel

• 21 Août 2005

• #32

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

 

Vote positif 0 Vote négatif

bobjazz

XLDnaute Impliqué

• 21 Août 2005

• #33

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

 

Pièces jointes

• MagV1preview.zip

  33.5 KB · Affichages: 17

Vote positif 0 Vote négatif

@

@Christophe@

XLDnaute Occasionnel

• 21 Août 2005

• #34

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]

 

Pièces jointes

• MagV1preview_20050821190102.zip

  34.1 KB · Affichages: 14

Vote positif 0 Vote négatif

bobjazz

XLDnaute Impliqué

• 21 Août 2005

• #35

Re

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

Merci
Fini pour ce Fil
Fini ce votre patience
Bobjazz

 

Vote positif 0 Vote négatif

bobjazz

XLDnaute Impliqué

• 21 Août 2005

• #36

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

 

Vote positif 0 Vote négatif

bobjazz

XLDnaute Impliqué

• 21 Août 2005

• #37

Re Bonsoir

@Christphe@

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

Je te remercie pour ton aide

@+

Bonne Soirée

Bobjazz

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 21 Août 2005

• #38

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]

 

Pièces jointes

• TestTextBox.zip

  8.5 KB · Affichages: 11

Vote positif 0 Vote négatif

bobjazz

XLDnaute Impliqué

• 21 Août 2005

• #39

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

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 21 Août 2005

• #40

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

 

Vote positif 0 Vote négatif

bobjazz

XLDnaute Impliqué

• 21 Août 2005

• #41

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

 

Pièces jointes

• MagV3.zip

  30.6 KB · Affichages: 27

Vote positif 0 Vote négatif

bobjazz

XLDnaute Impliqué

• 21 Août 2005

• #42

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

 

Vote positif 0 Vote négatif

bobjazz

XLDnaute Impliqué

• 23 Août 2005

• #43

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

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 23 Août 2005

• #44

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

 

Vote positif 0 Vote négatif

bobjazz

XLDnaute Impliqué

• 23 Août 2005

• #45

Fil Clos

Merci à tous les participants

Surtout à @Christophe@ et ChTi160

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

Merci

Bobjazz

 

Vote positif 0 Vote négatif