Besoin aide pour finaliser USF

[tactic6]

Bonjour le forum
Je reviens vers vous car je bloque sur 2 trucs simples mais que je n'arrive pas à résoudre

Dans le fichier joint les explications des mes soucis
Merci d'avance pour votre éventuelle aide et bon WE de Pentecôte à tous

 

[Paritec]

Re : Besoin aide pour finaliser USF

Re Forum Tactic tous
une autre version avec ajout de ta sélection directement de ta listbox1, tu double cliques sur la ligne que tu souhaites ajouter
tu peux aussi cliquer sur Ok cela marche aussi et j'ai converti les valeurs en numérique pour tes calculs futur
a+
papou 🙂

 

[tactic6]

Re : Besoin aide pour finaliser USF

Merci encore pour votre aide mais j'ai un probleme que je n'arrive toujours pas a resoudre
Quand je mets l'USF dans mon projet il ne va pas chercher dans la bonne feuille
comment faire pour lui dire sur quelle feuille il doit "lire" les infos ?
Merci

 

[Paritec]

Re : Besoin aide pour finaliser USF

Re Tactic tous,
ce serait plus simple que tu mettes en pièce jointe ton vrai fichier dénué de renseignements confidentiel
a+
Papou 🙂

 

[tactic6]

Re : Besoin aide pour finaliser USF

Re
oui je sais mais il fait 12 Mo et même épuré tu peux imaginé la taille et c'est bien pour ça qu'a chaque fois j'ai énormément de mal à tout faire cohabiter
Actuellement cet idiot USF me prend la listes des clients plutôt que celle des articles et je ne vois vraiment pas comment inverser la chose.

 

[Paritec]

Re : Besoin aide pour finaliser USF

Re tactic
bah moi vu de chez moi je vois pas trop non plus, mais ton fichier tu fais une copie puis tu retires toiut sauf l'usf et la feuille article et cela va passer comme une lettre à la poste autrement "www.Cjoint.fr" là jusqu'a 1024 kilos octets c'est bon
a+
Papou 🙂

 

[tactic6]

Re : Besoin aide pour finaliser USF

Re
encore dans mes tests

Le code de l'USF fait appel à une base "clients" que j'utilise déjà
Des que je modifie le code et remplace "clients" par "mazone" ma base pour mes articles j'ai une erreur "Objet requis" comme si mon Usf n'existait pas

Le code de l'Usf d'origine

Dim NbCol As Byte, i As Byte

Private Sub ListBox1_Click()
For i = 1 To 4
    Controls("TextBox" & i) = ListBox1.Column(i - 1)
  Next i
End Sub

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
With Sheets("SAISIE")
        For i = 1 To 4
            If i < 3 Then
                .Cells(vLi, i + 1) = Controls("TextBox" & i)
            Else
                .Cells(vLi, i + 1) = Controls("TextBox" & i) * 1
            End If
        Next
    End With
    Unload Me
    Cells(vLi + 1, 2).Select
End Sub

Private Sub UserForm_Initialize()
  NbCol = [clients].CurrentRegion.Columns.Count
  ListBox1.ColumnCount = NbCol
  ListBox1.List = Range("clients").Resize(, NbCol).Value
End Sub
Private Sub TextBox5_Change()
  Dim Plage As Range, C As Range, Premier As String, Lig As Integer, Col As Byte
  ListBox1.Clear
  Set Plage = [clients].Resize(, NbCol)
  Set C = Plage.Find(TextBox5, , , xlPart)
  If Not C Is Nothing Then
    Premier = C.Address
    Do
      ListBox1.AddItem
      Lig = C.Row - Plage.Row + 1
      For Col = 1 To NbCol
        ListBox1.List(i, Col - 1) = Plage.Cells(Lig, Col)
      Next Col
      Set C = Plage.FindNext(C)
    Loop While Not C Is Nothing And C.Address <> Premier
  End If
End Sub

