Autres Modif sur USF réafficher valeurs archivées dans TextBoxs

J

jmfmarques

XLDnaute Accro

• 10 Mai 2020

• #2

Bonjour
Voilà un exposé clair, précis et détaillé 😎

 

Vote positif 0 Vote négatif

C

Christian0258

XLDnaute Accro

• 10 Mai 2020

• #3

Re, le forum, jmfmarques

Oups, n'avais pas mis le fichier, c'est fait.

Merci, jmfmarques, pour le compliment...Lol

à+
Christian

 

Vote positif 0 Vote négatif

C

Christian0258

XLDnaute Accro

• 11 Mai 2020

• #4

Re, le forum,
J'ai un peu avancé sur mon problème. Je bute sur deux points, pourriez-vous me dire ou ça coince voir USF dans feuille "Ventes annulées.
Merci pour votre aide.

voir fichier

Bien amicalement,
Christian

 

Pièces jointes

• modif sur USF stock V02.zip

  323.3 KB · Affichages: 7

Vote positif 0 Vote négatif

_Thierry

XLDnaute Barbatruc

Repose en paix

• 11 Mai 2020

• #5

Bonsoir @Christian0258 , @jmfmarques , le Forum

Compare les deux USFs : frmSaisie et RemiseStock... Tu as oublié un élément essentiel : le "Tag"



Dans le second USF c'est vide .... et donc l'algo de ton bouton "BtnAjout" ne peut rien faire vers ta feuille STOCK...

VB:

        For Each Ctrl In RemiseStock.Controls
                  If Ctrl.Tag <> "" Then
                      If Ctrl <> "" Then
                          If Split(Ctrl.Tag, "-")(1) = "num" Then
                             If LigneDestination = 8 Then
                                 .Cells(LigneDestination, CByte(Split(Ctrl.Tag, "-")(0))) = CDbl(Ctrl.Value)
...........Etc...........

Bien @ toi, @ Vous
@+Thierry

 

Vote positif 0 Vote négatif

C

Christian0258

XLDnaute Accro

• 11 Mai 2020

• #6

Bonsoir à tout le forum, Thierry

Merci, Thierry, je n'aurais jamais trouvé ça...
Encore merci Monsieur Thierry.

Bien à toi,

Christian

 

Vote positif 0 Vote négatif

J

JM27

XLDnaute Barbatruc

• 11 Mai 2020

• #7

Bonsoir
salut Thierry 😉
Pour info dans les propriétés tag des objets sont rangés la colonne de destination dans la feuille de calcul et le type de donnée ( num ou date) le tout étant séparé par un tirait(-)
si pas documenté : pas de transfert

 

Vote positif 0 Vote négatif

_Thierry

XLDnaute Barbatruc

Repose en paix

• 11 Mai 2020

• #8

Re Bonsoir Jean-Marcel,

Oui j'avais vu que c'était de toi, d'ailleurs Christian l'a bien signalé dans son post #1 en rendant à César ce qui est à César (enfin à Jean-Marcel 😉), mais c'est vrai que quand on utilise la Proprité Tag, pour les utilisateurs non familiarisés il vaut mieux bien le signaler, car on peut chercher longtemps si on ne connait pas cette astuce.

Bien à toi aussi
@+Thierry

 

Vote positif 0 Vote négatif

J

JM27

XLDnaute Barbatruc

• 11 Mai 2020

• #9

Bonsoir Thierry
Effectivement Christian a indiqué l'auteur et c'est bien. merci à lui
je joue beaucoup avec cette propriété dans mes formulaires , j'y range des colonnes de destination , le type de données , si la saisie de l'objet et facultative ou obligatoire , etc...
en plus l'avantage c'est que c'est facilement modifiable sans trop bricoler les macros.

 

Vote positif 0 Vote négatif

C

Christian0258

XLDnaute Accro

• 12 Mai 2020

• #10

Re, le forum Thierry, Jean-Marcel (l'auteur des codes)

Merci à vous pour votre aide, si précieuse.

J'ai un petit souci de fonctionnement avec l'USF "Création Vente". Je pense que c'est lié à l'ajout de l'USF "RemiseStock" que j'ai ajouté, et sur lequel Thierry m'a dépanné, puisque qu'avant ça fonctionnait parfaitement.

If CDbl(Ctrl.Value) > CDbl(Split(Ctrl.ControlTipText, "-")(1)) Then ça plante içi

voir fichier

Bien amicalement,
Christian

 

Pièces jointes

• modif sur USF stock V03.zip

  332.3 KB · Affichages: 9

Vote positif 0 Vote négatif

_Thierry

XLDnaute Barbatruc

Repose en paix

• 12 Mai 2020

• #11

Bonjour @Christian0258 , @JM27, le Forum

Je pense que c'est du même acabit que le Tag, le ControlTipText est aussi un champ qui peut servir à des barbatrucs...

Ton erreur provient du fait que la TextBox "Ambrée15" a ce 'ControlTipText' vide et que la ligne en erreur veut en tirer un valeur numérique avec décimale (Double = CDbl) en position 2 après le split sur le "-"...

Il faut comprendre pourquoi c'est vide... Je pense que Jean Marcel te dira ca en trois secondes et demie !

Bon courage
@+Thierry

 

Vote positif 0 Vote négatif

C

Christian0258

XLDnaute Accro

• 12 Mai 2020

• #12

Re, le forum, Thierry

Merci, Thierry, pour ton intervention et tes explications très claires.

Bien à toi,
Christian

 

Vote positif 0 Vote négatif

_Thierry

XLDnaute Barbatruc

Repose en paix

• 12 Mai 2020

• #13

De rien

En fait c'est à l'Initialize du UserForm que ce ControlTypeText est sensé se mettre à jour :

VB:

    For Each Ctrl In Me.Controls
         ' Si la propriété Tag est documentée
         If Ctrl.Tag <> "" Then
            ' Si c'est une textbox ou une combo box
          If TypeOf Ctrl Is MSForms.TextBox Then
           Ligne = Sheets("STOCK").Range("A65536").End(xlUp).Row
           Colonne = CByte(Split(Ctrl.Tag, "-")(0)) - 4
             Ctrl.ControlTipText = " En stock-" & Sheets("STOCK").Cells(Ligne, Colonne)
          ' si c'est un label
            End If
        End If
    Next

Il faut vérifier pourquoi c'est vide ou pas conforme... quand il fait ceci :
Ctrl.ControlTipText = " En stock-" & Sheets("STOCK").Cells(Ligne, Colonne)

@+Thierry

 

Vote positif 0 Vote négatif

C

Christian0258

XLDnaute Accro

• 12 Mai 2020

• #14

Re, le forum, Thierry

Ok, je vais essayé de regarder… compte tenu de mon niveau, bien sûr...Lol

Bien à toi.
Encore merci Thierry.
Christian

 

Vote positif 0 Vote négatif

_Thierry

XLDnaute Barbatruc

Repose en paix

• 12 Mai 2020

• #15

Re Re Re

Il faut que ta feuille stock soit remplie pour les "ambrées en füt"...



Tu m'enverras un pack LOL !

@+Thierry

 

Vote positif 0 Vote négatif