ajouter un userform

[robinhood]

Bonjour tout le monde

je cherche a inserrer dans les deux feuilles Entree et sortie des userform pour inserrer la date, le code, la quantité et l'adresse.

je vais joindre le fichier et j'espère que vous m'aidiez.

Merci de me guider un peu pour que je puisse faire moi mème ces userform c'est important dans mon travail.

Merci d'avance

 

[skoobi]

Re : ajouter un userform

Bonjour,

voici une aide complète sur les userform ici:

 

[robinhood]

Re : ajouter un userform

Merci pour cette réponse rapide

j'ai vu et je pense que ça va prendre un peu de temps avant que je comprend et je m'y met
j'aimerais bien une solution sur le fichier que j'ai envoyé.

merci d'avance

 

[thomlau]

Re : ajouter un userform

Bonjour robinhood

avec le code suivant placé dans un mudule, et ce pour chaque USF, ça fonctionne a merveille...

Sub Poster_entree()
        
' On désactive le raffraichissement de l'écran
Application.ScreenUpdating = False
    
    ' On définit Entreeplus, ZZ et i
    Dim EntreePlus As Worksheet, ZZ As Range, i As Integer
    
    ' EntreePlus est en fait la feuille Entrée
    Set EntreePlus = ThisWorkbook.Worksheets("Entrée")
    
    ' ZZ est la ligne où l'on va copier les données, c'est à dire en fin de liste
    Set ZZ = EntreePlus.Cells(16384, 1).End(xlUp).Offset(1, 0)
    
        ' Dans la colonne A, la date
        ZZ.Offset(0, i).Value = Format(UserForm1.ComboBox2.Value, "dd/mm/yyyy")
        
        ' Dans la colonne B, la référence de la pièce
        ZZ.Offset(0, i + 1).Value = UserForm1.ComboBox1.Text
            
        ' Dans la colonne C, le nombre de pièces
        ZZ.Offset(0, i + 2).Value = UserForm1.TextBox1.Text
            
        ' Enfin, dans la colonne C, l'adresse
        ZZ.Offset(0, i + 3).Value = UserForm1.TextBox2.Text
        
        ' Fermeture de l'UserForm
        UserForm1.Hide
        Unload UserForm1
        
' On se replace sur la feuille principale
Sheets("Liste des articles").Select
        
' Un petit message pour faire pro
MsgBox "Données sauvegardées"

' On réactive le raffraichissemnet de l'écran
Application.ScreenUpdating = True
    
End Sub

J'avais trouvé l'ossature de cette portion de code il y a pas mal de temps, et j'avoue que depuis elle me rend pas mal de services...

Voir le fichier joint...++

 

[robinhood]

Re : ajouter un userform

Bonjour thomlau

merci beaucoup, est-il possible que la champ d'ajout des entrées ou des sorties ne disparait pas après chaque entrée, ça veut dire que je veux qu'il y a un bouton "Sortir" qui ferme le champ de saisie des entrées et sortie après avoir fini toutes les opérations.

Merci d'avance pour votre aide

 

[thomlau]

Re : ajouter un userform

re.

Je comprends pas bien ta requête.

Peux-tu être plus explicite? D'avance merci.

 

[robinhood]

Re : ajouter un userform

re

dans le fichier que tu m'as envoyé quand j'appuie sur le bouton Entrée, il y a l'userform Entrée, quand je fais la saisie d'une seule entrée, il m'affishe le message donnée sauvegardée et puis il se ferme et je dois refaire cette opération (cliquer sur le bouton Entrées autant de fois que j'ai d'entrée) je veux bien que quand je clique la première fois sur le bouton Entrée le userform reste toujours ouvert jusqu'à ce que je termine par exemple mes 20 Entrées après je suggère qu'il y aura un bouton Sortie pour fermer cette userform

j'espre que j'ai été claire.

Merci d'avance pour ton aide.

 

[thomlau]

Re : ajouter un userform

Après avoir relu plusieurs fois, je crois avoir compris.

En fait, tu ne veux pas que l'USF se ferme automatiquement après chaque saisie. C'est toi qui doit le fermer...

Si c'est ça, voir le fichier joint.

 

[robinhood]

Re : ajouter un userform

Merci infiniement

désolé, mais encore deux petites choses:
1/ dans la case Date quand je choisie par exemple la date 05/02/2008 ça affiche 39483 et non la date choisie dans le userform, merci de voir ce détail.
2/ est-il possible que après que le message donnée sauvegardée apparait les champs deviennent vide pour faire l'entrée suivante.

Merci d'avance

 

[thomlau]

Re : ajouter un userform

Re

Voici pour le second problème.

Va dans le module1 dans l'éditeur Visual Basic, puis, après les lignes du msgbox, colle ce code :

' réinitialisation
ComboBox2.Value = ""
ComboBox1.Value = ""
TextBox1.Value = ""
TextBox2.Value = ""

Pour le problème 1, j'essaye, mais j'ai du mal...

 

[robinhood]

Re : ajouter un userform

ça me fait une erreur

ComboBox2.Value = "" (en jaune)

Merci de le faire toi.

je suis nul dans la programmation.

Merci

 

[thomlau]

Re : ajouter un userform

Remplace les 5 lignes précédentes par ceci

' Fermeture et ouverture
Unload UserForm1
UserForm1.Show

 

[robinhood]

Re : ajouter un userform

Merci ami

ça marche nickel, mais il reste la date !!!

Merci

 

[skoobi]

Re : ajouter un userform

Bonjour thomlau robinhood,

ajoute ce code dans les 2 userform:

Private Sub ComboBox2_Change()
ComboBox2.Value = Format(ComboBox2.Value, "dd/mm/yyyy")
End Sub

 

[thomlau]

Re : ajouter un userform

Bonjour Skoobi, robinhood, bonjour le forum.

C'est parfait Skoobi, ça fonctionne nikel.
Mon erreur était que je mettait ce bout de code à l'initialisation de l'USF et non lors du changement de valeur dans le ComboBox...
On en apprend tous les jours.

robinhood, j'ai aussi modifié autre chose qui a son importance :
Impossible de valider le formulaires si tous les champs ne sont pas remplis. Ceci évitera d'avoir des tableaux incomplets.

A bientôt.