DominoArea.org [Archive]

Bonjour à tous,

J'ai un bouton qui me permet d'ouvrir une popup, je rempli donc les champs de cette popup en LS.

A l'ouverture de la popup, tous les champs de types "Case à cocher" sont coché, est ce qu'il y a un moyen de décocher en automatique les champs ?

Voici le code qui me permet de renseigner la popup :

Code : Tout sélectionner

Print "Recherche de tous les n° de contenants disponibles pour le lot sélectionné."
            For Ibis = Lbound(tableau,1) To Ubound(tableau,1)
               recupvalbis = tableau(Ibis,1)
               If recupvalbis = recuplot(0) Then
                  For Jbis = 2 To 2
                     Dim recupqte As Integer
                     recupqte = tableau(Ibis,Jbis + 1)
                     recupcont = tableau(Ibis,Jbis)
                     If recupcont <> "" Then
                        Call Formulaire.replaceitemvalue("L1C" & Cstr(i), tableau(Ibis,Jbis))
                     Else
                        Call Formulaire.replaceitemvalue("L1C" & Cstr(i), tableau(Ibis,Jbis + 2))
                     End If
                     Call Formulaire.replaceitemvalue("L1Qte" & Cstr(i), recupqte)
                     Call Formulaire.replaceitemvalue("L1Emp" & Cstr(i), tableau(Ibis, Jbis + 3))   
                     Call Formulaire.replaceitemvalue("L1Mag" & Cstr(i), tableau(Ibis, Jbis + 4))   
                     Call Formulaire.replaceitemvalue("BLOCINV" & Cstr(i), tableau(Ibis, Jbis + 5))   
                     Call Formulaire.replaceitemvalue("BLOCTYPSTO" & Cstr(i), tableau(Ibis, Jbis + 6))   
                     i = i + 1
                  Next
               End If
            Next
            Print "Affichage de tous les n° de contenants disponibles pour le lot sélectionné."
            Call Formulaire.replaceitemvalue("L1", recuplot(0))
            Call Formulaire.ReplaceItemValue("Mise au rebut", "Lots et Contenants")
            If (oWks.DialogBox("Lots et Contenants", True, True, True, False, False, False, "Veuillez sélectionner un ou plusieurs contenant : ", Formulaire, True, True, True) = True) Then
......................................................................
               End if

En piece jointe la popup à l'ouverture

Je ne sais pas si je suis clair !!

Merci d'avance

Cordialement

salut

ouaip ! tu prend chaque champ et tu lui colle comme valeur : ""

Michael DELIQUE a écrit:salut

ouaip ! tu prend chaque champ et tu lui colle comme valeur : ""

Bonjour Michael,

Sur chaque champ de type "Case à coché", la valeur par défaut est ""

En piece jointe les propriétés d'un champ

Merci d'avance

Cordialement

re

l1c1 contient quoi ?

Michael DELIQUE a écrit:re

l1c1 contient quoi ?

L1C1 contient la première valeur que tu vois dans la popup à savoir "00000000001000016094"

je crois qu'il faut que tu sépare la case a coché du label affiché

dans ta case tu fais un ""|"00000000001000016094"

et tu affiche dans un texte calculé "00000000001000016094"

Je ne comprend pas ce que tu veux dire.

Est ce que tu peux me donner plus d'explications stp ?

Michael DELIQUE a écrit:je crois qu'il faut que tu sépare la case a coché du label affiché

dans ta case tu fais un ""|"00000000001000016094"

et tu affiche dans un texte calculé "00000000001000016094"

Bonjour,

Je suis passé par un champ intermédiaire qui récupère la valeur et dans la case à coché l'affiche la valeur récupéré (avec le même principe VIA formule)

Et comme par magie les cases nesont plus coché par défaut !!

Merci beaucoup Michael

Je ne suis pas sûr que ce soit la meilleur solution mais ça fonctionne.

Cordialement