Userform pour note de calcul

Fermé
snox - 21 déc. 2009 à 09:22
 melanie1324 - 21 déc. 2009 à 13:55
Bonjour,
Origine du problème : Standardisé une gamme de vanne, aucune indication de base juste une note de calcul commencée et toute une variété de plan de vannes.
J’ai pensé faire une feuille de calcul par type de vanne dans la même note et dirigé l’utilisateur sur la bonne feuille avec un UserForm ensuite réaliser une vanne paramétrable qui se créera automatiquement suivant les infos complétées dans la feuille de calcul.
J'ai réalisé un UserForm sans trop de difficulté qui s’ouvre automatiquement à l’ouverture du fichier Excel, par contre j'en ai de grosse pour la programmation qui suit... :
J'ai 3 TextBox qui se suivent, demandant : Hauteur de vanne, Largeur de vanne, Hauteur d’eau
Puis 2 liste déroulante :
Fixation :
- En scellement, En applique, En applique à l’arraché
Et Etanchéité :
-sans, avec au décollage, avec au placage, avec mais sans joint
Un CommandButton «Valider » clos le UserForm tout en amenant à la bonne feuille.
Les listes déroulantes fonctionnent, j’aimerai par exemple lorsque « En scellement » et « sans » sont sélectionnés on soit dirigées en appuyant sur « valider » à la feuille 1, ensuite que les informations complétées dans les 3 TextBox se retrouvent dans 3 cellules de ma feuille près établies.
Voici le programme tel qui l’est actuellement :
Private Sub ComboBox2_Change()
End Sub
Private Sub Label9_Click()
End Sub
Private Sub TextBox1_Change()
End Sub
Private Sub TextBox3_Change()
End Sub
Private Sub UserForm_Initialize()
ComboBox1.AddItem ("En scellement")
ComboBox1.AddItem ("En applique")
ComboBox1.AddItem ("En applique à l'arraché")
ComboBox2.AddItem ("Sans")
ComboBox2.AddItem ("Avec, au plaquage")
ComboBox2.AddItem ("Avec, au décollage")
ComboBox2.AddItem ("Avec, double sens")
ComboBox2.AddItem ("Avec, sans joints (Uniquement pour vanne murale faible charge)")
End Sub
Private Sub CommandButton1_Click()
If ((ComboBox1.Text = "En scellement") And (ComboBox2.Text = "Sans")) Then
??????????
End If
End Sub

Merci par avance pour votre aide.
Je suis ouvert à toute proposition pour l’amélioration du système envisagé.
Cordialement,
Julien MATHIEU.
A voir également:

1 réponse

Bonjour,

Déjà, toutes les lignes suivantes, tu peux les effacer, elles ne servent à rien :


Private Sub ComboBox2_Change()
End Sub
Private Sub Label9_Click()
End Sub
Private Sub TextBox1_Change()
End Sub
Private Sub TextBox3_Change()
End Sub

tu gardes ca et tu remplaces via le code indiqué :

Private Sub UserForm_Initialize()
ComboBox1.AddItem ("En scellement")
ComboBox1.AddItem ("En applique")
ComboBox1.AddItem ("En applique à l'arraché")
ComboBox2.AddItem ("Sans")
ComboBox2.AddItem ("Avec, au plaquage")
ComboBox2.AddItem ("Avec, au décollage")
ComboBox2.AddItem ("Avec, double sens")
ComboBox2.AddItem ("Avec, sans joints (Uniquement pour vanne murale faible charge)")
End Sub
Private Sub CommandButton1_Click()
If ((ComboBox1.Value = "En scellement") And (ComboBox2.Value = "Sans")) Then
userform1.hide
sheets("feuil1").select 'Remplace feuil1 par le nom de ta feuille
cells(1,2).select ' le chiffre 1 est égale à la ligne 1, le chiffre 2 est égal à la colonne remplace par les nombres que tu veux
selection = textbox1.value
cells(2,2) = textbox2.value
cells(2,3) = textbox3.value
End If
End Sub

Essaie et dis moi si ca te va.
0