Bouton ajouter

Bonjour,

J'ai créé un bouton Ajouter et avec le code, ça se fonctionne pas.

Si j'enlève unload me et show, ça fonctionne mais mes champs ne sont pas vide.

Private Sub btn_aj_Click()
    Unload Me
    UserForm1.Show

    btn_aj.Enabled = False
    btn_enregistrer.Enabled = True
    cb_no_transaction.Enabled = False
    'Placer le nouvel enregistrement à la première ligne de tableau non vide
    cb_no_transaction = Sheets("transaction").Range("a65536").End(xlUp).Row + 1
    tb_maj = Now()

End Sub

Merci!

Bonjour,

Cette méthode de réinitialisation d'un Userform n'est pas spécialement élégante (c'est mon point de vue ! )... Si elle ne fonctionne pas, c'est qu'elle n'est pas adaptée au cas où tu l'appliques !

Et pour examiner le cas dans lequel tu l'appliques, le code de la procédure qui flanche ne suffit pas...

L'éternel problème de vouloir faire diagnostiquer sans montre le malade...

Il s'agit d'un système avec beaucoup de données confidentielles alors, je ne peux le déposer ici.

On peut toujours anonymiser un fichier ou l'expurger de données confidentielles en y substituant des éléments fictifs, et en conservant la structure et les types de données en conformité avec l'original. Ou en fabriquer un conforme à l'original.

Tu peux sinon garder le problème ! Aucun inconvénient pour moi !

Cordialement.

De quels champs parles-tu?

Où ce bouton se situe-t-il?

Yohann