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

[Christian0258]

 

[jmfmarques]

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

 

[Christian0258]

Re, le forum, jmfmarques

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

Merci, jmfmarques, pour le compliment...Lol

à+
Christian

 

[Christian0258]

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

 

[_Thierry]

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...

        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

 

[Christian0258]

Bonsoir à tout le forum, Thierry

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

Bien à toi,

Christian

 

[JM27]

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

 

[_Thierry]

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

 

[JM27]

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.

 

[Christian0258]

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

 

[_Thierry]

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

 

[Christian0258]

Re, le forum, Thierry

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

Bien à toi,
Christian

 

[_Thierry]

De rien

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

    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

 

[Christian0258]

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

 

[_Thierry]

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