A voir également:
- Userform pour note de calcul
- Calcul moyenne excel - Guide
- Redmi note 13 5g test - Accueil - Téléphones
- Calcul charpente bois gratuit - Télécharger - Architecture & Déco
- Logiciel gratuit calcul valeur nutritionnelle - Télécharger - Santé & Bien-être
- Convertisseur note sur 10 ✓ - Forum Bureautique
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.
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.