Soucis avec if then et else
Résolu/Fermé
solene85
Messages postés
391
Date d'inscription
jeudi 24 janvier 2008
Statut
Membre
Dernière intervention
9 janvier 2016
-
10 oct. 2014 à 17:14
solene85 Messages postés 391 Date d'inscription jeudi 24 janvier 2008 Statut Membre Dernière intervention 9 janvier 2016 - 11 oct. 2014 à 13:00
solene85 Messages postés 391 Date d'inscription jeudi 24 janvier 2008 Statut Membre Dernière intervention 9 janvier 2016 - 11 oct. 2014 à 13:00
A voir également:
- Soucis avec if then et else
- If not vba ✓ - Forum Excel
- The realtek network controller was not found. if deep sleep mode is enabled please plug the cable ✓ - Forum Pilotes (drivers)
- Please remove the installation medium then press enter - Forum Ubuntu
- If not exist batch ✓ - Forum Autoit / batch
- Invalid system disk replace the disk and then press any key - Forum Windows
5 réponses
f894009
Messages postés
17191
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
20 mai 2024
1 707
11 oct. 2014 à 08:43
11 oct. 2014 à 08:43
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+
f894009
Messages postés
17191
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
20 mai 2024
1 707
11 oct. 2014 à 09:48
11 oct. 2014 à 09:48
Re,
une facon de faire: https://www.cjoint.com/c/DJljZcWHgtC
A completer
A+
une facon de faire: https://www.cjoint.com/c/DJljZcWHgtC
A completer
A+
solene85
Messages postés
391
Date d'inscription
jeudi 24 janvier 2008
Statut
Membre
Dernière intervention
9 janvier 2016
13
11 oct. 2014 à 10:31
11 oct. 2014 à 10:31
bonjour f894009 et merci
je vais m'en inspirer pour la suite
bonne journée
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
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
solene85
Messages postés
391
Date d'inscription
jeudi 24 janvier 2008
Statut
Membre
Dernière intervention
9 janvier 2016
13
11 oct. 2014 à 13:00
11 oct. 2014 à 13:00
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é
Avec ces aides de tous ces gens du forum je vais devenir un excelliste averti
Merci Maurice et les autres pour votre disponibilité
