prob USF avec des classeurs

[bobjazz]

Bonjour le Forum

En dessous il y a le code d'un USF, il fonctionne trés bien si il y a que son classeur d'ouvert, si je travaille avec un autre ouvert, il va chercher les informations sur le nouveau.

Encore debutant, je sais il faut declarer que je travaille sur la feuille de son classeur, mais depuis hier je bloque

Quelqu'un peut m'aider

Merci

Bobjazz


Option Explicit


Private Sub CmdValid_Click()

End Sub

Private Sub UserForm_Initialize()

' on remplie les numeros des pièces

Dim i As Integer
Dim Article As String

For i = 2 To Feuil1.Range('B4').End(xlDown).Row
Article = Feuil1.Range('B' & i).Value
ListBox1.AddItem Article
Next i
End Sub


Private Sub ListBox1_Click()
Dim i As Integer
' on remplie les données fixes en fct du n° choisi

i = ListBox1.ListIndex + 2
CmdValid.Visible = True
CmdExit.Visible = True
TextBox1 = Sheets(1).Range('H' & i).Value
TextBox4 = Format(Sheets(1).Range('F' & i).Value, '0.00')
TextBox7 = Sheets(1).Range('D' & i).Value
TextBox8 = Sheets(1).Range('C' & i).Value
End Sub


Private Sub CmdExit_Click()
Unload UserApproMag
End Sub

 

[bobjazz]

Salut Creepy
Super et tes explications simples, mais il va falloir que je relise en notant, sinon grand merci, cela va me servir

Je suis entrain de le faire evoluer, si j'ai besoin de toi, prefere tu que je continue sur ce fil ou j'en lance un autre, sachant que si je suis dessus

Merci encore

Bobjazz

 

[bobjazz]

Bonsoir Creepy

Petit sousi de reinitialisation de l'usf

avec cela ca marche

Private Sub ReInitialisation()
Ini = True
With Me
.TxtUpdateStock = ''
.TxtPrixPond = ''
End With
End Sub


et avec cela ca bug, je ne reinitialise pas les 2autres peux tu voir pourquoi

Private Sub ReInitialisation()
Ini = True
With Me
.TxtUpdateStock = ''
.TxtNvQuantite = ''
.TxtPrixPond = ''
.TxtNvPrix = ''
End With
End Sub

je te joint le fichier retravaille [file name=Magasin_Creepy_V2.zip size=27772]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Magasin_Creepy_V2.zip[/file]

Merci

Bobjazz

 

[bobjazz]

Bonsoir
Excuse moi
Mais en lisant comme il faut tes commantaires j'ai vu cette phrase
(' tu peux mettre ME pour decharger la userform, VBA se doute que Moi = userform en cours)
et je me suis rappeller aussi d'une pharse de @+Thierry qui m'a aide au debut

alors j'ai mis
Unload Me
UserApproMag.Shown
End Sub

Et cela marche

Merci
@+Bobjazz

 

[bobjazz]

Bonsoir Creepy, le Fil et le Forum

Tout fonctionne comme je veux, mais j'ai un probleme que j'ai esssayé de resoudre toute la journée, mais dur pour moi.

Dans la cellule Appro(M), si il y a un chiffre, no problem, mais si elle est vide BUG mon but additionne toutes les appro pour le mois que je viderai quand j'ai pris mon info

Merci pour l'info

Bobjazz

USF joint