Remplissage Userform

Bonjour à tous,

Dans mon tableau, j'affiche via un userform la composition de différentes figurines.

Cela fonctionne parfaitement.

Mais j'ai voulu l'améliorer en affichant le stock des pièces que j'avais.

Et la ca foire, mais je ne vois pas ou. pour activer l'userform ca se passe via le bouton RECH FIGURINES dans la page CONCEPTION FIGURINE.

Merci a ceux qui y jetterons un oeil

Bonjour toutes et tous

[@tester]en essayant de rajouter

Application.ScreenUpdating = True

on dirait la que c'est là que cela cloche

Private Sub CommandButton1_Click()
With Rech_fig
    If .Ref_fig = "" Then
        MsgBox "Référence manquante", vbCritical, "Attention"

    Else
    figs.Show
    Unload Me  ' ici m'semble tu décharges l'userform
    End If
End With
End Sub

je vois plus comme cela ou je m'y prend mal également, l'usf figs plante

Private Sub CommandButton1_Click()

End Sub

Andre13 a écrit :

Bonjour toutes et tous

[@tester]en essayant de rajouter

Application.ScreenUpdating = True

on dirait la que c'est là que cela cloche

Private Sub CommandButton1_Click()
With Rech_fig
    If .Ref_fig = "" Then
        MsgBox "Référence manquante", vbCritical, "Attention"

    Else
    figs.Show
    Unload Me  ' ici m'semble tu décharges l'userform
    End If
End With
End Sub

je vois plus comme cela ou je m'y prend mal également

Private Sub CommandButton1_Click()

End Sub

Bonsoir Andre13

Malheureusement cela ne change rien... Ca bloque toujours.

Mais merci d'y avoir prêter attention

bonsoir,

En somme tu as fait un UserForm pour en ouvrir un autre : C'est foireux.

Met ton TextBox de recherche dans le UserForm ou tu afficheras ce que tu cherches (si trouvé...)

A+

Le problème n'est pas au niveau de l'appel d'userform, cela fonctionne parfaitement bien, c'est quand je veux remplir la listbox du moins la 4 ieme colonne

Moi je te dis ce que j'en pense... Tu en fais ce que tu veux !

C'est pas un jugement ni une critique : Juste une constatation.

Un UserForm est déjà bien délicat à manier en particulier pour un débutant. Tu joueras avec 2 quand tu n'auras pas besoin du forum...

Mais il y a fort à parier que ce jour là tu chasseras ce genre d'idées saugrenues !

Cordialement.

A+

Bonjour toutes et tous

Coucou Galopin01

idem que Galopin (au départ, je mettais mélangé les pinceaux avec les modules et les usfs d'ou mon post ci-haut qui ne veut rien dire après du recul)

pourquoi ne pas faire plus simple
Exemple ne lancer que l'userform Figurines pour chercher dans la textbox Ref_fig ( usf==>figs)

lors du lancement de l'usf par le bouton de l'onglet 'Conception Figurines (j'aurai mis un bouton Contrôle ActiveX dans cette feuille)
le bouton ActiveX créé figs.show
dans cette userform mettre l'userform avec une hauteur et une largeur initialize
Height=73
Width=473
une fois cliquer sur le bouton valider si la recherche est fructueuse de cette textbox Ref_fig, on redimensionne l'usf(Hauteur et largeur)

Height=364
Width=681

- de plus le caption du même usf on peut également le modifier

si recherche fructueuse figs.caption="Figurines"

et à l'initialize de l'usf figs.caption="Recherche Figurines"

si rien...

crdlt,

André

Merci pour vos conseils, je vais essayer ca.

Pour mon problème initial je l'ai résolu de manière non VBA.

Mais cela fonctionne et comme ce n'est que pour moi (sans partage du fichier). je sais ce que je peux et ne peux pas faire.

;-)