Soucis avec if then et else
Résolu
solene85
Messages postés
414
Statut
Membre
-
solene85 Messages postés 414 Statut Membre -
solene85 Messages postés 414 Statut Membre -
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
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+ -
-
bonjour f894009 et merci
je vais m'en inspirer pour la suite
bonne journée -
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 -
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
ok merci Maurice
Avec ces aides de tous ces gens du forum je vais devenir un excelliste averti
Merci Maurice et les autres pour votre disponibilité