Soucis avec if then et else
Résolu
solene85
Messages postés
391
Date d'inscription
Statut
Membre
Dernière intervention
-
solene85 Messages postés 391 Date d'inscription Statut Membre Dernière intervention -
solene85 Messages postés 391 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Dans mon userform1 je voudrais être capable d'entrer
soit plusieurs lignes de vaisselle
soit plusieurs lignes de matériel
soit les deux (plusieurs lignes de vaisselle et plusieurs lignes de matériel)
à partir de la sélection de la combobox intitulée "choix"
avec pour contrôle une entrée dans la textbox quantité
et cette entrée doit être inférieure au stock réel
je vous joins ce que j'ai fait pour les deux premiers cas et cela ne fonctionne pas
Pourriez vous m'éclairer et me dire pourquoi cela ne fonctionne pas
merci
https://www.cjoint.com/?DJkrowe8I1c
Dans mon userform1 je voudrais être capable d'entrer
soit plusieurs lignes de vaisselle
soit plusieurs lignes de matériel
soit les deux (plusieurs lignes de vaisselle et plusieurs lignes de matériel)
à partir de la sélection de la combobox intitulée "choix"
avec pour contrôle une entrée dans la textbox quantité
et cette entrée doit être inférieure au stock réel
je vous joins ce que j'ai fait pour les deux premiers cas et cela ne fonctionne pas
Pourriez vous m'éclairer et me dire pourquoi cela ne fonctionne pas
merci
https://www.cjoint.com/?DJkrowe8I1c
A voir également:
- Please remove the installation medium then press enter
- Disk boot failure insert system disk and press enter - Guide
- Press f2 to enter setup ✓ - Forum Logiciels
- Press the esc key for startup menu - Forum Matériel & Système
- Press del to enter setup - Forum BIOS
- To interrupt normal startup press enter - Forum Windows
5 réponses
Bonjour,
me dire pourquoi cela ne fonctionne pas Ben, pas programme pour, aussi simple que ca. Je vous avance un peu sur le sujet
A+
me dire pourquoi cela ne fonctionne pas Ben, pas programme pour, aussi simple que ca. Je vous avance un peu sur le sujet
A+
Bonjour
Modification de la combobox2
Private Sub ComboBox2_Change()
Ligne = ComboBox2.ListIndex + 2
With Feuil2
TextBox9 = .Cells(Ligne, 4)
TextBox10 = ""
TextBox11 = Replace(.Cells(Ligne, 6), ",", ".")
End With
TextBox10.SetFocus
TextBox19 = ""
End Sub
Private Sub Textbox10_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case 48 To 57
KeyAscii = KeyAscii
Case Else
KeyAscii = 0
End Select
End Sub
Private Sub TextBox10_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox19.Value = Val(TextBox10) * Val(TextBox11)
End Sub
en Vba il aime pas la virgule
A toi de voir
A+
Maurice
Modification de la combobox2
Private Sub ComboBox2_Change()
Ligne = ComboBox2.ListIndex + 2
With Feuil2
TextBox9 = .Cells(Ligne, 4)
TextBox10 = ""
TextBox11 = Replace(.Cells(Ligne, 6), ",", ".")
End With
TextBox10.SetFocus
TextBox19 = ""
End Sub
Private Sub Textbox10_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case 48 To 57
KeyAscii = KeyAscii
Case Else
KeyAscii = 0
End Select
End Sub
Private Sub TextBox10_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox19.Value = Val(TextBox10) * Val(TextBox11)
End Sub
en Vba il aime pas la virgule
A toi de voir
A+
Maurice
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question