Private Sub CommandButton2_Click()
    With Sheets("SAISIE")
        For i = 1 To 4
            If i < 3 Then
                .Cells(vLi, i + 1) = Controls("TextBox" & i)
            Else
                .Cells(vLi, i + 1) = Controls("TextBox" & i) * 1
            End If
        Next
    End With
    Unload Me
    Cells(vLi + 1, 2).Select
End Sub
Private Sub CommandButton3_Click()
  For i = 1 To 5
    Controls("Textbox" & i) = ""
  Next i
End Sub

Quelqu'un aurait il une explication pour me faire avancer ?

 

[Paritec]

Re : Besoin aide pour finaliser USF

Re Tactic,
Tu ne veux faire vraiment aucun effort !!!!
alors il faut savoir déjà si ta liste mazone existe?, car pour le moment pour charger la listbox1 tu utilises la liste nommée clients
il faut que tu changes et que tu utilises ta liste nommée mazone si elle existe bien sur, mais sans fichier cherche un peu puisque tu ne veux pas l'envoyer.
mais c'est sur que si tu charges la liste clients tu n'auras jamais les articles
après tu changes dans
Private Userform_Initialize Clients en mazone

a+
papou 🙂

 

[tactic6]

Re : Besoin aide pour finaliser USF

Re
Mais oui je l'ai fait
j'essaie même de supprimer un max de chose pour envoyer un fichier mais j'ai 10 onglets et 40 modules avec 10 userform et quand j'épure tout j'ai une erreur d'excel et mes suppressions réapparaissent
Donc je recommence et je sauvegarde mon fichier au fur et a mesure mais c'est un peu long désolé
Mais je fais des efforts car j'en suis le principal intéressé
Un peu de patience SVP

 

[tactic6]

Re : Besoin aide pour finaliser USF

Re
ça y est
voici le lien pour le fichier récalcitrantCijoint.fr - Service gratuit de dépôt de fichiers

 

[Paritec]

Re : Besoin aide pour finaliser USF

re bonsoir Tactic,
alors le nombre de colonne de ce fichier n'est pas le même que dans ton exemple alors j'ai adapté si c'est pas cela!!!!!!!!!!!
bonne soirée
a+
papou 🙂

Cijoint.fr - Service gratuit de dépôt de fichiers

 

[Paritec]

Re : Besoin aide pour finaliser USF

Re Re re Tactic le forum
j'avais oublié de modifier la recherche de la textbox5
revoilà le fichier avec la modif
a+
Papou 🙂
Cijoint.fr - Service gratuit de dépôt de fichiers


EDIT Tactic je ne sais pas si tu as Winrar mais en .rar ton fichier fait 121 kilos en Zip 384 kilos
je suis sur que si tu as winrar ton fichier complet ferais 1mo pas plus et je viens de voir que les fichiers sur cijoint peuvent maintenant faire jusque 8 mo alors là c'est top

 

[tactic6]

Re : Besoin aide pour finaliser USF

Merci de ne pas avoir abandonner
par contre sur la liste des articles les codes sont dans la colonne A
peux tu me dire la manip a faire pour tout recadrer
Merci

EDIT
J'ai bien Winrar

 

[Paritec]

Re : Besoin aide pour finaliser USF

re tactic
Attend 5 minutes je renvois avec la modif aussi le code tva est pas ua bon endroit
a+
papou 🙂

 

[Paritec]

Re : Besoin aide pour finaliser USF

Re Tactic
bon je te propose un .rar mais cijoint ne le prend pas !!!!
alors tu l'auras en zip
voilà la petite modif de liste et de tva et de formule
pour les autres modifs ce sera demain car là je te quitte
a+
papou 🙂

Cijoint.fr - Service gratuit de dépôt de fichiers

 

[tactic6]

Re : Besoin aide pour finaliser USF

Je n'ai pas encore essayé ton fichier
je voulais juste te remercier avant que tu ne me "quittes"
@+ Papou