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
- Turn off then on - Forum Matériel & Système
- Please remove the installation medium then press enter - Forum Ubuntu
- Miswiring check wiring then power on ✓ - Forum Autoradio
- Date if en francais excel - Forum Programmation
- Bios has been reset please reconfigure a bios setup items if needed - Forum BIOS
5 réponses
f894009
Messages postés
17229
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
21 janvier 2025
1 712
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
17229
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
21 janvier 2025
1 712
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
14
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
14
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é