Mon premier user form

Bonjour à tous,

je fais mon bapteme Userform, disposition des textbox et commandbox dans le formulaire aucun problème, la ou je commence a galérer c'est pour les codes vba à rentrer pour chaque champs, en effet mes entrées font appellent a la fois a des entrées manuelles et d'autres a des listes de choix.Quelqu'un pourrait il me donné un ptit coup de main.

Merci d'avance pour votre aide.

En piece jointe le fichiers sur lequel je bosse.

Mon userform progresse mais quelques erreurs persistes sur mes listes de choix si quelqu'un a des suggestion, merci d'avance.

Bonjour

Correction du code de la macro Initialize qui charge le premier combobox avant de le présenter dans la boite de dialogue.

Private Sub UserForm_Initialize()
    Dim i As Integer
    i = 3
    Do While Sheets("Planning").Cells(i, 3) <> ""
        Matiere.AddItem Sheets("Planning").Cells(i, 3)
        i = i + 1
    Loop
End Sub

Attaque-toi maintenant au code du second combobox qui doit se charger en fonction du choix qui sera fait dans le premier.

Le code du bouton Valider se fait à la fin en général…

Bye !

Et bien ça avance grace a vos réponse il me reste plus quu'a trouver ou aller modififier la hauteur de texte qui s'affiche dans les champs que de mon formulaire que je remplis, en effet lors du remplissage de celui ci le texte s'affiche a moitié car trop grand.

Ou faut il aller pour modifier la taille du texte.

Merci d'avance.

P.S: essayer de remplir le formulaire et vous comprendrez.

grbzh a écrit :

Ou faut il aller pour modifier la taille du texte.

Là :

Bye !

Parfait pour le texte un grand merci

Une derniere chose dans le cas ou je vais devoir renseigner plusieurs articles dans la foulée est il possible:

-De garder le formulaire ouvert apres avoir appuyer sur valider et vider tous les textbox de maniere a saisir de nouvelles données dans le tableau?

Merci d'avance pour cette derniere question.

grbzh a écrit :

De garder le formulaire ouvert apres avoir appuyer sur valider et vider tous les textbox de maniere a saisir de nouvelles données dans le tableau?

Supprime la dernière instruction :

Dim i As Integer
If UserForm1.Code_Article = "" Or UserForm1.Quantite = "" Or UserForm1.Matiere = "" Or UserForm1.Date_de_livraison = "" Or UserForm1.Type_FAI = "" Or UserForm1.Cotation = "" Or UserForm1.Nombre_Usinage = "" Or UserForm1.Pro_Eq = "" Then
MsgBox "Merci de remplir tous les champs"
Else
i = 2
Do While Cells(i, 1) <> ""
Cells(i, 1).Offset(1, 0).Select
i = i + 1
Loop
ActiveCell.Value = UserForm1.Code_Article.Value
ActiveCell.Offset(0, 3).Value = UserForm1.Quantite.Value
ActiveCell.Offset(0, 4).Value = UserForm1.Matiere.Value
ActiveCell.Offset(0, 6).Value = UserForm1.Date_de_livraison.Value
ActiveCell.Offset(0, 7).Value = UserForm1.Type_FAI.Value
ActiveCell.Offset(0, 8).Value = UserForm1.Cotation.Value
ActiveCell.Offset(0, 11).Value = UserForm1.Nombre_Usinage.Value
ActiveCell.Offset(0, 13).Value = UserForm1.Pro_Eq.Value
ActiveCell.Offset(0, 18).Value = UserForm1.Commentaires.Value
Unload UserForm1

End If

End Sub

Bye !

Mais vide tes controles avant.

Ex :

Quantite = ""               'C'est un textbox : on l'efface
Matiere.ListIndex = -1      'C'est un combobox : on lui fait afficher le vide sans le décharger

End If

End Sub

C'est parfait merci beaucoup du coup de main , c'est parfait

Et la cerise sur le gateau dans le formulaire est il possible d'attacher un lien hypertexte a mon code article, auquel quel cas je serai obliger de le faire un passant par mon classeur.

Merci d'avance de vos réponses.

Bonjour

Ce doit être possible, mais, désolé, moi, je ne sais pas faire.

Ouvre un nouveau sujet sur le forum en posant la question.